【程序说明】从键盘输入学生的学号,在“成绩”表中计算该生的平均成绩,并说明成绩的档次(优、良、中、及格和不及格),如果该生不在表中则提示相应的信息。 【程序】 SET
TALK OFF CLEAR USE 成绩 ACCEPT“请输入学生的学号:” TO XH {{U}}(1)
{{/U}} IF {{U}}(2) {{/U}} ?“查无此人!” ELSE {{U}}
(3) {{/U}}成绩TO CJ FOR 学号=XH DO CASE
CASE CJ>=90 DC=“优” CASE
CJ>=80 DC=“良” CASE
CJ>=70 DC=“中” CASE
CJ>=60 DC=“及格” {{U}} (4)
{{/U}} DC=“不及格”
ENDCASE ? XH,CJ,DC ENDIF USE SET TALK
ON