程序改错69题答案(2)

IF I / 2 = INT ( I / 2) **********FOUND**********LOOP EXIT ENDIF Y = Y +I ENDDO ? X,Y

SET TALK ON RETURN

10.题目：在rs.dbf 中，查找职工王洋的工资，如果工资小于200元，则增加100元；如果工资大于等于200元且小于500元时，则增加50元；否则增加20元。最后显示王洋的姓名和工资。 SET TALK OFF CLEAR

USE RS.DBF

**********FOUND**********LOCATE★ FOR XM =★\\ LOCATE FOR XM =王洋 DO CASE

CASE GZ < 200

REPLACE GZ WITH GZ + 100 CASE GZ < 500

REPLACE GZ WITH GZ + 50 OTHERWISE

REPLACE GZ WITH GZ + 20 ENDCASE

**********FOUND**********DISPLAY★ XM,GZ LIST XM , GZ USE

SET TALK ON RETURN

11.题目：根据姓名查询rs.dbf 中的职工情况，如果有则显示该职工的内容，否则显示\查无此人，按任意键继续……\序。

SET TALK OFF CLEAR

USE RS.DBF DO WHILE .T.

ACCEPT \请输入要查询的职工姓名：\ LOCATE FOR XM = NAME

**********FOUND**********IF EOF ( ) IF BOF ( )

WAIT \查无此人，按任意键继续……\ ELSE

DISPLAY

ENDIF

WAIT \继续查询吗？（Y / N）\ IF UPPER (CX) <.> 'Y' **********FOUND**********EXIT LOOP ENDIF ENDDO USE

SET TALK ON RETURN

12.题目：查找rs.dbf 中女职工的工资最大值，并显示其姓名和工资。 SET TALK OFF CLEAR

USE RS.DBF MGZ = 0

MXM = SPACE (8)

**********FOUND**********SCAN ★FOR★ XB = \\ SCAN XB = \女\ IF MGZ< GZ MGZ = GZ MXM = XM ENDIF ENDSCAN

**********FOUND**********? MXM , MGZ ? XM , GZ USE

SET TALK ON RETURN

13.题目：统计rs.dbf 中职称是教授、副教授、讲师和助教的人数。 SET TALK OFF CLEAR

USE RS.DBF

**********FOUND**********STORE ★ 0 TO A , B , C , D STORE 1 TO A , B , C , D DO WHILE .NOT.EOF ( ) DO CASE

CASE ZC = \教授\ A = A + 1 CASE ZC = \副教授\ B = B + 1 CASE ZC = \讲师\ C = C + 1 CASE ZC = \助教\ D = D + 1

**********FOUND**********ENDCASE ENDDO SKIP ENDDO USE

? A,B,C,D SET TALK ON RETURN

14.题目：将0到100之间的所有能被2整除的数显示出来，并计算和显示不被2整除数之和的程序。 set talk off clear

**********FOUND**********s=0 s=1 i=0

do while i<=100

**********FOUND**********if int(i/2)=(i/2) if round(i/2)=(i/2) ??i else

s=s+i endif i=i+1 enddo ?\ set talk on return

15.题目：计算S=1!+2!+3!+4!+5!+6!+7!+8!+9!+10! 的程序 set talk off clear

store 0 to s store 1 to i,t do while i<=10

**********FOUND**********store ★1★ to j,t store 0 to j,t do while j<=i t=t*j j=j+1 enddo

**********FOUND**********s=t+s 或 s=s+★t s=s+j i=i+1 enddo ?\

set talk on return

16.题目：先从键盘输入10个同学的英语成绩(分数从0至100),然后找出最高和最低英语成绩的程序。 set talk off clear

input \请输入英语成绩(1--100):\ i=1

store n to min,max do while i<10

input \请输入英语成绩(1--100):\ do case

case m<0 .or. m>100

?\输入成绩有错，重新输入！\ **********FOUND**********loop skip

case maxm

**********FOUND**********min★=m min=n endcase i=i+1 enddo

?\最高英语成绩：\ ?\最低英语成绩：\ set talk on return

17.题目：判断一个自然数是否为质数，质数为仅能被1和自身整除的整数。 SET TALK OFF CLEAR

**********FOUND**********INPUT \请输入一个大于1的自然数:\ ACCEPT \请输入一个大于1的自然数:\

K=1 &&K的值为1表示所输入的自然数是质数,为0表示不是质数 J=2

DO WHILE J

**********FOUND**********IF MOD(N,J)★<>★0 IF MOD(N,J)=0 J=J+1 LOOP ELSE K=0 EXIT ENDIF

ENDDO CLEAR IF K=1

?STR(N,5)+\是质数\ ELSE

?STR(N,5)+\不是质数\ ENDIF

SET TALK ON RETURN

18.题目：从键盘输入一段字符(包含英文字母和数字),计算所含英文字母的个数。 SET TALK OFF CLEAR

AA=SPACE(40)

**********FOUND**********M=0 M=1

@10,10 SAY \请输入一段字符:\ READ

Y=LEN(TRIM(AA)) FOR X=1 TO Y

**********FOUND**********P=SUBSTR(AA,★X,1) P=SUBS(AA,1,X)

IF P>'A'.AND.P<'Z'.OR.P>'a'.AND.P<'z' M=M+1 ENDIF ENDFOR CLEAR

?\包含英文字母的个数是：\ SET TALK ON

19.题目：计算STUDENT.DBF库文件中每名考生的总分，并填入各记录的总分成绩中，再按班级对总分进行分类汇总存入SH.DBF文件中，并显示汇总后的结果。 SET TALK OFF CLEAR

USE STUDENT

**********FOUND**********★REPLACE★ ALL ZF WITH YY+SX+JSJ

或 ★REPLACE★ ALL ZF WITHYY+JSJ+SX 或 ★REPLACE★ ALL ZF WITH SX+YY+JSJ 或 ★REPLACE★ ALL ZF WITH SX+JSJ+YY 或 ★REPLACE★ ALL ZF WITH JSJ+SX+YY 或 ★REPLACE★ ALL ZF WITH JSJ+YY+SX

REPL ZF WITH YY+SX+JSJ INDEX ON BJ TO BJ

**********FOUND**********★TOTAL★ ON BJ TO SH ★FIELDS★ ZF SORT ON BJ TO SH FIELDS ZF USE SH