| 【程序说明】输入学生学号，显示该学生的学号和已通过课程的总学时数。 【程序】 SET TALK OFF CLEAR SELE 1 USE 成绩 UELE 2 USE 课程 {{U}}(5) {{/U}} KSS＝0 ACCEPT '输入学生学号＝' TO XH SELE 成绩 {{U}}(6) {{/U}} DO WHIL! EOF() IF 成绩＞=60 SELE课程 {{U}} (7) {{/U}} KSS＝KSS+学时数 ENDIF SELE 成绩 {{U}}(8) {{/U}} ENDDO ? XH，KSS CLOSE ALL SET TALK ON |