vfp程序改错.doc

《vfp程序改错.doc》由会员分享，可在线阅读，更多相关《vfp程序改错.doc（27页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、如有侵权，请联系网站删除，仅供学习与交流vfp程序改错【精品文档】第 27 页Visual Foxpro程序改错第1题(练习题所在文件夹:163)*题目：该程序完成口令检验功能。输入三次不正确退出。*注意：不可以增加或删除程序行，也不可以更改程序的结构。SET TALK OFFCLEARass1=AbCdEfTT=1DO WHILE TT410,20 SAY 请输入口令:SET CONSOLE OFFACCEPT TO assSET CONSOLE ON*FOUND*IF ass1=ass CLEAR ?欢迎使用本系统!*FOUND* LOOPELSE*FOUND* TT=TT-1 CLEAR

2、 ?口令错，按任意键再输入一次！ WAIT ENDIFENDDORETURN答案： 1). IF UPPER(ass1)=UPPER(ass) 或 IF UPPER(ass1)=UPPER(ass) 2). EXIT 3). TT=TT+1 或 TT=1+TT第4题(练习题所在文件夹:500)*题目：ZHG.DBF是一个职工信息文件，其中包含编号(C 5)、姓名* (C 8)、性别(C 2)、政治面貌(C 4)、出生日期(D 8)等字* 段。性别用字符串男或女表示，政治面貌用字符串* 党员、团员或群众表示。此文件已按政治面貌建立* 了索引，索引文件名是ZHG_ZHZH.IDX。* 程序功能是：

3、显示输出所有政治面貌为群众的女职工的* 姓名和出生日期（每行输出一个职工的信息）在屏幕上*注意：不可以增加或删除程序行，也不可以更改程序的结构。set talk offclear*FOUND*USE ZHGSEEK 群众*FOUND*DO WHILE !EOF()IF 性别=女DISP 姓名,出生日期*FOUND*ENDDSKIPENDDOUSESET TALK ON答案： 1). USE ZHG INDEX ZHG_ZHZH 2). DO WHILE政治面貌=群众 或 DOWHILE政治面貌=群众 或 DOWHILE政治面貌=群众 3). ENDIF第5题(练习题所在文件夹:105)*题目：

4、在RSH.dbf 中，查找职工赵红的工资，如果工资小于200元，* 则增加100元；如果工资大于等于200元且小于500元时，则增* 加50元；否则增加20元。最后显示赵红的姓名和工资。*注意：不可以增加或删除程序行，也不可以更改程序的结构。CLEARUSE RSH*FOUND*LOCATE FOR 姓名 =赵红DO CASE CASE 工资 200 REPLACE 工资 WITH 工资+ 100 CASE 工资 500 REPLACE 工资 WITH 工资+ 50 OTHERWISE REPLACE 工资 WITH 工资+ 20ENDCASE*FOUND*LIST 姓名,工资USE答案： 1

5、). LOCATE FOR 姓名=赵红 或 LOCA FOR 姓名=赵红 或 LOCA FOR 姓名=赵红 或 LOCATE FOR 姓名=赵红 或 LOCA FOR 姓名=赵红 或 LOCATE FOR 姓名=赵红 2). DISP 姓名,工资 或 ?姓名,工资 或 DISPLAY 姓名,工资第6题(练习题所在文件夹:174)*题目：计算S=2+4+6+.+98+100的程序。*注意：不可以增加或删除程序行，也不可以更改程序的结构。store 0 to s,i*FOUND*do i=99*FOUND*i=i+1 s=s+ienddo?s=,s答案： 1). do while i=99 或 d

6、o while i100 或 dowhilei=98 或 dowhilei0*FOUND*X1=(X2+1)/2X2=X1*FOUND*DAY=DAY+1ENDDO? 第一天摘下,X1,个桃子SET TALK ON答案： 1). X2=1 2). X1=(X2+1)*2 3). DAY=DAY-1第8题(练习题所在文件夹:175)*题目：打开XSDB.DBF数据表, 分别统计男、女生的人数。*注意：不可以增加或删除程序行，也不可以更改程序的结构。USE XSDBSTOR 0 TO B,GDO WHILE .NOT.EOF()*FOUND*IF 性别男 B=B+1*FOUND*ENDIFG=G+

7、1 ENDIF SKIPENDDO?男生人数是：+STR(B)?女生人数是：+STR(G)答案： 1). IF 性别=男 或 IF 性别女 2). ELSE第9题(练习题所在文件夹:188)*题目：显示XSDB.DBF中每个学生的姓名、计算机成绩和等级；等* 级划分如下：计算机成绩大于等于90显示优秀；60到89* （包括 60和89）之间显示及格；60分以下显示补考。* 如显示：张丽娜 90 优秀 。*注意：不可以增加或删除程序行，也不可以更改程序的结构。USE XSDBDO WHIL .NOT. EOF()*FOUND* LIST 姓名,计算机 DO CASE CASE 计算机=90 ?优

8、秀 CASE 计算机=60 ?及格 OTHERWISE ?补考 ENDCASE*FOUND* GO NEXTENDDOUSE答案： 1). ? 姓名,计算机 或DISPLAY姓名,计算机 2). SKIP 或 SKIP 1第10题(练习题所在文件夹:191)*题目：从键盘上输入5个数，将其中奇数求和,偶数求积。*注意：不可以增加或删除程序行，也不可以更改程序的结构。S1=0*FOUND*S2=0FOR I=1 TO 5 INPUT 请输入第+STR(I,1)+ 数 TO M*FOUND* IF INT(M/2)=0 S1=S1+M ELSE S2=S2*M ENDIFENDFOR? 奇数和是,

9、S1? 偶数积是,S2答案： 1). S2=1 或 STOR 1 TO S2 2). IF MOD(M,2)0 或 IF MOD(M,2)#0 或 IF INT(M/2)M/2 或 IF INT(M/2)#M/2 或 IF M%2 0 或 IF M%2!=0 或 IF M%2#0第11题(练习题所在文件夹:182)*题目：在XSDB.DBF中查找学生徐秋实的记录, 如果找到则将该记录* 的系别、姓名,两科科目名称和对应的成绩显示在屏幕上，否则* 显示:查无此人!。*注意：不可以增加或删除程序行，也不可以更改程序的结构。USE XSDB*FOUND*FIND FOR 姓名=徐秋实IF .NOT.

10、FOUND()?查无此人!ELSE*FOUND*?系别,姓名, 计算机=+计算机, 英语=+英语ENDIFUSERETURN答案： 1). LOCATE FOR姓名=徐秋实 或 LOCATE AL LFOR姓名=徐秋实 2). ? 系别,姓名,计算机=+STR(计算机),英语=+STR(英语) 或 ?系别,姓名,计算机=,计算机, 英语=,英语 第13题(练习题所在文件夹:161)*题目：从键盘输入一个表名，打开该表文件，移动记录指针到* 文件头，输出当前记录号；在移动记录指针到文件尾，* 输出当前记录号。*注意：不可以增加或删除程序行，也不可以更改程序的结构。SET TALK OFFACCE

11、PT TO A*FOUND*FIND AGO TOP*FOUND*NEXT? RECNO( )GO BOTTOM*FOUND*NEXT -1? RECNO( )USESET TALK ON答案： 1). USE(A) 或 USE&A 2). SKIP-1 3). SKIP 或 SKIP 1第14题(练习题所在文件夹:162)*题目：从键盘输入一个表文件名，打开该表， 查找姓名是* 张东的记录，并显示该记录， 最后输出姓名是张* 东的记录个数。(设被打开的表中有固定字段姓名)*注意：不可以增加或删除程序行，也不可以更改程序的结构。SET TALK OFFACCEPT TO AUSE &A*FOU

12、ND*N=1SCAN FOR 姓名= 张东*FOUND* LIST N=N+1ENDSCAN*FOUND*? 记录个数是,NUSESET TALK ON答案： 1). N=0 或 Store0ToN 2). DISPLAY 或 DISP 3). ? 记录个数是,N 或 ? 记录个数是,str(N) 第16题(练习题所在文件夹:92)*题目：求X =1+2+3+ +100，并同时求出 1到100 之间的奇数之和Y，* 而且显示输出这两个和。*注意：不可以增加或删除程序行，也不可以更改程序的结构。CLEARSTORE 0 TO I , X , Y*FOUND*DO WHILE I=100I = I

13、+1X =X+IIF I/2 = INT(I/2)*FOUND* EXITENDIFY=Y+IENDDO?X,YRETURN答案： 1). DO WHILE I100 或 DO WHILE I=99 2). LOOP第17题(练习题所在文件夹:501)*题目:STUDENT.DBF是一个学生信息文件，包含学号(C 8)、* 姓名(C 8)、性别(C 2)、政治面貌(C 4)、班级(C 5)* 等字段；其中性别用字符串男或女表示，政治面貌* 用字符串党员、团员或群众表示。* 程序的功能是：显示输出所有政治面貌为群众的男生姓* 名和班级。*注意：不可以增加或删除程序行，也不可以更改程序的结构。se

14、t talk offclearUSE STUDENTLOCATE FOR 政治面貌=群众*FOUND*DO WHILE .not. FOUND()IF 性别=女CONTINUE*FOUND*breakENDIF? 姓名,班级*FOUND*skipENDDOUSESET TALK ON答案： 1). DO WHILE FOUND() 或DO WHIL .not.eof() 2). LOOP 3). CONTINUEx第19题(练习题所在文件夹:148)*题目：从键盘上输入任意一串字符，判断是否回文。* 例如：MUM、456654，MADAM。*注意：不可以增加或删除程序行，也不可以更改程序的结构

15、。SET TALK OFFACCEPT A= TO AL=LEN(A)FLAG=1I=1*FOUND*DO WHILE FLAG=1 OR I=INT(L/2)*FOUND*IF SUBS(A,I,1)SUBS(A,L-I,1)FLAG=0ENDIFI=I+1ENDDO*FOUND*IF FLAG=0? 是回文ELSE? 不是回文ENDIFCANCEL答案： 1). DO WHILE FLAG=1 AND I=INT(L/2) 2). IF SUBSTR(A,I,1)SUBSTR(A,L-I+1,1) 3). IF FLAG=1第20题(练习题所在文件夹:189)*题目：从键盘输入一个数X，当

16、X大于0、Y的值为1；当X等于0、Y的* 值为0；当X小于0、Y的值为-1, 然后输出Y的值。*注意：不可以增加或删除程序行，也不可以更改程序的结构。INPUT 输入一个数X： TO X*FOUND*IF X0 IF X0Y=1 ELSEY=0 ENDIFELSE Y=-1ENDIF*FOUND*?Y=Y答案： 1). IF X=0 或 IF 0=X 2). ? Y=,Y 或? Y=+STR(Y) 第22题(练习题所在文件夹:505)*题目:计算并显示输出数列1,-1/2, 1/4, -1/8, 1/16 的* 前10项之和。*注意：不可以增加或删除程序行，也不可以更改程序的结构。set ta

17、lk offclearY=0STORE 1 TO I,C*FOUND*DO WHILE I=10Y=Y+(-1)(C+1)/I*FOUND*I=-I*2C=C+1*FOUND*ENDIF? 数列前10项之和为:,YSET TALK ONRETURN答案： 1). DO WHILE C=10 或 DO WHILE C11 2). I=I*2 或 I=-I*(-2) 3). ENDD 或 ENDDO第23题(练习题所在文件夹:156)*题目：求1+5+9+13+97的和。*注意：不可以增加或删除程序行，也不可以更改程序的结构。SET TALK OFFS=0*FOUND*N=0DO WHILE N1

18、0 P=p*I*FOUND* If int(i/2)=i/2 T=t+p Endif I=I+1Enddo?t=,t答案： 1). t=0 2). do while i10 3). != 或 或 #第25题(练习题所在文件夹:168)*题目：查找RSH.dbf 中女职工的最高工资，并显示其姓名和工资。*注意：不可以增加或删除程序行，也不可以更改程序的结构。*FOUND*OPEN RSHMGZ = 0DO WHILE .NOT.EOF()*FOUND*IF 性别=女,MGZ工资 MGZ=工资 MXM=姓名ENDIF*FOUND*CONTENDDO?MXM,MGZUSE答案： 1). USERSH

19、 2). IF 性别=女.and. MGZ工资 3). SKIPx第26题(练习题所在文件夹:154)*题目：以下程序输出如下图所示的图形。*注意：不可以增加或删除程序行，也不可以更改程序的结构。SET TALK OFFI=4DO WHILE I10*FOUND* IF INT(I/2)=I/2 I=I*2 ELSE I=I-1 ENDIF FOR J=1 TO I*FOUND* IF J/2=0 ELSE*FOUND* ENDDO ENDFORENDDORETURN答案： 1). IF INT(I/2)I/2或 IF MOD(I,2)=1 或 IF I%2=1 2). IF J%2=1 或

20、IF mod(j,2)=1 3). ENDIF 或 ENDI第27题(练习题所在文件夹:190)*题目：计算出1到50以内（包含50）能被2和3整除的数之和。*注意：不可以增加或删除程序行，也不可以更改程序的结构。STOR 0 TO X ,Y*FOUND*DO WHILE NOT EOF() X=X+1 DO CASE*FOUND* CASE MOD(X,2)=0 or MOD(X,3)=0 Y=Y+XCASE X50 EXIT ENDCASEENDDO?Y答案： 1). DO WHILE .T. 2). and 3). LOOP第29题(练习题所在文件夹:196)*题目：分别统计化学系的男、

21、女生总人数并显示出来。*注意：不可以增加或删除程序行，也不可以更改程序的结构。USE XSDBSTOR 0 TO RS1,RS2*FOUND*FIND FOR 系别=化学DO WHILE .NOT.EOF()*FOUND* IF 性别男 RS1=RS1+1 ELSE RS2=RS2+1 ENDIF CONTENDDO? 男生人数=,RS1? 女生人数=,RS2USE答案： 1). LOCATE FOR系别=化学 或 LOCATE ALL FOR系别=化学 2). IF 性别=男 或 IF 性别女 第30题(练习题所在文件夹:187)*题目：从键盘输入十个非零整数，统计能被3整除的数的个数。*注

22、意：不可以增加或删除程序行，也不可以更改程序的结构。STORE 0 TO I,A*FOUND*DO WHILE I=10INPUT 请输入一个整数: TO N*FOUND* IF MOD(N/3)=0 A=A+1 ENDIF I=I+1ENDDO?A答案： 1). DO WHILE I10 或 DO WHILE I=9 2). IF MOD(N,3)=0 或 I N%3=0 或 IF INT(N/3)=N/3第31题(练习题所在文件夹:152)*题目：从键盘上输入5个数，统计其中奇数的个数。*注意：不可以增加或删除程序行，也不可以更改程序的结构。SET TALK OFFA=0FOR J=1 T

23、O 5*FOUND* ACCEPT 请输入第+STR(J,2)+ 数 TO M*FOUND* IF INT(M/2)=M/2 A=A+1 ENDIFENDFOR*FOUND*?奇数个数是,ACANCEL答案： 1). INPUT 请输入第+STR(J,2)+ 数 TO M 2). IF INT(M/2)#M/2 或 IF INT(M/2)!=M/2 或 IF INT(M/2)M/2 3). ? 奇数个数是,A 或 ? 奇数个数是,str(A) 第32题(练习题所在文件夹:157)*题目：求2!+4!+6!+10!的和。*注意：不可以增加或删除程序行，也不可以更改程序的结构。SET TALK O

24、FFS=0*FOUND*T=0FOR N=2 TO 10*FOUND*T=T*(T-1)IF N%2=0*FOUND*S=S+NENDIFENDFOR? S答案： 1). T=1 2). T=T*N 或 T=N*T 3). S=S+T 或 S=T+S第33题(练习题所在文件夹:46)*题目:计算并在屏幕上显示出九九乘法表，显示格式如下*111*212 224*313 326 339*919 9872 9981*程序中共有2个错误，请修改下面一条语句的错误，并调试运行。*注意：不可以增加或删除程序行，也不可以更改程序的结构。X=1DO WHILE X=9Y=1*FOUND*DO WHILE Y=

25、9?STR(X,1)+STR(Y,1)+=+STR(X*Y,2)+ Y=Y+1ENDDO*FOUND*dispX=X+1ENDDO答案： 1). DO WHILE Y=Y 2). ?第34题(练习题所在文件夹:153)*题目：表XSDA.DBF结构为：学号（C，6），姓名（C，6），* 性别（C，2），入学成绩（N，6，2）。* 本程序实现按学号查找记录，直到输入#为止。*注意：不可以增加或删除程序行，也不可以更改程序的结构。SET TALK OFFUSE XSDA*FOUND*ACCEPT 请输入要查找的学号 ON XHDO WHILE XH!= #*FOUND* LOCATE FOR 学号

26、=CJ IF FOUND() ?学号,姓名,入学成绩 ELSE ? 无此学号 ENDIF ACCEPT 请继续输入要查找的学号 TO XH*FOUND*ENDFOR?谢谢使用本查找系统USESET TALK ON答案： 1). ACCEPT 请输入要查找的学号 TO XH 或 ACCEPT 请输入要查找的学号 TO XH 或 ACCEPT 请输入要查找的学号 TO XH 2). LOCATE FOR 学号=XH 或 LOCA FOR 学号=XH 3). ENDDO第35题(练习题所在文件夹:166)*题目：计算出1-30以内（包含30）能被5整除的数之和。*注意：不可以增加或删除程序行，也不可

27、以更改程序的结构。CLEARSET TALK OFFX=0*FOUND*Y=1DO WHILE .T. X=X+1 DO CASE CASE MOD(X,5)=0 Y=Y+X CASE X30*FOUND* LOOP ENDCASEENDDO?YSET TALK ON答案： 1). Y=0 或 STORE0TOY 2). LOOP 3). EXIT 或 Quit第37题(练习题所在文件夹:186)*题目：接收键盘输入的任意5个整数(不超过3位数), 找出其中的最* 大数并显示。程序中共有2个错误。*注意：不可以增加或删除程序行，也不可以更改程序的结构。INPUT 请输入第一个数: TO XST

28、ORE X TO MAN=5*FOUND*DO WHILE N=5 INPUT 请输入下一个数: TO X IF MA=2 或 DO WHIL N1 2). ?最大数=+STR(MA,3) 或第38题(练习题所在文件夹:151)*题目：本程序计算1!3!9!的乘积。*注意：不可以增加或删除程序行，也不可以更改程序的结构。SET TALK OFFM=1*FOUND*S=0DO WHILE M=9I=1P=1*FOUND*DO WHILE M=9P=P*II=I+1ENDDOS=S*P*FOUND*M=M+3ENDDO? 1!3!9!=,SSET TALK ONRETURN答案： 1). S=1

29、2). DO WHILE I=I 3). M=M*3第39题(练习题所在文件夹:180)*题目：用循环程序计算XSDB.DBF中法律系学生的计算机平均成绩、* 英语平均成绩和奖学金总额。*注意：不可以增加或删除程序行，也不可以更改程序的结构。USE XSDBSTORE 0 TO JSJ,YY,JXJ,RSLOCA FOR 系别=法律*FOUND*DO WHILE FIND() JSJ=JSJ+计算机 YY=YY+英语 JXJ=JXJ+奖学金RS=RS+1CONTENDDO*FOUND*?JSJ,YY,JXJ答案： 1). do while FOUN() 或 do while .NOT.EOF(

30、) 或 do while !EOF() 或 do while NOT EOF() 或 do while FOUND() 2). ?JSJ/RS,YY/RS,JXJ第41题(练习题所在文件夹:504)*题目:ZHG.DBF是一个职工信息文件，其中包含编号(C 5)、姓名* (C 8)、性别(C 1)、基本工资(N 8.2)等字段。其中的性* 别用代码M表示男、F表示女。* 程序功能是：按基本工资由高到低的顺序显示输出所有职* 工的姓名、性别和基本工资，每行输出一个职工的信息，其* 中性别输出汉字男或女。*注意：不可以增加或删除程序行，也不可以更改程序的结构。Set talk offClearUs

31、e ZHGINDEX ON 基本工资 To ZHG_GZ.IDXUSE ZHG INDEX ZHG_GZ*FOUND*GO TOPDO WHILE .NOT.BOF()? 姓名+ *FOUND*? IF 性别M THEN 女? ,基本工资*FOUND*SKIPENDDOUSESET TALK ON答案： 1). GOBOTTOM 2). ? IIF(性别M,女,男) 或 3). SKIP-1第42题(练习题所在文件夹:185)*题目：将200到300之间的所有能被3整除或被5整除的数求和并统计个数。*注意：不可以增加或删除程序行，也不可以更改程序的结构。STORE 0 TO S,CI=200D

32、O WHILE I=300*FOUND* IF INT(I/3)=INT(I/5)S=S+I*FOUND* C=C+I ENDIF I=I+1ENDDO?200到300之间的所有能被3整除或被5整除的数之和=+STR(S,6)?200到300之间的所有能被3整除或被5整除的数的个数=+STR(C,6)答案： 1). IF INT(I/3)=I/3 .OR. INT(I/5)=I/5或 IF MOD(I,5)=0 .OR. MOD(I,3)=0 2). C=1+C 或 C=C+1 第43题(练习题所在文件夹:57)*题目：计算1!+3!+9!的结果并输出。*注意：不可以增加或删除程序行，也不可以更改程序