程序改错69题答案(8)

ACCEPT \输入要查询人的姓名:\

***********FOUND**********LOCA★FOR 姓名★=NAME LOCA FOR 姓名=&NAME IF .NOT. EOF() DISP ELSE

? \查无此人!\ ENDIF

WAIT \是否继续查询(Y/N)?\

***********FOUND**********IF★UPPER★(KK)=\ IF★KK=\ IF KK=\ LOOP ENDIF

***********FOUND**********EXIT LOOP ENDDO USE

SET TALK ON

52.题目：使用BJ.DBF和XS.DBF两个数据库,在它们之间建立逻辑联接,然后为每个\计算机\班的学生成绩增加10分,最后显示全体学生的姓名、成绩和班级名.程序中有四处错,请改正之.

SET TALK OFF SELE 1 USE BJ

***********FOUND**********INDE ON 姓★名 TO INX INDE ON 姓名 INTO INX SELE 2 USE XS

***********FOUND**********SET RELA TO 姓名 ★INTO A SET RELA TO 姓名 ON A

***********FOUND**********REPL ALL 成绩 ★WITH 成绩+10 FOR 班级名=\计算机\ REPL ALL 成绩 TO 成绩+10 FOR 班级名=\计算机\ LIST 姓名,成绩,班级名

***********FOUND**********SET RELA★TO SET RELA WITH CLOS DATA SELE 1

SET TALK ON RETU

53.题目：反复从键盘输入姓名，在XS.DBF数据库中查找该人，找到后显示，为找到可继续查询，该程序有4处错误，请找出并改正，使程序正常运行。 SET TALK OFF CLEAR

USE XS

DO WHILE .T.

ACCEPT \请输入要查找的姓名：\ ***********FOUND**********LOCA FOR 姓名=XM FIND &XM

***********FOUND**********IF .NOT. ★EOF() IF NOT DISPLAY ELSE SF=\

WAIT \未查到,继续查询吗?(Y/N) \

***********FOUND**********IF UPPER(SF)★=★\ IF UPPER(SF)<> \

***********FOUND**********EXIT LOOP ENDIF ENDIF ENDDO USE

SET TALK ON SET EXACT OFF

54.题目：求XS.DBF数据库中平均成绩大于80分（含80分）男女生人数,把79年出生的女生生成新库,按出生日期的升序显示新库的姓名字段。该程序共有四处错误,找出并改正，使程序能正确运行。 SET TALK OFF CLEAR USE XS

TJ=\英语+计算机)/2>=80\

***********FOUND**********COUNT TO B ★FOR★ 性别=\男\ COUNT TO B 性别=\男\

***********FOUND**********COUNT TO B ★FOR★ 性别=\女\ COUNT TO G 性别=\女\ ?B,G

***********FOUND**********COPY ★TO★ STG FOR 性别=\女\期)>1979

或 COPY ★TO★ STG FOR 性别=\女\

日期)

COPY STG FOR 性别=\女\出生日期)>1979 USE STG

***********FOUND**********INDEX ★ON★ 出生日期 TO SR INDEX 出生日期 TO SR LIST 姓名 OFF USE

SET TALK ON RETURN

55.题目：显示XS.DBF数据库中总分最大值学生的姓名和专业。该程序共有四处错误，找出并改正，使程序能正常运行。 SET TALK OFF CLEAR USE XS

***********FOUND**********STORE ★0★ TO X STORE \ STORE \

REPLACE ALL 总成绩 WITH 计算机+英语 GOTO TOP

***********FOUND**********DO ★WHILE★ .NOT. EOF() DO WHILE EOF() IF X<总成绩 X=总成绩 Y=姓名 Z=专业 ENDIF

***********FOUND**********SKIP LOOP ENDDO

***********FOUND**********?Y,Z LIST Z,X,Y USE

56.题目：将XS.DBF数据库中82年以前出生的女生加上删除标记,并显示该类学生的专业、姓名；按总分降序输出XS.DBF数据库中的专业、姓名。该程序共有四处错误,找出并改正，使程序能正常运行。 SET TALK OFF USE XS

DELE FOR 出生日期<{82/01/01}.AND.性别=\女\

***********FOUND**********COPY ★TO★ SR FOR ★DELETE() COPY SR FOR DELETE() SELE B USE SR

LIST 专业,姓名 OFF SELE A

REPLACE ALL 计算机 WITH 英语+计算机

***********FOUND**********INDEX ★ON★ -(英语+计算机) TO CJ

或 INDEX ★ON★ -总成绩 TO CJ

INDEX -总成绩 TO CJ I=5

DO WHILE I>=1

DISP 姓名,总成绩 OFF ***********FOUND**********SKIP LOOP

***********FOUND**********I=I-1 或 I=-1+I I=I+1 ENDDO USE RETURN

57.题目：从键盘输入学生姓名对库文件XS.DBF进行查询。该程序共有四处错误,找出并改正使程序正常运行。 SET TALK OFF CLEAR USE XS

DO WHILE .T.

***********FOUND**********ACCEPT \请输入学生姓名:\ NAME ACCEPT \请输入学生姓名: \

***********FOUND**********LOCA ★FOR★ 姓名=NAME LOCA 姓名=NAME IF EOF()

WAIT \无此人！\ ELSE

***********FOUND**********DISP EXIT ENDIF

WAIT \继续查询吗?(Y/N) \

***********FOUND**********IF UPPER(CX)★<>★\或 IF UPPER(CX)★=★\ IF UPPER(CX)= \ EXIT ENDIF ENDDO USE RETURN

58.题目：在XS.DBF库中找到\李红\同学的记录,显示计算机成绩。该程序有4处错误，请找出并改正，使程序能够正常运行。 CLEAR

SET TALK OFF USE XS

***********FOUND**********DO ★WHILE★ .NOT. EOF() DO WHILE EOF()

***********FOUND**********IF 姓名=★\\或 IF 姓名=★[李红] 或 IF 姓名=★'李红'

IF 姓名=李红

***********FOUND**********DISP 姓名,计算机 LIST 姓名,计算机 ENDIF ***********FOUND**********SKIP LOOP

ENDDO USE

SET TALK ON RETURN

59.题目：在数据库XS.DBF中，统计、显示非党员人数。该程序共有四处错误,找出并改正，使程序能够正确运行。 SET TALK OFF CLEAR

***********FOUND**********A=0 A=1 USE XS

***********FOUND**********DO ★WHILE★ .NOT. EOF() DO WHILE EOF() IF NOT 入党否 A=A+1 ENDIF

***********FOUND**********SKIP COUNTINE

***********FOUND**********ENDDO END ?A USE

SET TALK ON RETURN

60.题目：输出如下图形 * * * * * * * * * * * * * * * *

该程序有四处错误，请找到错误并改正，使之能正确运行。 CLEA R=1 C=10

***********FOUND**********DO ★WHILE★ 4>=R 或 DO ★WHILE★ R<=4 DO WHILE R<4 S=1

***********FOUND**********DO ★WHILE★ S<2★*★R-1 或 DO ★WHILE★ S<-1+2★*★R

或 DO ★WHILE★ 2★*★R-1>S 或 DO ★WHILE★ -1+2★*★R>S

DO WHILE S<=2R-1

***********FOUND**********@R,C ★SAY ★\ @R,C ★SAY [*] 或 @R,C ★SAY ★'*' @R,C GET * C=C+1

***********FOUND**********S=S★+★1 S=S-1