程序改错69题.docVIP

程序改错 注意：不可以增加或删除程序行，也不可以更改程序的结构。 1-44题每小题有2处错误。 1.计算1!+2!+3!+...+10! SET TALK OFF S=0 N=1 DO WHILE N=10 ?? STOR 1 TO I,P ?? DO WHILE I=N ????? P=P*N ????? I=I+1 ?? ENDDO ?? S=S+P ?? N=N+1 ENDDO ?S?? SET TALK ON RETURN 2.计算并在屏幕上显示出九九乘法表，显示格式如下： 1×1＝1 1×2＝2? 2×2＝4 1×3＝3? 2×3＝6? 3×3＝9 … … ??1×9＝9? …? 8×9＝72? 9×9＝81 SET TALK OFF CLEAR X=1 DO WHILE X=9 Y=1 ?DO WHILE Y=9 ??STR(X)+×+STR(Y)+=+STR(X*Y) ?? Y=Y*1 ?? ENDDO ? ? ? X=X+1 ENDDO SET TALK ON RETURN 3.根据输入的数据，计算不大于该数的奇数累加和。 SET TALK OFF CLEAR YN=Y DO WHILE UPPER(YN)=Y ??INPUT 请输入2位以内的整数 TO N ?? STORE 0 TO X,Y ?? Z= ?? DO WHILE XN ????? X=X+1 ????? IF INT(X/2)=X/2 ???????? EXIT ????? ELSE ????????? Z=Z+++STR(X,2) ????????? Y=Y+Z ????? ENDIF ?? ENDDO ?? ?Z+＝+STR(Y,4) WAIT 继续计算?(Y/N) TO YN ENDDO ?再见： SET TALK ON RETURN 4.通过临时数据LSH.DBF向学生数据库RS.DBF中追加数据记录。 SET TALK OFF USE RS COPY TO LSH USE LSH ZAP I=0 ANS=Y DO WHILE ANS=N OR n ?? CLEAR ?? I=I+1 ?? @10,1 SAY请输入第+STR(I,1)+添加记录的数据 ?? APPE BLANK ?? @11,1 SAY 编号： GET BH ?? @12,1 SAY 姓名： GET XM ?? @13,1 SAY 性别： GET XB ?? @14,1 SAY 出生年月： GET CS ?? READ ?? WAIT是否正确?(Y/N) TO ANS ?? IF UPPER(ANS)Y ????? I=I-1 ????? ANS=Y ????? LOOP ?? ENDIF ?? WAIT 继续添加?(Y／N) TO ANS ENDDO USE RS APPE? LSH CLEAR USE SET TALK ON RETURN 5.RS数据库中的工资。 SET TALK OFF USE RS YN=Y DO WHILE UPPER(YN)=Y CLEAR ?? WAIT? 请输入4位编号 TO NUM ?? IF NUM= ????? ?无效输入，请重新输入 ????? LOOP ?? ENDIF ?? FIND FOR NUM=BH ?? IF FOUND() ????? @10,10SAY XM ????? @10,40 SAY GZ ?? ELSE ?????? ?NUM,没找到 ?? ENDIF ?? WAIT 是否继续（Y/N） TO YN ENDDO USE RETURN 6.,按从小到大的顺序排序。 SET TALK OFF INPUT请第一个数的值: TO A INPUT请第二个数的值: TO B INPUT请第三个数的值: TO C IF AB ?? T=A ?? A=B ?? T=B ENDIF IF AC ?? T=A ?? A=C ?? C=T ENDIF IF BC ?? T=B ?? B=C ?? C=T ENDIF ? C,B,A SET TALK ON RETURN 7.对RS.DBF数据库按职称建立职称库，分别产生以职称为教授的数据库JS.DBF，职称为副教授的数据库FJS.DBF，职称为讲师的数据库JSHI.DBF，职称为助教的数据库ZJ.DBF，并用菜单形式显示，输入1时，显示数据库JS.DBF，输入2时，显示数据库FJS.DBF…。 SET TALK OFF USE RS COPY TO JS FOR ZC= COPY TO FJS FOR ZC=副教授 COPY TO JSHI FOR ZC=讲师 COPY TO ZJ FOR ZC=助教 @ 10,40 SAY 1:显示教授库信息 @ 11,4