【vfp开源代码栏目提醒】:网学会员为需要vfp开源代码的朋友们搜集整理了程序20.prg相关资料,希望对各位网友有所帮助!
CLEAR
SET TALK OFF
USE d:\vfp\教务信息\成绩表 EXCLUSIVE
SELECT 成绩表
STORE 0 TO a,b,c
SCAN ALL FOR 成绩>=90
a=a+1
ENDSCAN
SCAN ALL FOR 60<成绩 AND 成绩<89
b=b+1
ENDSCAN
SCAN ALL FOR 成绩<60
c=c+1
ENDSCAN
SET TALK ON
?'优秀学生人数:' +STR(a,4)
?'及格学生人数:' +STR(b,4)
?'不及格学生人数:'+STR(c,2)