vfp程序改错doc.docx

1、vfp程序改错docVisual Foxpro 程序改错第 1 题 ( 练习题所在文件夹 :163)*题目：该程序完成口令检验功能。输入三次不正确退出。*注意：不可以增加或删除程序行，也不可以更改程序的结构。SET TALK OFFCLEARass1=AbCdEfTT=1DO WHILE TT410,20 SAY 请输入口令 :SET CONSOLE OFFACCEPT TO assSET CONSOLE ON*FOUND*IF ass1=assCLEAR欢迎使用本系统 !*FOUND*LOOP ELSE*FOUND*TT=TT-1CLEAR 口令错，按任意键再输入一次！ WAIT ENDIF

2、ENDDORETURN答案：1).IF UPPER(ass1)=UPPER(ass)或 IF UPPER(ass1)=UPPER(ass)2).EXIT3).TT=TT+1或 TT=1+TT第 4 题 ( 练习题所在文件夹 :500)* 题目：是一个职工信息文件，其中包含编号 (C 5) 、姓名* (C 8) 、性别 (C 2) 、政治面貌 (C 4) 、出生日期 (D 8)等字*段。性别用字符串 男 或 女 表示，政治面貌用字符串 *党员 、 团员 或 群众 表示。此文件已按政治面貌建立*了索引，索引文件名是。* 程序功能是：显示输出所有政治面貌为 群众 的女职工的*姓名和出生日期（每行输出

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

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

5、OR 姓名 =姓名 = 赵红 或 LOCA FOR 姓名 = 赵红 或 LOCA 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+1s=s+ienddos=,s答案：1). do while i=99 或 do wh

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

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

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

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

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

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

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

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

14、序的结构。set talk offclearUSE STUDENTLOCATE FOR政治面貌 = 群众 *FOUND*DO WHILE .not. FOUND()IF 性别 = 女CONTINUE*FOUND*breakENDIF姓名 ,班级*FOUND*skipENDDOUSESET TALK ON答案：1).DO WHILE FOUND()或 DO WHIL .()2).LOOP3).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)*题目：从键盘输入一个

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

17、可以更改程序的结构。set talk 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 ON RETURN答案：1).DO WHILE C=10或 DO WHILE C112).I=I*2或 I=-I*(-2)3).ENDD或 ENDDO第 23 题 ( 练习题所在文件夹 :156)*题目：求 1+5+9+13+ +97 的和。*注意：不可以增加或删除程序行，也不可以更改程序的结构。SET TALK OFFS=0*FO

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

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

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

21、在文件夹 :196)*题目：分别统计化学系的男、女生总人数并显示出来。*注意：不可以增加或删除程序行，也不可以更改程序的结构。USE XSDBSTOR 0 TO RS1,RS2*FOUND*FIND FOR 系别 = 化学 DO WHILE .()*FOUND*IF 性别 男 RS1=RS1+1ELSERS2=RS2+1ENDIFCONTENDDO男生人数 =,RS1女生人数 =,RS2USE答案：1).2).LOCATE FOR 系别 = 化学 或 LOCATE ALL FOR系别 = 化学 IF 性别 = 男 或 IF 性别 女第 30 题 ( 练习题所在文件夹 :187)* 题目：从键盘输入十个非零整数，统计能被 3 整除的数的个数。*注意：不可以增加或删除程序行，也不可以更改程序的结构。STORE 0 TO I,A*FOUND*DO WHILE I=10INPUT 请输入一个整数 : TO N*FOUND*IF MOD(N/3)=0A=A+1ENDIFI=I+1ENDDOA答案：1).DO WHILE I10或 DO WHILE I=92).IF MOD(N,3)=0或 I N%3=0 或 IF INT(N/3)=N/3第