VF复习题 实验改错题.docx
- 文档编号:17978651
- 上传时间:2023-04-24
- 格式:DOCX
- 页数:49
- 大小:26.68KB
VF复习题 实验改错题.docx
《VF复习题 实验改错题.docx》由会员分享,可在线阅读,更多相关《VF复习题 实验改错题.docx(49页珍藏版)》请在冰豆网上搜索。
VF复习题实验改错题
1『VisualForPro——程序改错『题干』
*【程序改错】**
*题目:
将XSDB.DBF表中奖学金超过60元的学生姓名和奖学金显示在屏幕上。
*注意:
不可以增加或删除程序行,也不可以更改程序的结构。
USEXSDB
***********FOUND**********
IF奖学金>"60"
DOWHILE.NOT.EOF()
***********FOUND**********
?
"姓名="+姓名,"奖学金="+奖学金
CONT
ENDDO
USE
『图片数目』:
0张
『文件数目』:
1张
『错误答案』:
1LOCATEFOR奖学金>60或LOCAFOR奖学金>60或LOCAFOR60<奖学金或LOCATEFOR60<奖学金
2?
"姓名="+姓名,"奖学金="+★STR★(奖学金,4,1)或?
"姓名="+姓名,"奖学金="+★STR★(奖学金)或?
"姓名="+姓名,"奖学金=",★STR★(奖学金)或?
"姓名="+姓名,"奖学金=",奖学金
2『VisualForPro——程序改错』
『题干』
*【程序改错】**
*题目:
通过键盘输入一个数N,计算2^2+4^4+……+N^N的值并显示输出。
*注意:
不可以增加或删除程序行,也不可以更改程序的结构。
T=0
I=2
INPUT"N="toN
***********FOUND**********
DOWHILE.NOT.EOF()
T=T+I^I
***********FOUND**********
I=I+T
ENDDO
?
"TOTAL=",T
『图片数目』:
0张
『文件数目』:
0张
『错误答案』:
1DO★WHILE★I<=N或DO★WHILE★N>=I
2I=★2+I或I=★I+2
3『VisualForPro——程序改错』
『题干』
*【程序改错】**
*题目:
通过字符串变量操作先竖向显示"伟大祖国",再横向显示
*"祖国伟大"。
*注意:
不可以增加或删除程序行,也不可以更改程序的结构。
STORE"伟大祖国"TOXY
CLEA
***********FOUND**********
N=0
DOWHILEN<8
?
SUBS(XY,N,2)
N=N+2
ENDDO
?
***********FOUND**********
?
?
SUBS(XY,4,4)
?
?
SUBS(XY,1,4)
『图片数目』:
0张
『文件数目』:
0张
『错误答案』:
1N=1
2?
?
SUBS(XY,★5,4)或?
?
SUBSTR(XY,★5,4)或?
?
SUBS(XY,★5)或?
?
SUBSTR(XY,★5)或?
?
RIGHT(XY,★4)或?
?
RIGH(XY,★4)
4『VisualForPro——程序改错』
『题干』
*【程序改错】**
*题目:
计算并在屏幕上显示出"九九乘法表",显示格式如下
*1×1=1
*2×1=22×2=4
*3×1=33×2=63×3=9
*9×1=9…9×8=729×9=81
*程序中共有2个错误,请修改下面一条语句的错误,并调试运行。
*注意:
不可以增加或删除程序行,也不可以更改程序的结构。
X=1
DOWHILEX<=9
Y=1
***********FOUND**********
DOWHILEY<=9
?
?
STR(X,1)+"×"+STR(Y,1)+"="+STR(X*Y,2)+""
Y=Y+1
ENDDO
***********FOUND**********
disp
X=X+1
ENDDO
『图片数目』:
0张
『文件数目』:
0
『错误答案』:
1DO★WHILE★Y<=X或DO★WHILE★X>=Y或DO★WHIL★Y<=X或DO★WHIL★X>=Y
2?
5『VisualForPro——程序改错』
『题干』
*【程序改错】**
*题目:
在XSDB.DBF表中统计法律和中文两个系的总人数和奖学金总额。
*注意:
不可以增加或删除程序行,也不可以更改程序的结构。
USEXSDB
STORE0TOR,S
DOWHILE.T.
***********FOUND**********
IF系别="法律".AND.系别="中文"
STORES+奖学金TOS
R=R+1
ENDIF
SKIP
***********FOUND**********
IF.NOT.FOUN()
EXIT
ENDIF
ENDDO
?
S,R
USE
『图片数目』:
0张
『文件数目』:
1张
『错误答案』:
1IF系别="法律"★.OR.★系别="中文"或IF系别="法律"★OR★系别="中文"或IF系别="中文"★.OR.★系别="法律"
2IFEOF()
6『VisualForPro——程序改错』
『题干』
*【程序改错】**
*题目:
计算1!
+3!
+9!
的结果并输出。
*注意:
不可以增加或删除程序行,也不可以更改程序的结构。
M=1
S=0
DOWHILEM<=9
STOR1TOI,P
P=1
***********FOUND**********
DOWHILEI>M
P=P*I
I=I+1
ENDDO
S=S+P
***********FOUND**********
M=M+3
ENDDO
?
"1!
+3!
+9!
=",S
『图片数目』:
0张
『文件数目』:
0张
『错误答案』:
1DO★WHILE★I<=M或DO★WHILE★M>=I或DO★WHIL★I<=M或DO★WHIL★M>=I
2M=M*3或M=3*M
7『VisualForPro——程序改错』
『题干』
*【程序改错】**
*题目:
求X=1+2+3+…+100,并同时求出1到100之间的奇数之和Y,
*而且显示输出这两个和。
*注意:
不可以增加或删除程序行,也不可以更改程序的结构。
CLEAR
STORE0TOI,X,Y
***********FOUND**********
DOWHILEI<=100
I=I+1
X=X+I
IFI/2=INT(I/2)
***********FOUND**********
EXIT
ENDIF
Y=Y+I
ENDDO
?
X,Y
RETURN
『图片数目』:
0张
『文件数目』:
0张
『错误答案』:
1DOWHILEI★<100或DOWHILEI★<=★99或DOWHILI★<100或DOWHILI★<=★99
2LOOP
8『VisualForPro——程序改错』
『题干』
*【程序改错】**
*题目:
在RSH.dbf中,查找职工赵红的工资,如果工资小于200元,
*则增加100元;如果工资大于等于200元且小于500元时,则增
*加50元;否则增加20元。
最后显示赵红的姓名和工资。
*注意:
不可以增加或删除程序行,也不可以更改程序的结构。
CLEAR
USERSH
***********FOUND**********
LOCATEFOR姓名=赵红
DOCASE
CASE工资<200
REPLACE工资WITH工资+100
CASE工资<500
REPLACE工资WITH工资+50
OTHERWISE
REPLACE工资WITH工资+20
ENDCASE
***********FOUND**********
LIST姓名,工资
USE
『图片数目』:
0张『文件数目』:
1张
『错误答案』:
1LOCATE★FOR姓名=★"赵红"或LOCAFOR姓名=★'赵红'或LOCAFOR姓名=★"赵红"
2DISP姓名,工资或?
姓名,工资或DISPLAY姓名,工资
9『VisualForPro——程序改错』
『题干』*【程序改错】**
*题目:
根据姓名查询RSH.dbf中的职工情况,如果有则显示该职工的
*工资和职称,否则显示"查无此人!
"。
*注意:
不可以增加或删除程序行,也不可以更改程序的结构。
USERSH
XM="赵红"
LOCATEFOR姓名=XM
***********FOUND**********
IFBOF()
WAIT"查无此人!
"
ELSE
***********FOUND**********
?
"工资+职称"
ENDIF
USE
『图片数目』:
0张『文件数目』:
1张
『错误答案』:
1IFEOF()或IF.NOT.FOUN()或IF.NOT.FOUND()或IFNOTFOUND()或IF!
FOUND()或IFNOTFOUN()
2?
工资,职称或?
STR(工资)+职称或?
STR(工资),职称
10『VisualForPro——程序改错』
『题干』*【程序改错】**
*题目:
从键盘上输入任意一串字符,判断是否回文。
*例如:
MUM、456654,MADAM。
*注意:
不可以增加或删除程序行,也不可以更改程序的结构。
SETTALKOFF
ACCEPT"A="TOA
L=LEN(A)
FLAG=1
I=1
**********FOUND**********
DOWHILEFLAG=1ORI<=INT(L/2)
**********FOUND**********
IFSUBS(A,I,1)<>SUBS(A,L-I,1)
FLAG=0
ENDIF
I=I+1
ENDDO
**********FOUND**********
IFFLAG=0
?
"是回文"
ELSE
?
"不是回文"
ENDIF
CANCEL
『图片数目』:
0张『文件数目』:
0张
『错误答案』:
1DO★WHILE★FLAG=1★AND★I<=INT(L/2)或DO★WHILE★FLAG=1★AND★INT(L/2)>=I
2IF★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)
3IFFLAG=★1
11『VisualForPro——程序改错』
『题干』
*【程序改错】**
*题目:
程序输入两个任意整数,求最小公倍数,并显示输出。
*注意:
不可以增加或删除程序行,也不可以更改程序的结构。
SETTALKOFF
INPUT"X="TOX
INPUT"Y="TOY
MAX=X
IFY>X
MAX=Y
**********FOUND**********
ENDFOR
A=MAX
DOWHILEA<=X*Y
IFINT(A/X)=A/XANDINT(A/Y)=A/Y
**********FOUND**********
LOOP
ENDIF
A=A+MAX
ENDDO
**********FOUND**********
?
"最小公倍数为",X
CANCEL
『图片数目』:
0张『文件数目』:
0张
『错误答案』:
1ENDIF或ENDI
2EXIT
3?
"最小公倍数为",★A或?
"最小公倍数为"+★STR(A)
12『VisualForPro——程序改错』
『题干』
*【程序改错】**
*题目:
输入两个任意整数,求最大公约数,并显示输出最大公
*约数。
*注意:
不可以增加或删除程序行,也不可以更改程序的结构。
SETTALKOFF
INPUT"X="TOX
**********FOUND**********
ACCEPT"Y="TOY
IFX>Y
M=X
N=Y
ELSE
M=Y
N=X
**********FOUND**********
ENDFOR
A=MOD(M,N)
**********FOUND**********
DOWHILEA>=0
M=N
N=A
A=M%N
ENDDO
?
N
CANCEL
『图片数目』:
0张『文件数目』:
0张
『错误答案』:
1INPUT★"Y="TOY或INPU★"Y="TOY
2ENDIF或ENDI
3DO★WHILE★A>0或DO★WHILE★00或DO★WHIL★0 13『VisualForPro——程序改错』 『题干』 *【程序改错】** *题目: 本程序计算1! ×3! ×9! 的乘积。 *注意: 不可以增加或删除程序行,也不可以更改程序的结构。 SETTALKOFF M=1 **********FOUND********** S=0 DOWHILEM<=9 I=1 P=1 **********FOUND********** DOWHILEM<=9 P=P*I I=I+1 ENDDO S=S*P **********FOUND********** M=M+3 ENDDO ? "1! ×3! ×9! =",S SETTALKON RETURN 『图片数目』: 0张『文件数目』: 0张 『错误答案』: 1S=1 2DO★WHILE★I<=M或DO★WHILE★M>=I或DO★WHIL★I<=M或DO★WHIL★M>=I 3M=★M★*★3或M=★3★*★M 14『VisualForPro——程序改错』 『题干』*【程序改错】** *题目: 从键盘上输入5个数,统计其中奇数的个整数。 *注意: 不可以增加或删除程序行,也不可以更改程序的结构。 SETTALKOFF A=0 FORJ=1TO5 **********FOUND********** ACCEPT"请输入第"+STR(J,2)+"数"TOM **********FOUND********** IFINT(M/2)=M/2 A=A+1 ENDIF ENDFOR **********FOUND********** ? 奇数个数是,A CANCEL 『图片数目』: 0张『文件数目』: 0张 『错误答案』: 1★INPUT★"请输入第"+STR(J,2)+"数"TOM或★INPU★"请输入第"+STR(J,2)+"数"TOM 2IFINT(M/2)★<>M/2或IFINT(M/2)★! =M/2或IF★mod(M,2)=1或IF(M★%2)=1或IFINT(M/2)★#M/2 3? "奇数个数是",A或? "奇数个数是",str(A)或? "奇数个数是"+str(A) 15『VisualForPro——程序改错』 『题干』*【程序改错】** *题目: 表XSDA.DBF结构为: 学号(C,6),姓名(C,6), *性别(C,2),入学成绩(N,6,2)。 *本程序实现按学号查找记录,直到输入"#"为止。 *注意: 不可以增加或删除程序行,也不可以更改程序的结构。 SETTALKOFF USEXSDA **********FOUND********** ACCEPT"请输入要查找的学号"ONXH DOWHILEXH! ="#" **********FOUND********** LOCATEFOR学号="CJ" IFFOUND() ? 学号,姓名,入学成绩 ELSE ? "无此学号" ENDIF ACCEPT"请继续输入要查找的学号"TOXH **********FOUND********** ENDFOR ? "谢谢使用本查找系统" USE SETTALKON 『图片数目』: 0张『文件数目』: 1张 『错误答案』: 1ACCEPT★"请输入要查找的学号"★TO★XH或ACCE★"请输入要查找的学号"★TO★XH 2LOCATE★FOR学号=★XH或LOCAFOR学号=★XH 3ENDDO或ENDD 16『VisualForPro——程序改错』 -------------------------------------------------- 『题干』*【程序改错】** *题目: 以下程序输出如下图所示的图形。 *! $! *! $! $! $ *! $! $! *! $! $! $! $! $ *注意: 不可以增加或删除程序行,也不可以更改程序的结构。 SETTALKOFF I=4 DOWHILEI<10 **********FOUND********** IFINT(I/2)=I/2 I=I*2 ELSE I=I-1 ENDIF FORJ=1TOI **********FOUND********** IFJ/2=0 ? ? "! " ELSE ? ? "$" **********FOUND********** ENDDO ENDFOR ? ENDDO RETURN 『图片数目』: 0『文件数目』: 0张 『错误答案』: 1IF★INT(I/2)★<>★I/2或IF★INT(I/2)★! =I/2或IF★INT(I/2)★#★I/2 2IFJ%2=1或IFmod(j,2)=1或IFJ%2<>0或IFJ%2#0或IFmod(j,2)<>0或IFmod(j,2)#0 3ENDIF或ENDI 17『VisualForPro——程序改错』 『题干』*【程序改错】** *题目: 表XSDA.DBF结构为: 学号(C,6),姓名(C,6), *性别(C,2),入学成绩(N,6,2)。 本程序复制表 *XSDA的记录到表XS1中,在表XS1中查找入学成绩550分 *以上的同学,将其删除并浏览XS1的内容。 *注意: 不可以增加或删除程序行,也不可以更改程序的结构。 SETTALKOFF USEXSDA **********FOUND********** COPYSTRUCTURETOXSDA USEXS1 **********FOUND********** LOCATEALL入学成绩>=550 DOWHILEFOUND() DELETE **********FOUND********** LOOP ENDDO PACK BROW USE SETTALKON 『图片数目』: 0『文件数目』: 1张 『错误答案』: 1COPY★TO★XS1 2★LOCATE★ALL★FOR入学成绩>=550或★LOCATE★ALL★FOR550★<=入学成绩或★LOCA★ALL★FOR入学成绩>=550或★LOCATE★FOR入学成绩>=★550或★LOCA★FOR入学成绩>=★550 3CONTINUE或CONT 18『VisualForPro——程序改错』 『题干』【程序改错】** *题目: 求1+5+9+13+…+97的和 *注意: 不可以增加或删除程序行,也不可以更改程序的结构。 SETTALKOFF S=0 **********FOUND********** N=0 DOWHILEN<=97 **********FOUND********** S=S+1 N=N+4 **********FOUND********** ENDWHILE ? S SETTALKON 『图片数目』: 0张『文件数目』: 0张 『错误答案』: 1N=1或STORE1TON或STOR1TON 2S=★S★+★N或S=★N★+★S 3ENDDO或ENDD 19『VisualForPro——程序改错』 『题干』 *【程序改错】** *题目: 求2! +4! +6! +…+10! 的和 *注意: 不可以增加或删除程序行,也不可以更改程序的结构。 SETTALKOFF S=0 **********FOUND********** T=0 FORN=2TO10 **********FOUND********** T=T*(T-1) IFN%2=0 **********FOUND********** S=S+N ENDIF ENDFOR ? S 『图片数目』: 0『文件数目』: 0张 『错误答案』: 1T=1 2T=★T★*★N或T=★N★*★T 3S=★S★+★T或S=★T★+★S 20『VisualForPro——程序改错』 『题干』*【程序改错】** *题目: 键盘输入X值时,求其相应的Y值 *┌-1(X<0) *│ *Y=├0(X=0) *│ *└1(X>0) *注意: 不可以增加或删除程序行,也不可以更改程序的结构。 SETTALKOFF **********FOUND********** ACCEPT"请输入一个数: "TOX **********FOUND********** DOWHILE CASEX<0 Y=-1 CASEX=0 Y=0 **********FOUND********** DEFAULTX>0 Y=1 ENDCASE ? Y SETTALKOFF 『图片数目』: 0张『文件数目』: 0张 『错误答案』: 1★INPU★"请输入一个数: "TO★X或★INPUT★"请输入一个数: "TO★X 2DOCASE 3OTHERWISE或CASEx>0或OTHE 21『VisualForPro——程序改错』 『题干』 *【程序改错】** *题目: 从键盘输入一串汉字,将它逆向输出,并在每个汉字中 *间加一个"*"号。 *例如: 输入"计算机考试",应输出"试*考*机*算*计" *注意: 不可以增加或删除程序行,也不可以更改程序的结构。 SETTALKOFF ACCEPT
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VF复习题 实验改错题 VF 复习题 实验 改错
![提示](https://static.bdocx.com/images/bang_tan.gif)