程序改错69题答案(9)

ENDDO C=10-R R=R+1 ENDDO

61.题目：输出如下乘法口诀表，该程序有4处错误，请找出并改正，使程序能够正常运行。 1*1=1

1*2=2 2*2=4

1*3=3 2*3=6 3*3=9 ……………………

1*9=9 2*9=18 ……… 9*9=81 SET TALK OFF CLEAR

***********FOUND**********X=1 X=0

***********FOUND**********DO ★WHILE★ X<=9 DO WHILE X<=10 Y=1

DO WHILE Y<=X

***********FOUND**********??STR(Y,1)+★\ ??STR(Y,1)+*+STR(X,1)+ \ Y=Y+1 ENDDO X=X+1

***********FOUND**********? DISP ENDDO

62.题目：下面是一个关于光带式菜单的程序,根据题意,将题中四处错改正过来,请改正之. SET TALK OFF SET PROC TO PRO DO WHILE .T. CLEA

@3,19 SAY \北华大学学生管理系统\ @4,4 PROM \查询\查询记录\ @4,14 PROM \修改\修改记录\ @4,24 PROM \删除\删除记录\ @4,34 PROM \退出\返回\

***********FOUND**********SET★MESS★TO★20 READ MESS TO 20

***********FOUND**********ME★NU TO★W MENU INTO W DO CASE CASE W=1 DO CX CASE W=2

DO XG CASE W=3 DO SC

***********FOUND**********CASE★W=4 CASE W=0 EXIT ENDC ENDD

***********FOUND**********SET PROC★TO SET PROC ON SET TALK ON

63.题目：程序功能为添加数据记录，程序中有四处错误请修改正确. set talk off use djks copy to bbb use bbb

store \ store \ store \ store 0 to nl store \ store 0 to bs store 0 to sj store .t. to lp do while lp clear

@ 3,30 say \请输入记录项的数据!\

***********FOUND**********@ 6,20 say \考号:\ @ 6,20 say \考号:\ @ 6,50 say \姓名:\ @ 7,20 say \性别:\ @ 7,50 say \年龄:\ @ 8,20 say \考场:\ @ 8,50 say \笔试:\ @ 9,20 say \上机:\ read

***********FOUND**********append★blank append from

replace 考号 with kh,姓名 with xm,性别 with xb, 年龄 with nl,考场;

with kc,笔试 with bs,上机 with sj wait \是否继续添加?(Y/N)\

***********FOUND**********if rep=\ if★upper★(rep)=\ if rep=\

loop endif

***********FOUND**********store .f. to lp 或 store★.f.★to★lp store .t. to lp enddo clear

@ 10,30 say \再见!\ use

set talk on

64.题目：按姓名或专业查找任一学生，该程序有4处错误，请找出并改正，使程序能够正常运行。 SET TALK OFF CLEAR USE XS

DO WHILE .T.

ACCEPT \请选择：1．姓名 2．专业\ IF XZ=\

ACCEPT \请输入要查找的姓名：\

***********FOUND**********LOCATE★FOR★姓名=★XM LOCATE FOR 姓名= [XM] ELSE

IF XZ=\

***********FOUND**********ACCEPT★\ ACCEPT \请输入要查找的专业:\ ***********FOUND**********LOCATE★FOR★专业=ZC LOCATE FOR 职称=ZC ELSE

WAIT \选择错,按任意键继续\ ENDIF ENDIF

IF .NOT.EOF() DISPLAY ENDIF

WAIT \还继续查找吗 ?\ IF UPPER(AW)<>\

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

SET TALK ON

65.题目：从键盘输入人名，在XS库文件中查找该人，如找到改动其专业，否则结束程序，该程序有4处错误，请找出并改正，使程序能够正常运行。 CLEAR

USE XS

NAME=SPACE(8)

ACCEPT \请输入要改动学生的姓名: \ LOCAT FOR 姓名=NAME

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

@12,10 SAY \无此人\ USE

***********FOUND**********RETURN EXIT ENDIF

***********FOUND**********@15,10 SAY NAME ★GET 专业 @15,10 SAY NAME TO 专业 READ

***********FOUND**********USE CLOSE ALL

66.题目：将XS.DBF数据库中所有男同学依次显示出来。该程序有4处错误，请找出并改正，使程序能够正常运行。 SET TALK OFF USE XS

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

IF .NOT.性别=\男\ SKIP

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

DISPLAY OFF 姓名

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

***********FOUND**********ENDDO END LOOP USE …… 此处隐藏：881字，全部文档内容请下载后查看。喜欢就下载吧 ……