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/06/25 03:19:33
![set talk off USE student.dbfindex on 考号 to ikhaccept](/uploads/image/z/9130899-3-9.jpg?t=set+talk+off+USE+student.dbfindex+on+%E8%80%83%E5%8F%B7+to+ikhaccept%22%E8%BE%93%E5%85%A5%E8%80%83%E5%8F%B7%3A%22to+khseek+kh+if+.not.found%28%29%22%E6%97%A0%E6%AD%A4%E8%80%83%E5%8F%B7%22elsedo+casecase+%E6%88%90%E7%BB%A9%3E%3D85pj%3D%22%E4%BC%98%E7%A7%80%22case+%E6%88%90%E7%BB%A9%3E%3D75pj%3D%22%E8%89%AF%E5%A5%BD%22case+%E6%88%90%E7%BB%A9%3E%3D60pj%3D%22%E4%B8%8D%E5%8F%8A%E6%A0%BC%22otherwisepj%3D%22%E4%B8%8D%E5%8F%8A%E6%A0%BC%22endcase%22%E8%80%83%E5%8F%B7%22%2BKH%2B%E5%A7%93)
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数据库
返回结果