SET TALK OFF OPEN DATABASE 成绩管理 PUBLIC xh,kchhuse 成绩 ACCEPT "请输入要查找的学号" TO m.XH ACCEPT "请输入要查找的课程号：" TO m.KCHH set filt to学号=m.XH .ADN. 课程号=m.KCHHgo top DO WHILE .NOT. EOF() DO CASE CASE 成绩>=90 ? "优秀" CASE 成绩>=80 ? "良好" CASE 成绩>=70 ? "中等" CASE 成绩>=60 ? "及格" CASE 成绩=90 and 成绩=80 and 成绩=70 and 成绩=60 and 成绩90成绩>80这样成绩>80重复了成绩>90大于90的一段
