查找低分人数.prg

来自「用VFP编写的学生成绩统计系统」· PRG 代码 · 共 57 行

set talk off
clea all
clos data
set safe off
dime d(16)
dime f(10),r(10)
input"请输入年份：" to pp
input"请输入考试的次数：" to ppp
sele 1
gcT = GETFILE('dbf','文件名(N):', '打开',1)
DO CASE
	CASE 'Untitled' $ gcT
		CREATE (gcT)
	CASE EMPTY(gcT)
		modi comm (gcT)
		RETURN
	OTHERWISE
		USE (gcT)
ENDCASE
sele 2
acce"请输入字段个数：" to a
acce"请输入文件名：" to c
crea table &c(zxdm n(4))
a=val(a)
a=int(a)
k=1
for k=1 to a
s='cj'+str(k,1)
d='d'+str(k,1)   
alte tabl &c add &s  n(5)
alte tabl &c add &d n(4)
endfor
n=5901
do while n<=5908
  select 2
  append blank                                               
  go bott
  repl zxdm with n
sele 1
    k=1
     do whil k<=a
     sele 1
    s='cj'+str(k,1)
d='d'+str(k,1)
    coun all  to h for &s<=50.and.zxdm=n.and.&s>0
    coun all  to v for zxdm=n.and.&s>0
    sele 2
   repl &s with h &d with v 
      k=k+1
      enddo
      sele 1
n=n+1
enddo
sele 2
brow
cccc='盐城市'+str(pp,4)+'年第'+str(ppp,1)+'次调研考试低分段人数一览表'
copy to c:\&cccc xl5