【程序说明】 设成绩库CJK.DBF中，“数学”（数值型字段)这门课程的学分为4，其学分算的方法如下：数学＞=

【程序说明】 设成绩库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

(9)

A．LOCATE FOR 学号=XH

B．SEEK FOR 学号=XH

C．FIND FOR学号=XH

D．CONTINUE