程序改错69题答案(10)

SET TALK ON RETURN

67.题目：本程序的功能是输入学号查询考生计算机成绩。在程序中有4处错误请找出错误语句并改正，使程序正常运行。 USE XS

***********FOUND**********INDEX ★ON 学号 TO ★IS1 INDEX 学号 TO A1

***********FOUND**********ACCEPT \请输入学号:\★TO NUM ACCEPT \请输入学号: \ SEEK NUM

***********FOUND**********IF FOUND() 或 IF .NOT. EOF()

IF EOF()

?姓名, \计算机成绩: \计算机,3,0) ***********FOUND**********ELSE DISP

? \没有此考生! \ ENDIF USE

68.题目：给定程序的功能是:由用户输入数据库名,如果数据库的名等于xs.DBF显示记录号为奇数的记录内容,否则退出. Set talk off clear

name=space(8)

***********FOUND**********@2,5 say \请输入数据库名:\ @2,5 say \请输入数据库名:\ read

if name=\

***********FOUND**********use★&name 或 use★(name) use name

do while .not.eof()

***********FOUND**********skip★2 disp skip enddo else

***********FOUND**********retu 或 canc 或 quit exit endif retu

69.题目：显示数据库文件XS.DBF中化学系同学的姓名和计算机成绩该程序有４处错误，请找出并改正，使程序能够正常运行。 USE XS

***********FOUND**********DO ★WHILE★ .NOT.★EOF() DO WHILE NOT BOF() IF 专业<>\化学\ SKIP

***********FOUND**********LOOP EXIT ENDIF

***********FOUND**********DISPLAY★ 姓名,计算机 DISP SKIP ENDDO

***********FOUND**********USE CLOSE XS