| 【程序说明】
设成绩库CJK.DBF中，“数学”(数值型字段)这门课程的学分为4，其学分算的方法如下： 数学＞=90，学分值为4 80＜＝数学＜90，学分值为3 70＜=数学＜80，学分值为2 60＜＝数学＜70，学分值为1 数学＜60，学分值为0 计算任一学生数学这门课程的学分值。 【程序】 SET TALK OFF USE CJK ACCEPT“输入学号：”TO XH XF＝0 (9) DO CASE CASE (10) XH=4 CASE (11) XH＝3 CASE (12) XF=2 CASE 数学＞=60 XF＝1 OTHERWISE XF＝0 ENDCASE “学号:”，XH “数学的学分值:”，XF USE RETURN |
| 【程序说明】程序功能是计算一个整数的各位数字之和。 【程序】 SET TALK OFF INPUT“x＝”TO x s＝0 DO WHILE x!=0 s＝s+ MOD(x，10) (1) (2) S SET TALK ON |
我来回答:
