foxpro计算机编程

来源：百度知道 编辑：UC知道 时间：2024/06/08 13:27:49
编写程序，要求分别统计“成绩”表中各门功课优秀（90分以上）、良好（80～89分）、中等（70～79分）、及格（60～69分）、不及格（60分以下）的人数

假设成绩表中有一个cj字段，程序如下
clear

use 成绩
n=0
j=0
p=0
m=0
q=0
do while not eof()
do case
case cj<60
n=n+1
case cj<70
j=j+1
case cj<80
p=p+1
case cj<90
m=m+1
otherwise
q=q+1
endcase
skip
enddo
?"不及格的有:",allt(str(n))+"人"
?"及格(60～69分)的有:",allt(str(j))+"人"
?"中等(70～79分)的有:",allt(str(p))+"人"
?"良好(80～89分)的有:",allt(str(m))+"人"
?"优秀(90～100分)的有:",allt(str(q))+"人"