菜鸟求教2!谢谢
xs.dbf学号 姓名 性别 班级
0001 李四 男 一班
0002 张三 女 二班
0003 赵五 男 三班
cj.dbf
学号 课程名 成绩
0001 计算机原理 80
0002 软件工程 85
0003 数据库 70
0002 操作系统 75
索引文件名:cj.idx 索引键:学号
要求程序显示输出学生“张三”所修全部课程名及成绩。
对程序改错,用改正后的程序行覆盖错误所在行,不要插入或删除任何程序行
SET TALK OFF
SELECT 1
USE CJ INDEX CJ
SELECT 2
USE XS
LOCATE FOR 姓名="张三"
IF FOUND()
SELECT CJ
SEEK 学号=XS->学号
DO WHILE FOUND()
?课程名,成绩
SKIP
ENDDO
ENDIF
CLOSE DATABASES
SET TALK ON