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

从表面查，程序两处有错，seek 语句后面应接直接值或中间变量, 不应为条件语句，下面语句foun()应为.not.eof()
...