Visual FoxPro考试求助！！！！急！！高手进！！

来源：百度知道 编辑：UC知道 时间：2024/05/18 06:01:04
1.某班学生计算机考试成绩登记到表XSCJ中（含字段：学号（c），计算机（n），评估（g），编写程序，将每个学生的计算机成绩进行评估，评估分为：“优秀”（大于等于90），“良好”（大于等于80，小于90），“中等”（大于等于70，小于80），“及格”（大于等于60，小于70），“不及格”（小于60），并将评估结果写到评估字段中。
2.求10000之内所有不能被3整除的数字之和。

很急！！！！！请高手给出详细的程序步骤，谢谢啦

1、2条命令就OK

use xscj
repl all 评估 with iif(计算机>=90,"优秀",iif(计算机>=80,"良好",iif(计算机>=70,"中等",iif(计算机>=60,"及格","不及格"))))

当然也可以这样做:
use xscj
do while !eof()
if 计算机>=90
pg="优秀"
else
if 计算机>=80
pg="良好"
else
if 计算机>=70
pg="中等"
else
if 计算机>=60
pg="及格"
else
pg="不及格"
endif
endif
endif
endif
repl 评估 with pg
skip
enddo

2、2.求10000之内所有不能被3整除的数字之和。

s=0
for i=1 to 1000
if mod(i,3)>0
s=s+i
endif
endfor
? "10000之内所有不能被3整除的数字之和",s