VF复习题 实验改错题由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vf复习之改错题”。
『Visual ForPro——程序改错『题干』
*【程序改错】** *题目:将XSDB.DBF表中奖学金超过60元的学生姓名和奖学金显示 在屏幕上。*注意：不可以增加或删除程序行，也不可以更改程序的结构。USE XSDB ***********FOUND********** IF 奖学金>“60” DO WHILE.NOT.EOF()***********FOUND********** ?“姓名=”+姓名,“奖学金=”+奖学金 CONT ENDDO USE 『图片数目』：0张 『文件数目』：1张 『错误答案』：LOCATE FOR 奖学金>60 或 LOCA FOR 奖学金>60 或 LOCA FOR 60
?“姓名=”+姓名,“奖学金=”+★STR★(奖学金,4,1)或 ?“姓名=”+姓名,“奖学金=”+★STR★(奖学金)或 ?“姓名=”+姓名,“奖学金=”,★STR★(奖学金)或 ?“姓名=”+姓名,“奖学金=”,奖学金 2 『Visual ForPro——程序改错』
『题干』 *【程序改错】** *题目：通过键盘输入一个数N,计算2^2+4^4+……+N^N 的值并显示输出。*注意：不可以增加或删除程序行，也不可以更改程序的结构。T=0 I=2 INPUT “N=” to N ***********FOUND********** DO WHILE.NOT.EOF()T=T+I^I ***********FOUND********** I=I+T ENDDO ?“TOTAL=”,T 『图片数目』：0张 『文件数目』：0张 『错误答案』：DO ★WHILE★ I=I 2 I=★2+I 或 I=★I+2 3 『Visual ForPro——程序改错』
『题干』 *【程序改错】** *题目：通过字符串变量操作先竖向显示“伟大祖国”，再横向显示 * “祖国伟大”。
*注意：不可以增加或删除程序行，也不可以更改程序的结构。STORE “伟大祖国”TO XY CLEA ***********FOUND********** N=0 DO WHILE N
『题干』 *【程序改错】** *题目:计算并在屏幕上显示出“九九乘法表”，显示格式如下 *1×1＝1 *2×1＝2 2×2＝4 *3×1＝3 3×2＝6 3×3＝9 *9×1＝9 … 9×8＝72 9×9＝81 *程序中共有2个错误，请修改下面一条语句的错误，并调试运行。*注意：不可以增加或删除程序行，也不可以更改程序的结构。X=1 DO WHILE X
DO ★WHILE★ Y=Y 或 DO ★WHIL★ Y=Y 2 ? 5『Visual ForPro——程序改错』
『题干』 *【程序改错】** *题目：在XSDB.DBF表中统计法律和中文两个系的总人数和奖学金总额。*注意：不可以增加或删除程序行，也不可以更改程序的结构。USE XSDB STORE 0 TO R,S DO WHILE.T.***********FOUND********** IF 系别=“法律”.AND.系别=“中文” STORE S+奖学金 TO S R=R+1 ENDIF SKIP ***********FOUND********** IF.NOT.FOUN()EXIT ENDIF ENDDO ?S,R USE 『图片数目』：0张 『文件数目』：1张 『错误答案』：IF 系别=“法律”★.OR.★系别=“中文” 或 IF 系别=“法律” ★OR★ 系别=“中文” 或 IF 系别=“中文”★.OR.★系别=“法律” 2 IF EOF()6『Visual ForPro——程序改错』
『题干』 *【程序改错】** *题目：计算1!+3!+9!的结果并输出。
*注意：不可以增加或删除程序行，也不可以更改程序的结构。M=1 S=0 DO WHILE M
DO WHILE I>M P=P*I I=I+1 ENDDO S=S+P ***********FOUND********** M=M+3 ENDDO ? “1!+3!+9!=”,S 『图片数目』：0张 『文件数目』：0张 『错误答案』：DO ★WHILE★ I=I 或 DO ★WHIL★ I=I 2 M=M*3 或 M=3*M 7 『Visual ForPro——程序改错』
『题干』 *【程序改错】** *题目：求X =1+2+3+… +100，并同时求出 1到100 之间的奇数之和Y，* 而且显示输出这两个和。
*注意：不可以增加或删除程序行，也不可以更改程序的结构。CLEAR STORE 0 TO I , X , Y ***********FOUND********** DO WHILE I
DO WHILE I★
『题干』 *【程序改错】** *题目：在RSH.dbf 中，查找职工赵红的工资，如果工资小于200元，* 则增加100元；如果工资大于等于200元且小于500元时，则增 * 加50元；否则增加20元。最后显示赵红的姓名和工资。*注意：不可以增加或删除程序行，也不可以更改程序的结构。CLEAR USE RSH ***********FOUND********** LOCATE FOR 姓名 =赵红 DO CASE CASE 工资
LOCATE★ FOR 姓名=★“赵红” 或 LOCA FOR 姓名=★'赵红' 或 LOCA FOR 姓名=★“赵红” 2 DISP 姓名,工资 或 ?姓名,工资 或 DISPLAY 姓名,工资 9『Visual ForPro——程序改错』
『题干』*【程序改错】** *题目：根据姓名查询RSH.dbf中的职工情况，如果有则显示该职工的 * 工资和职称，否则显示“查无此人!”。
*注意：不可以增加或删除程序行，也不可以更改程序的结构。USE RSH XM=“赵红” LOCATE FOR 姓名 = XM ***********FOUND********** IF BOF()WAIT “查无此人!” ELSE ***********FOUND********** ? “工资+职称” ENDIF USE 『图片数目』：0张『文件数目』：1张 『错误答案』：IF EOF()或 IF.NOT.FOUN()或 IF.NOT.FOUND()或 IF NOT FOUND()或 IF!FOUND()或 IF NOT FOUN()2 ?工资, 职称 或 ?STR(工资)+职称 或 ?STR(工资),职称 10 『Visual ForPro——程序改错』
『题干』*【程序改错】** *题目：从键盘上输入任意一串字符，判断是否回文。* 例如：MUM、456654，MADAM。
*注意：不可以增加或删除程序行，也不可以更改程序的结构。SET TALK OFF ACCEPT “A=” TO A L=LEN(A)FLAG=1 I=1 **********FOUND********** DO WHILE FLAG=1 OR I
IF SUBS(A,I,1)SUBS(A,L-I,1)ENDIF I=I+1 FLAG=0 ENDDO **********FOUND********** IF FLAG=0 ELSE ENDIF ? “是回文” ? “不是回文” CANCEL 『图片数目』：0张『文件数目』：0张 『错误答案』：DO ★WHILE ★FLAG=1 ★AND★ I=I 2 IF ★SUBSTR(A,I,1)★★SUBSTR(A,L-★I+1★,1)或 IF ★SUBS(A,I,1)★★SUBS(A,L-★I+1★,1)或 IF ★SUBS(A,I,1)★#★SUBS(A,L-★I+1★,1)或 IF ★SUBSTR(A,I,1)★#★SUBSTR(A,L-★I+1★,1)3 IF FLAG=★1 11『Visual ForPro——程序改错』
『题干』 *【程序改错】** *题目：程序输入两个任意整数，求最小公倍数，并显示输出。*注意：不可以增加或删除程序行，也不可以更改程序的结构。SET TALK OFF INPUT “ X=” TO X INPUT “ Y=” TO Y MAX=X IF Y>X MAX=Y **********FOUND********** ENDFOR A=MAX DO WHILE A
『题干』 *【程序改错】** *题目：输入两个任意整数，求最大公约数，并显示输出最大公 * 约数。
*注意：不可以增加或删除程序行，也不可以更改程序的结构。SET TALK OFF INPUT “X=” TO X **********FOUND********** ACCEPT “Y=” TO Y IF X>Y M=X ELSE N=Y M=Y N=X **********FOUND********** ENDFOR A=MOD(M,N)**********FOUND********** DO WHILE A>=0
M=N N=A A=M%N ENDDO ?N CANCEL 『图片数目』：0张『文件数目』：0张 『错误答案』：INPUT★ “Y=” TO Y 或 INPU★ “Y=” TO Y 2 ENDIF 或 ENDI 3 DO ★WHILE★ A > 0 或 DO ★WHILE★ 0 0 或 DO ★WHIL★ 0
『题干』
*【程序改错】** *题目：本程序计算1!×3!×9!的乘积。
*注意：不可以增加或删除程序行，也不可以更改程序的结构。SET TALK OFF M=1 **********FOUND********** S=0 DO WHILE M
DO WHILE M=I 或 DO ★WHIL★ I=I 3 M=★M★*★3 或 M=★3★*★M 14『Visual ForPro——程序改错』
『题干』*【程序改错】** *题目：从键盘上输入5个数，统计其中奇数的个整数。*注意：不可以增加或删除程序行，也不可以更改程序的结构。SET TALK OFF A=0 FOR J=1 TO 5 **********FOUND********** ACCEPT “请输入第”+STR(J,2)+ “数” TO M **********FOUND**********
IF INT(M/2)=M/2 ENDIF A=A+1 ENDFOR **********FOUND********** ?奇数个数是,A CANCEL 『图片数目』：0张『文件数目』：0张 『错误答案』：★INPUT★ “请输入第”+STR(J,2)+ “数” TO M 或 ★INPU★ “请输入第”+STR(J,2)+ “数” TO M 2 IF INT(M/2)★M/2 或 IF INT(M/2)★!=M/2 或 IF★ mod(M,2)=1 或 IF(M★%2)=1 或 IF INT(M/2)★#M/2 3 ? “奇数个数是”,A 或 ? “奇数个数是”,str(A)或 ? “奇数个数是”+str(A)15 『Visual ForPro——程序改错』
『题干』*【程序改错】** *题目：表XSDA.DBF结构为：学号（C，6），姓名（C，6），* 性别（C，2），入学成绩（N，6，2）。* 本程序实现按学号查找记录，直到输入“#”为止。*注意：不可以增加或删除程序行，也不可以更改程序的结构。SET TALK OFF USE XSDA **********FOUND********** ACCEPT “请输入要查找的学号” ON XH DO WHILE XH!= “#” **********FOUND**********
LOCATE FOR 学号=“CJ” IF FOUND()ELSE ENDIF ACCEPT “请继续输入要查找的学号” TO XH ? “无此学号” ?学号,姓名,入学成绩
**********FOUND********** ENDFOR ?“谢谢使用本查找系统” USE SET TALK ON 『图片数目』：0张『文件数目』：1张 『错误答案』：ACCEPT★ “请输入要查找的学号” ★TO★ XH 或 ACCE ★ “请输入要查找的学号” ★TO★ XH 2 LOCATE★ FOR 学号=★XH 或 LOCA FOR 学号=★XH 3 ENDDO 或 ENDD 16 『Visual ForPro——程序改错』
-------------------『题干』*【程序改错】** *题目：以下程序输出如下图所示的图形。*!$!*!$!$!$ *!$!$!*!$!$!$!$!$ *注意：不可以增加或删除程序行，也不可以更改程序的结构。SET TALK OFF I=4 DO WHILE I
IF INT(I/2)=I/2 ELSE ENDIF FOR J=1 TO I I=I-1 I=I*2 **********FOUND**********
IF J/2=0 ELSE ?? “$” ?? “!” **********FOUND********** ENDDO ENDFOR ? ENDDO RETURN 『图片数目』：0『文件数目』：0张 『错误答案』：IF ★INT(I/2)★★I/2 或 IF ★INT(I/2)★!=I/2 或 IF ★INT(I/2)★#★I/2 2 IF J%2=1 或 IF mod(j,2)=1 或 IF J%20 或 IF J%2#0 或 IF mod(j,2)0 或 IF mod(j,2)#0 3 ENDIF 或 ENDI 17『Visual ForPro——程序改错』
『题干』*【程序改错】** *题目：表XSDA.DBF结构为：学号（C，6），姓名（C，6），* 性别（C，2），入学成绩（N，6，2）。本程序复制表 * XSDA的记录到表XS1中，在表XS1中查找入学成绩550分 * 以上的同学，将其删除并浏览XS1的内容。
*注意：不可以增加或删除程序行，也不可以更改程序的结构。SET TALK OFF USE XSDA **********FOUND********** COPY STRUCTURE TO XSDA USE XS1 **********FOUND********** LOCATE ALL 入学成绩>=550 DO WHILE FOUND()DELETE **********FOUND********** LOOP ENDDO PACK BROW USE SET TALK ON 『图片数目』：0『文件数目』：1张 『错误答案』：COPY★ TO ★XS1 2 ★LOCATE★ ALL★ FOR 入学成绩>=550 或 ★LOCATE★ ALL ★FOR 550★=550 或 ★LOCATE★ FOR 入学成绩>=★550 或 ★LOCA★ FOR 入学成绩>=★550 3 CONTINUE 或 CONT 18 『Visual ForPro——程序改错』
『题干』【程序改错】** *题目：求1+5+9+13+…+97的和
*注意：不可以增加或删除程序行，也不可以更改程序的结构。SET TALK OFF S=0 **********FOUND********** N=0 DO WHILE N
N=1 或 STORE 1 TO N 或 STOR 1 TO N 2 S=★S★+★N 或 S=★N★+★S 3 ENDDO 或 ENDD 19 『Visual ForPro——程序改错』
『题干』 *【程序改错】** *题目：求2!+4!+6!+…+10!的和
*注意：不可以增加或删除程序行，也不可以更改程序的结构。SET TALK OFF S=0 **********FOUND********** T=0 FOR N=2 TO 10 **********FOUND********** T=T*(T-1)IF N%2=0 **********FOUND********** S=S+N ENDIF ENDFOR ? S 『图片数目』：0『文件数目』：0张 『错误答案』： 1 T=1 2 T=★T★*★N 或 T=★N★*★T 3 S=★S★+★T 或 S=★T★+★S 20 『Visual ForPro——程序改错』
『题干』*【程序改错】** *题目：键盘输入X值时,求其相应的Y值 * ┌-1(X
* Y=├ 0(X=0)* │ * └ 1(X>0)
*注意：不可以增加或删除程序行，也不可以更改程序的结构。SET TALK OFF **********FOUND********** ACCEPT “请输入一个数：” TO X **********FOUND********** DO WHILE
CASE X0 Y=1 ENDCASE ? Y SET TALK OFF 『图片数目』：0张『文件数目』：0张 『错误答案』：★INPU★ “请输入一个数:” TO ★ X 或 ★INPUT★ “请输入一个数:” TO ★ X 2 DO CASE 3 OTHERWISE 或 CASE x>0 或 OTHE 21 『Visual ForPro——程序改错』
『题干』 *【程序改错】** *题目：从键盘输入一串汉字，将它逆向输出, 并在每个汉字中 * 间加一个“*”号。
* 例如：输入“计算机考试”，应输出“试*考*机*算*计” *注意：不可以增加或删除程序行，也不可以更改程序的结构。SET TALK OFF ACCEPT TO A **********FOUND********** DO N=2 TO LEN(A)**********FOUND********** ?? SUBSTR(A,LEN(A)-N,2)IF N#LEN(A)**********FOUND********** ENDIF ? “*” ENDFOR SET TALK ON 『图片数目』：0『文件数目』：0张 『错误答案』：FOR N=2 TO LEN(A)STEP 2 或 FOR N=2 TO LEN(A)STEP +2 2 ?? SUBSTR(A,LEN(A)-★N★+★1★,2)或 ?? ★SUBS★(A,LEN(A)-★N★+★1★,2)3 ?? “*” 22『Visual ForPro——程序改错』
『题干』*【程序改错】** *题目：从键盘输入一个表名，打开该表文件，移动记录指针到 * 文件头，输出当前记录号；在移动记录指针到文件尾，* 输出当前记录号。
*注意：不可以增加或删除程序行，也不可以更改程序的结构。SET TALK OFF ACCEPT TO A **********FOUND********** FIND A GO TOP **********FOUND********** NEXT ? RECNO()GO BOTTOM **********FOUND********** NEXT-1 ? RECNO()USE SET TALK ON 『图片数目』：0张『文件数目』：1张 『错误答案』：USE(A)或 USE &A 2 SKIP-1 3 SKIP 或 SKIP 1 或 SKIP +1 23 『Visual ForPro——程序改错』
『题干』 *【程序改错】** *题目：从键盘输入一个表文件名，打开该表，查找“姓名”是 * “张三”的记录，并显示该记录，最后输出“姓名”是“张 * 三”的记录个数。(设被打开的表中有固定字段“姓名”)*注意：不可以增加或删除程序行，也不可以更改程序的结构。SET TALK OFF ACCEPT TO A USE &A **********FOUND********** N=1 SCAN FOR 姓名= “张三” **********FOUND********** LIST N=N+1 ENDSCAN **********FOUND********** ? 记录个数是,N USE SET TALK ON 『图片数目』：0张『文件数目』：1张 『错误答案』： 1 N=0 2 DISPLAY 或 DISP 3 ? “记录个数是”,N 或 ? “记录个数是”,str(N)或 ? “记录个数是”+str(N)24『Visual ForPro——程序改错』
『题干』*【程序改错】** *题目：该程序完成口令检验功能。输入三次不正确退出。*注意：不可以增加或删除程序行，也不可以更改程序的结构。SET TALK OFF CLEAR a1=“AbCdEf” TT=1 DO WHILE TT
IF ★UPPE★(a1)★==★UPPE★(a)或 IF ASS1==ASS 或 IF ASS==ASS1 或 IF ★UPPER★(a1)★==★UPPER★(a)或 IF ★LOWER★(a1)★==★LOWER★(a)2 EXIT 3 TT=★TT★+★1 或 TT=★1+TT 25 『Visual ForPro——程序改错』
『题干』*【程序改错】** *题目：求1到10之间积数的阶乘和t=1!+3!+5！+…+9!*注意：不可以增加或删除程序行，也不可以更改程序的结构。**********FOUND********** t=1 P=1 I=1 **********FOUND********** Do while I>10 P=p*I **********FOUND********** If int(i/2)=i/2 T=t+p Endif I=I+1 Enddo ?“t=”,t 『图片数目』：0张『文件数目』：0张 『错误答案』： 1 t=0 2 do ★while★ I=I 或 do ★whil★ I=I 3 if int★(i/2)★★i/2 或 if int★(i/2)★!=★i/2 或 if i%2★=1 或 if mod(i,2)★=1 或 if int★(i/2)★#★i/2 26『Visual ForPro——程序改错』
『题干』*【程序改错】** *题目：计算出1-30以内（包含30）能被5整除的数之和。*注意：不可以增加或删除程序行，也不可以更改程序的结构。CLEAR SET TALK OFF X=0 **********FOUND********** Y=1 DO WHILE.T.X=X+1 DO CASE CASE MOD(X,5)=0 Y=Y+X CASE X30 **********FOUND********** LOOP ENDCASE ENDDO ?Y SET TALK ON 『图片数目』：0张『文件数目』：0张 『错误答案』：Y=0 或 STORE 0 TO Y 或 STOR 0 TO Y 2 LOOP 3 EXIT 27 『Visual ForPro——程序改错』
『题干』*【程序改错】** *题目：计算出1-50以内（包含50）能被3和5整除的数之和。*注意：不可以增加或删除程序行，也不可以更改程序的结构。CLEAR SET TALK OFF X=0 **********FOUND********** Y=1 **********FOUND********** DO WHILE NOT EOF()X=X+1 DO CASE CASE MOD(X,5)=0 AND MOD(X,3)=0 Y=Y+X CASE X50 EXIT ENDCASE ENDDO **********FOUND********** ?X SET TALK ON 『图片数目』：0张『文件数目』：0张 『错误答案』：Y=0 或 STORE 0 TO Y 或 STOR 0 TO Y 2 DO ★WHILE★.T.或 DO ★WHIL★.T.3 ?Y 28『Visual ForPro——程序改错』
『题干』*【程序改错】** *题目：查找RSH.dbf 中女职工的最高工资，并显示其姓名和工资。*注意：不可以增加或删除程序行，也不可以更改程序的结构。USE RSH MGZ = 0 DO WHILE.NOT.EOF()***********FOUND********** IF 性别=“女”,MGZ
IF 性别=“女”★.and.★MGZ
『题干』*【程序改错】** *题目：统计RSH.dbf 中职称是教授、副教授、讲师和助教的人数。*注意：不可以增加或删除程序行，也不可以更改程序的结构。USE RSH ***********FOUND********** STORE 1 TO A , B , C , D DO WHILE.NOT.EOF()DO CASE CASE 职称 = “教授” A = A + 1 CASE 职称 = “副教授” B = B + 1 CASE 职称 = “讲师” C = C + 1 CASE 职称 = “助教” D = D + 1 ENDCASE ***********FOUND********** NEXT 1 ENDDO USE ? A,B,C,D 『图片数目』：0张『文件数目』：1张 『错误答案』：STORE★ 0 TO A,B,C,D 或 STOR★ 0 TO A,B,C,D 2 SKIP 或 SKIP 1 或 SKIP +1 30 『Visual ForPro——程序改错』
『题干』*【程序改错】** *题目：计算S=1+3+5+…+99 的程序。
*注意：不可以增加或删除程序行，也不可以更改程序的结构。store 0 to s,i ***********FOUND********** do i
do while ★ i
『题干』【程序改错】** *题目：打开XSDB.DBF数据表, 分别统计男、女生的人数。*注意：不可以增加或删除程序行，也不可以更改程序的结构。* USE XSDB STOR 0 TO B,G DO WHILE.NOT.EOF()***********FOUND********** IF 性别女 B=B+1 ***********FOUND********** ENDIF G=G+1 ENDIF SKIP ENDDO ?“男生人数是：”+STR(B)?“女生人数是：”+STR(G)『图片数目』：0张『文件数目』：1张 『错误答案』：IF 性别★=★“男” 或 IF 性别★“女” 或 IF 性别★#★“女” 2 ELSE 32 『Visual ForPro——程序改错』
『题干』 *【程序改错】** *题目：打开表XSDB.DBF, 查找计算机和英语的平均成绩最高的学生，* 并显示姓名和计算机、英语成绩。
*注意：不可以增加或删除程序行，也不可以更改程序的结构。USE XSDB JSJ=计算机 YY=英语 XM=姓名 PJ=(JSJ+YY)/2 DO WHILE.NOT.EOF()***********FOUND********** X=计算机+英语
***********FOUND********** IF PJ>X JSJ=计算机 YY=英语 XM=姓名 ENDIF SKIP ENDDO ?XM,JSJ,YY 『图片数目』：0『文件数目』：1张 『错误答案』：X=(计算机+英语)/2 或 X=(英语+计算机)/2 2 IF X>PJ 或 IF PJ★
『题干』*【程序改错】** *题目：用户选择菜单中的功能序号，程序将根据序号对数据表 * XSDB.DBF进行对应的操作。
*注意：不可以增加或删除程序行，也不可以更改程序的结构。USE XSDB DO WHILE.T.?“ 1-追加记录 2-修改记录 3-显示记录 0-结束程序” INPUT “请选择(1,2,3,0):” TO ANS ***********FOUND********** IF ANS>=0.AND.ANS
IF ANS3 或 IF ANS>3★.OR.★ANS3 或 IF ANS>3 ★OR★ ANS
『题干』*【程序改错】** *题目：用循环程序计算XSDB.DBF中法律系学生的计算机平均成绩、* 英语平均成绩和奖学金总额。*注意：不可以增加或删除程序行，也不可以更改程序的结构。USE XSDB STORE 0 TO JSJ,YY,JXJ,RS LOCA FOR 系别=“法律” ***********FOUND********** DO WHILE FIND()JSJ=JSJ+计算机 YY=YY+英语 JXJ=JXJ+奖学金 RS=RS+1 CONT ENDDO ***********FOUND********** ?JSJ,YY,JXJ 『图片数目』：0张『文件数目』：1张 『错误答案』：do ★while★ FOUN()或 do ★while★.NOT.EOF()或 do ★while★!EOF()或 do ★while★ NOT EOF()或 do ★while★ FOUND()或 do ★whil★ FOUN()或 do ★whiL★.NOT.EOF()或 do ★whil★!EOF()或 do ★whil★ NOT EOF()或 do ★whil★ FOUND()2 ?JSJ/RS,★YY/RS,JXJ
35『Visual ForPro——程序改错』
『题干』 *【程序改错】** *题目：在XSDB.DBF中查找学生徐秋实的记录, 如果找到则将该记录 * 的系别、姓名,两科科目名称和对应的成绩显示在屏幕上，否则 * 显示:“查无此人!”。*注意：不可以增加或删除程序行，也不可以更改程序的结构。USE XSDB ***********FOUND********** FIND FOR 姓名=“徐秋实” IF.NOT.FOUND()?“查无此人!” ELSE ***********FOUND********** ?系别,姓名, “计算机=”+计算机, “英语=”+英语 ENDIF USE RETURN 『图片数目』：0张『文件数目』：1张 『错误答案』：LOCATE FOR 姓名=“徐秋实” 或 LOCA FOR 姓名=“徐秋实” 2 ?系别,姓名,“计算机=”+★STR★(计算机),“英语=”+★STR★(英语)或 ?系别,姓名,“计算机=★”,计算机, “英语=★”,英语 或 ?系别,姓名,“计算机=”+★STR★(计算机,3),“英语=”+★STR★(英语,3)或 ?系别,姓名,“计算机=”,★STR★(计算机),“英语=”+★STR★(英语)或 ?系别,姓名,“计算机=”+★STR★(计算机,3),“英语=”,★STR★(英语,3)或 ?系别,姓名,“计算机=”,★STR★(计算机),“英语=”,★STR★(英语)或 ?系别,姓名,“计算机=”,★STR★(计算机),“英语=”,英语 或 ?系别,姓名,“计算机=”,计算机,“英语=”,★STR★(英语)36『Visual ForPro——程序改错』
『题干』*【程序改错】** *题目：将100到300之间的所有能被3整除或被5整除的数求和并统计个数。*注意：不可以增加或删除程序行，也不可以更改程序的结构。STORE 0 TO S,C I=100 DO WHILE I
IF INT(I/3)★=I/3★.OR.★INT(I/5)=★I/5 或 IF MOD(I,3)=0★.OR.★MOD(I,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 INT(I/3)=★I/3 ★OR★ INT(I/5)=I/5 或 IF MOD(I,3)=0 ★OR★ MOD(I,5)=0 或 IF INT(I/5)=I/5 ★OR★ INT(I/3)=I/3 或 IF MOD(I,5)=0 ★OR★ MOD(I,3)=0 2 I=I+1 37 『Visual ForPro——程序改错』
『题干』【程序改错】** *题目：接收键盘输入的任意5个整数(不超过3位数), 找出其中的最 * 小的数并显示。程序中共有2个错误。
*注意：不可以增加或删除程序行，也不可以更改程序的结构。INPUT “请输入第一个数:” TO X STORE X TO MA N=5 ***********FOUND********** DO WHILE N>=5 INPUT “请输入下一个数:” TO X ***********FOUND********** IF MA
DO ★WHILE★ N>1 或 DO ★WHIL★ N>1 或 DO ★WHIL★ N>=2 或 DO ★WHILE★ N>=2 2 IF MA>X 38 『Visual ForPro——程序改错』
『题干』 *【程序改错】** *题目：从键盘输入十个非零整数，统计能被5整除的数的个数。*注意：不可以增加或删除程序行，也不可以更改程序的结构。STORE 0 TO I,A ***********FOUND********** DO WHILE I
DO ★WHILE ★I=I 或 DO ★WHILE★ 10>I 或 DO ★WHIL ★I=I 或 DO ★WHIL★ 10>I 2 IF MOD(N,5)=0 或 IF N%5=0 或 IF ★INT(N/5)★=N/5 39 『Visual ForPro——程序改错』
『题干』*【程序改错】** *题目：显示XSDB.DBF中每个学生的姓名、计算机成绩和等级；等 * 级划分如下：计算机成绩大于等于90显示“优秀”；60到89 *（包括 60和89）之间显示“及格”；60分以下显示“补考”。* 如显示：张丽娜 90 优秀。
*注意：不可以增加或删除程序行，也不可以更改程序的结构。USE XSDB ***********FOUND********** DO WHIL EOF()? 姓名,计算机 DO CASE CASE 计算机>=90 ??'优秀' CASE 计算机>=60 ??'及格' OTHERWISE ??'补考' ENDCASE ***********FOUND********** GO NEXT ENDDO USE-------------------『图片数目』：0张『文件数目』：1张 『错误答案』：DO WHIL NOT EOF()或 DO WHIL.NOT.EOF()或 DO WHIL!EOF()2 SKIP 或 SKIP 1 或 SKIP +1 40『Visual ForPro——程序改错』
『题干』*【程序改错】** *题目：从键盘输入一个数X，当X大于0、Y的值为1；当X等于0、Y的 * 值为0；当X小于0、Y的值为-1, 然后输出Y的值。*注意：不可以增加或删除程序行，也不可以更改程序的结构。***********FOUND********** ACCEPT “输入一个数X：” TO X ***********FOUND********** IF X>0 IF X>0 Y=1 ELSE Y=0 ENDIF ELSE Y=-1 ENDIF ?“Y=”,STR(Y)『图片数目』：0张『文件数目』：0张 『错误答案』： 1 INPUT 2 IF ★X>=0 或 IF ★0
『题干』*【程序改错】** *题目：计算出1到50以内（包含50）能被2和3整除的数之和。*注意：不可以增加或删除程序行，也不可以更改程序的结构。STOR 0 TO X ,Y ***********FOUND********** DO WHILE NOT EOF()X=X+1 DO CASE CASE MOD(X,2)=0 AND MOD(X,3)=0 Y=Y+X CASE X50 EXIT ENDCASE ENDDO ?Y 『图片数目』：0张『文件数目』：0张 『错误答案』： 1 DO ★WHILE★.T.或 DO ★WHILE★ X
『题干』*【程序改错】** *题目：从键盘上输入5个数，将其中奇数求和,偶数求积。*注意：不可以增加或删除程序行，也不可以更改程序的结构。S1=0 ***********FOUND********** S2=0 FOR I=1 TO 5 INPUT “请输入第”+STR(I,1)+ “数” TO M ***********FOUND**********
IF INT(M/2)=0 ELSE S1=S1+M S2=S2*M ENDIF ENDFOR ? “奇数和是”,S1 ? “偶数积是”,S2 『图片数目』：0张『文件数目』：0张 『错误答案』：S2=1 或 STORE 1 TO S2 或 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 43『Visual ForPro——程序改错』
『题干』*【程序改错】** *题目：将一串ASCII码字符“ABC123”，逆序输出为：321CBA“。*注意：不可以增加或删除程序行，也不可以更改程序的结构。S=”ABC123“ ?S+”的逆序为：“ ***********FOUND********** L=STR(S)***********FOUND********** DO WHIL L=1 44 『Visual ForPro——程序改错』
『题干』*【程序改错】** *题目：有一个字符串”ABC“,将其插入3个数字转换为:”A1B2C3“输出。*注意：不可以增加或删除程序行，也不可以更改程序的结构。C1=”ABC“ C2=”“ FOR I=1 TO 3 ***********FOUND********** A=SUBS(C1,I)***********FOUND********** C2=C2+A+I ENDFOR ?C2 『图片数目』：0张『文件数目』：0张 『错误答案』：A=SUBS(C1,I★,1)或 A=SUBSTR(C1,I★,1)2 C2=★C2★+★A+★STR(I,1)45 『Visual ForPro——程序改错』
『题干』*【程序改错】** *题目：打开表XSDB.DBF，统计姓张、姓王、姓李这三个姓的学生 * 人数并显示。
*注意：不可以增加或删除程序行，也不可以更改程序的结构。USE XSDB C=0 ***********FOUND********** LOCA 姓名=”张“.AND.”王“.AND.”李“ ***********FOUND********** DO WHILE NOT FOUN()C=C+1 CONTINUE ENDDO ?C USE 『图片数目』：0张『文件数目』：1张 『错误答案』：LOCATE★ FOR 姓名=”张“★.OR.★姓名=”王“★.OR.★姓名=”李“ 或 LOCATE★ FOR 姓名=”张“★ OR ★姓名=”王“★ OR ★姓名=”李“ 2 DO WHILE FOUN()46 『Visual ForPro——程序改错』
『题干』*【程序改错】** *题目：输入工资（以元为单位如：1568），计算出百元、伍十元、* 贰十元、拾元、伍元、贰元、壹元各多少张（要求张数最少），* 循环计算，当输入0时结束程序。
*注意：不可以增加或删除程序行，也不可以更改程序的结构。GZ=1 ***********FOUND********** DO WHILE GZ=1 INPUT ”输入工资：“ TO GZ Y100=INT(GZ/100)Y50=INT((GZ-Y100*100)/50)Y20=INT((GZ-Y100*100-Y50*50)/20)Y10=INT((GZ-Y100*100-Y50*50-Y20*20)/10)Y5=INT((GZ-Y100*100-Y50*50-Y20*20-Y10*10)/5)Y2=INT((GZ-Y100*100-Y50*50-Y20*20-Y10*10-Y5*5)/2)***********FOUND********** Y1=GZ-Y100-Y50-Y20-Y10-Y5-Y2 ?Y100,Y50,Y20,Y10,Y5,Y2,Y1 ENDDO 『图片数目』：0张『文件数目』：0张 『错误答案』：DO ★WHILE★ GZ0 或 DO ★WHILE★ GZ>0 或 DO ★WHILE★ GZ#0 2 Y1=GZ-Y100★*★100-Y50★*★50-Y20★*★20-Y10★*★10-Y5★*★5-Y2★*★2 47『Visual ForPro——程序改错』 『题干』*【程序改错】** *题目：分别统计化学系的男、女生总人数并显示出来。*注意：不可以增加或删除程序行，也不可以更改程序的结构。USE XSDB STOR 0 TO RS1,RS2 ***********FOUND********** FIND FOR 系别=”化学“ DO WHILE.NOT.EOF()***********FOUND********** IF 性别”男“ RS1=RS1+1 ELSE RS2=RS2+1 ENDIF CONT ENDDO ? ”男生人数=“,RS1 ? ”女生人数=“,RS2 USE 『图片数目』：0张『文件数目』：1张 『错误答案』：LOCATE FOR 系别=”化学“ 或 LOCA FOR 系别=”化学“ 2 IF 性别★=★”男“ 或 IF 性别★”女“ 或 IF 性别★#★”女" 48 『Visual ForPro——程序改错』
『题干』*【程序改错】** *题目：打印由数字组成的图形,要求第一行空10个空格打印5个1,第 * 二行空11个空格打印5个2…,图形如下：
* 55555 * 44444 * 33333 * 22222 * 11111 *注意：不可以增加或删除程序行，也不可以更改程序的结构。CLEA FOR I=1 TO 5 ***********FOUND********** ?SPAC(9-I)FOR J=1 TO 5 ***********FOUND********** ??STR(J,1)ENDFOR ENDFOR 『图片数目』：0张『文件数目』：0张 『错误答案』：?SPAC★(9+I)或 ?SPACE★(9+I)或 ?SPACE★(I+9)或 ?SPAC★(I+9)2 ??STR★(6-I,1)
程序改错==== 题号：20301 /*---------------- 【程序改错】--------------------------给定程序的功能是：从键盘上接收一字符串到a字符数组中,在cpy函数中将a数组中字符AscII......
改错题1.该程序运行时有错，请改正错误，使得程序正确执行，并且输出以下语句： MyStruct: 0 MyDate 注意：错误的语句在/********found*******/的下面，修改该语句即可。 #include str......
一、改错题 1.求[10,1000]内所有能被被7和9中至少一个数整除的整数之个数。 * skgc1.prg set talk off clear s=0&&s=0改为n=0 for x=10 to 1000if mod(x,7)=0 and mod(x,9......
改错题1、下列给定程序中，函数fun()的功能是：从n个学生的成绩中统计出高于平均分的学生人数，人数由函数值返回，平均分存放在形参aver所指的存储单元中。例如输入8名学生的成绩： 8......
七上改错题1 This is a old apple.2 What this in English？ 3 what’s color is it? 4 How do your spell it？ 5 What’s you name? 6 What’s he name? 7 Nice meet you.8 I......
