set talk off USE student.dbfindex on 考号 to ikhaccept"输入考号:"to khseek kh if .not.found()"无此考号"elsedo casecase 成绩>=85pj="优秀"case 成绩>=75pj="良好"case 成绩>=60pj="不及格"otherwisepj="不及格"endcase"考号"+KH+姓

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/01 21:58:29

set talk off USE student.dbfindex on 考号 to ikhaccept"输入考号:"to khseek kh if .not.found()"无此考号"elsedo casecase 成绩>=85pj="优秀"case 成绩>=75pj="良好"case 成绩>=60pj="不及格"otherwisepj="不及格"endcase"考号"+KH+姓
set talk off
USE student.dbf
index on 考号 to ikh
accept"输入考号:"to kh
seek kh
if .not.found()
"无此考号"
else
do case
case 成绩>=85
pj="优秀"
case 成绩>=75
pj="良好"
case 成绩>=60
pj="不及格"
otherwise
pj="不及格"
endcase
"考号"+KH+姓名+"评价"+pj
endif
use
return

set talk off USE student.dbfindex on 考号 to ikhaccept"输入考号:"to khseek kh if .not.found()"无此考号"elsedo casecase 成绩>=85pj="优秀"case 成绩>=75pj="良好"case 成绩>=60pj="不及格"otherwisepj="不及格"endcase"考号"+KH+姓
这是老早的数据库编程语言foxbase/forxpro的一个简单程序.下面按照各行来解释
打开student.dbf数据库
建立以考号为索引值的kh
自定义输入考号:到KH
查对索引值kh
如果找不到和以考号为索引的kh值相同的输入考号
则输出"无此考号"
否则
从下面几项中做选择
如果输入的考号的成绩>=85
则把PJ赋予字符串"优秀"
下面意思同理
最后根据情况,输出输入的"考号"和姓名及评价.(pj其实就是评价内容,如不及格等)
最后ENDIF结束IF的判断语句,
USE 是关闭原先打开的student.dbf数据库
返回结果