程序改错69题答案(4)

21.题目：打开数据库XSDB.DBF, 统计学生总人数, 计算机平均成绩，英语平均成绩，奖学金总额等，然后在该数据库后追加一个空记录，将系别字段添入\统计结果\，将姓名字段填入统计的总人数、英语和计算机字段添入其平均成绩、奖学金字段填入统计的总金额。 SET TALK OFF CLEAR USE XSDB COUN TO RS

**********FOUND**********AVERAGE★ 计算机,★英语 TO JSJ,YY AVERAGE 计算机 TO JSJ,英语 TO YY SUM 奖学金 TO JXJ APPEND BLAN

REPLACE 系别 WITH \统计结果\

REPLACE 计算机 WITH JSJ,英语 WITH YY,奖学金 WITH JXJ **********FOUND**********REPLACE★ 姓名 WITH ★STR(RS,3) REPLACE 姓名 WITH RS USE RETURN

22.题目：通过选择菜单中的操作, 根据输入的记录号对库文件XSDB.DBF中指定记录进行相应的操作。 USE XSDB DO WHILE .T.

?\插入记录 2-修改记录 3-显示记录\ ?\逻辑删除 5-恢复记录 0-结束程序\

INPUT \请选择(1,2,3,4,5,0):\

**********FOUND**********IF ★ANS>0★.AND.★ANS<=5★

或 IF ★ANS>0★.AND.★5>=ANS★ 或 IF ★0=ANS★

IF ANS>0.OR.ANS<=5

INPUT \请输入记录号:\ GO JLH ENDIF DO CASE

CASE ANS=1 INSE CASE ANS=2 EDIT CASE ANS=3 DISP CASE ANS=4 DELE CASE ANS=5

**********FOUND**********RECALL PACK OTHERWISE

EXIT ENDCASE ENDDO USE RETURN

23.题目：修改XSDB.DBF中的数据，先接收用户输入的记录号, 然后定位到该记录，修改计算机、英语、奖学金三个字段的值，通过用户确认继续修改或退出。 USE XSDB

DO WHILE .NOT. EOF() CLEAR

INPUT \请输入要修改的记录号:\

**********FOUND**********GOTO ★JLH 或 GO JLH GO &JLH

@4,1 SAY \计算机成绩:\计算机 @6,1 SAY \英语成绩:\英语 @8,1 SAY \奖学金:\奖学金 **********FOUND**********READ ACCEPT ANS=\

@10,10 SAY \继续修改吗(Y/N)?\ READ

IF ANS<>\

EXIT ENDIF ENDDO USE RETURN 24.题目：接收用户输入的姓名，在XSDB.DBF中查找学生记录, 如果找到则修改该记录, 否则显示:\查无此人!\。根据用户的确认继续查找或退出。 USE XSDB DO WHILE .T.

ACCEPT \请输入学生姓名:\ LOCATE FOR 姓名=NAME IF .NOT. FOUND() ?\查无此人!\ ELSE

**********FOUND**********EDIT 或 BROWSE DISP ENDIF

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

**********FOUND**********IF UPPER(GOON)=\或 LOWER(GOON)=\ IF GOON=\ CLEAR LOOP ELSE EXIT ENDIF ENDDO USE RETURN

25.题目：将200到300之间的所有能被3整除或被5整除的数求和并统计个数。 SET TALK OFF CLEAR

STORE 0 TO S,C I=200

DO WHILE I<=300

**********FOUND**********IF INT(I/3)=I/3★.OR.★INT(I/5)=I/5

或 IF MOD(I,3)=0★.OR.★MOD(I,5)=0 或 IF X%3=0 ★AND★ X%5=0

或 IF INT(I/5)=I/5★.OR.★INT(I/3)=I/3 或 IF MOD(I,5)=0★.OR.★MOD(I,3)=0 或 IF X%5=0 ★AND★ X%3=0

IF INT(I/3)=INT(I/5) S=S+I C=C+1 ENDIF

I=I+1 ENDDO

**********FOUND**********?\到300之间的所有能被3整除或被5整除的数之和=\

?\到300之间的所有能被3整除或被5整除的数之和=\

?\到300之间的所有能被3整除或被5整除的数的个数=\ SET TALK ON RETURN

26.题目：接收键盘输入的任意5个整数(不超过3位数), 找出其中的最大数和最小数并显示。

INPUT \请输入第一个数:\ STORE X TO MA, MI N=5

**********FOUND**********DO ★WHILE★ N>1 或 DO ★WHILE★ 1=5

INPUT \请输入下一个数:\ IF MAX MI=X ENDIF N=N-1 ENDDO

**********FOUND**********?\最大数:\ ?\最大数:\最小数:\ RETURN

27.题目：依次判别XSDB.DBF中学号为偶数的记录, 将其加上逻辑删除标记, 并将它们拷贝新的数据库NEW.DBF中, 再把原数据库中逻辑删除标记恢复。然后统计NEW.DBF中记录的个数并显示。 SET TALK OFF USE XSDB

DO WHILE .NOT.EOF() XH=VAL(学号)

**********FOUND**********IF INT★(XH/2)★=XH/2 或 IF MOD(XH,2)=★0 或 IF ★XH%2★=★0

IF MOD(XH,2)=XH/2 DELE ENDIF SKIP ENDDO

COPY TO NEW FOR DELE()

**********FOUND**********RECALL★ ALL REPLACE

USE NEW COUN TO NUM ?NUM USE

SET TALK ON RETURN

28.题目：从键盘输入十个非零整数，统计能被3整除的数的个数。 SET TALK OFF CLEAR

**********FOUND**********I=0 I=1 A=0

DO WHILE I<10

INPUT \请输入一个整数:\

**********FOUND**********IF INT(N/3)=★N/3 IF (N/3)=0 A=A+1 ENDIF I=I+1 ENDDO ?A

SET TALK ON

29.题目：显示XSDB.DBF中每个学生的姓名、计算机成绩和等级；等级划分如下：计算机成绩大于等于90显示\优秀\；60（含60）~89之间显示\及格\；低于60分，显示\补考\。如显示：张丽娜 90 优秀 。 SET TALK OFF USE XSDB

DO WHIL .NOT. EOF()

**********FOUND**********? 姓名,计算机 LIST 姓名,计算机 DO CASE

CASE 计算机>=90 ??'优秀' CASE 计算机>=60 ??'及格' OTHERWISE

??'补考' ENDCASE

**********FOUND**********SKIP GO NEXT ENDDO USE RETURN

30.题目：分别统计XSDB中英语和计算机平均成绩大于80分的男、女生人数，并将79年