VF复习题实验改错题doc.docx
《VF复习题实验改错题doc.docx》由会员分享，可在线阅读，更多相关《VF复习题实验改错题doc.docx（52页珍藏版）》请在冰豆网上搜索。
VF复习题实验改错题doc
【酿改错】
题目:
将XSDB.DBF表中奖学金超过60元的学生姓名和奖学金显示在屏幕上。
注意：
不可以増加或删除程序行，也不可以更改程序的结构,
USEXSDB
IF奖学金＞"60"
DOWHILE.NOT.EOF（）
?
’’姓名="+姓名，"奖学金="+奖学金
CONT
ENDDO
USE
『图片数目』：
0张
『文件数目』：
1张
『错误答案』：
1LOCATEFOR奖学金;＞60或LOCAFOR奖学金〉60或LOCAFOR60＜奖学金或LOCATEFOR60＜奖学金
2?
"姓名=••+姓名，"奖学金="+*STR★（奖学金，4,1）或?
"姓名="+姓名，"奖学金=”+*STR★（奖学金）或？
”姓名=”+姓名，"奖学金="，*STR★（奖学金）或？
"姓名=’’+姓名，"奖学金="，奖学金
2『VisualForPro程序改错』
妍J
*【酿改错】**
*题目：
通过键盘输入一个数N,计算……+NAN的值并显示输出。
注意：
不可以增加或删除程序行，也不可以更改程序的结构。
T=01=2
INPUT”N="toN
DOWHILE.NOT.EOF（）
T=T+IAI
l=l+T
ENDDO
?
"TOTAL='T
圈片数目』：
0张
『文件数目』：
0张
『错误答案』：
1DO★WHILE*l<=N或DO★WHILE*N〉=l
2l=*2+l或l=*l+2
3『VisualForPro程序改错』
『题干』
*【酿改错”*
*题目：
通过字符串变量操作先竖向显示"伟大袓国"，再横向显示
*"袓国伟大"。
*注意：
不可以増加或删除程序行，也不可以更改程序的结构。
STORE••伟大祖国"TOXY
CLEA
*★★★★★★★★★*foUND**********
N=0
DOWHILEN<8
?
SUBS（XY，N，2）
N=N+2
ENDDO
?
?
?
SUBS（XY，4,4）
?
?
SUBS（XY，1,4）
I片数目』：
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程序改错』
妍J
*【酿改错】**
*题目:
计算并在屏幕上显示出n九九乘法表"，显示格式如下
*1x1=1
*2x1=22x2=4
*3x1=33x2=63x3=9
*9x1=9...9x8=729x9=81
*程序中共有2个错误，请修改下面一条语句的错误，并调试运行。
"注意：
不可以增加或删除程序行，也不可以更改程序的结构。
X=1
DOWHILEX<=9
Y=1★★★★★★★★★★★G广、II氏I门★★★★★★★★★★
DOWHILEY<=9
?
?
STR（X，1）+"x"+STR（丫，1）+"="+STR（X*丫，2）+Y=Y+1
ENDDOdisp
X=X+1
ENDDO
『图片数目』：
0张
『文件数目』：
0『错误答案』：
1DO★WHILE*丫<=X或DO★WHILE*X>=Y或DO*WHIL*丫<=X或DO
★WHIL*X>=Y
2?
5『VisualForPro程序改错』
『题干』
*【酿改错】**
*题目：
在XSDB.DBF表中统计法律和中文两个系的总人数和奖学金总额。
*注意：
不可以增加或删除程序行，也不可以更改程序的结构。
USEXSDB
STORE0TOR,S
DOWHILE.T.
FOUN
IF系别=”法律'AND.系别=••中文”
STORES+奖学金TOS
R=R+1
ENDIF
SKIP
★★★★★★★★★★
★*★★★*★★***POUNDIF.NOT.FOUN（）
EXIT
ENDIF
ENDDO?
S，R
USE
I片数目』：
0张
『文件数目』：
1张
r错误答案j:
1IF系别=”法律"★.OR.★系别=”中文"或IF系别=”法律”*OR*系别=”中文或IF系别="中文"★.OR.★系别="法律”
2IFEOF（）
6『VisualForPro程序改错』
『题干』
*【酿改错】**
*题目：
计算1!
+3!
+9!
的结果并输出。
*注意：
不可以增加或删除程序行，也不可以更改程序的结构。
M=1
S=0
DOWHILEM<=9
STOR1TOl，P
P=1
★★★★★★★★★★★
DOWHILEl>M
P=P*I
1+1
S=S+P
M=M+3
ENDDO?
n1!
+3!
+9!
="，S
『图片数目』：
0张
『文件数目』：
0张
隙吴答案J:
1DO★WHILE*l<=M或DO★WHILE*M〉=l或DO★WHIL*l<=M或DO★WHIL*M〉=l
2M=M*3或M=3*M
7『VisualForPro程序改错』
IT题干J
*【酿改错】**
*题目：
求X=1+2+3+...+100,并同时求出1到100之间的奇数之和Y，
*而且显示输出这两个和。
"注意：
不可以增加或删除程序行，也不可以更改程序的结构。
CLEAR
STORE0TOI，X，丫
DOWHILEl<=1001=1+1
X=X+I
IFI/2=INT（l/2）
EXIT
ENDIF
Y=Y+I
ENDDO
?
X，丫
RETURN
『图片数目』：
0张
『文］牛数目』：
0张
『错误答案』：
1DOWHILE1*<100或DOWHILE1*<=*99ggDOWHIL1*<100或DOWHILl*<=*99
2LOOP
8『VisualForPro程序改错』
『题干』
*【酿改错】**
*题目：
在RSH.dbf中，查找职工赵红的工资，如果工资小于200元，
*则增加100元；如果工资大于等于200元且小于500元时，则增
*加50元；否则増加20元。
最后显示赵红的姓名和工资。
*注意：
不可以增加或删除程序行，也不可以更改程序的结构。
CLEAR
USERSH
★★★★★★★★★★★pound**********
LOCATEFOR姓名=赵红
DOCASE
CASE工资<200
REPLACE工资WITH工资+100
CASE工资<500
REPLACE工资WITH工资+50
OTHERWISE
REPLACE工资WITH工资+20
ENDCASE
LIST姓名，工资
USE
『图片数目』：
0张『文件数目』M张
『错误答案』：
1LOCATE*FOR姓名=★"超红”或LOCAFOR姓名=★•赵红’或LOCAFOR姓名=*”赵红”
2DISP姓名，工资或？
姓名，工资或DISPLAY姓名，工资
9『VisualForPro——程序改错』
『题干』"【程序改错】**
*题目：
根据姓名查询RSH.dbf中的职工情况，如果有则显示该职工的
*工资和职称，否则显示’’查无此人!
”。
*注意：
不可以增加或删除程序行，也不可以更改程序的结构。
USERSH
XM="赵红”
LOCATEFOR姓名=XM
IFBOF（）
WAIT"查无此人!
ELSE
?
"工资+职称n
ENDIF
USE
『图片数目』：
0张『文件数目』：
1张
[[错误答案J:
1IFEOF（）或IF.NOT.FOUN（）或IF.NOT.FOUND（）或IFNOTFOUND（）或IF!
FOUND（）或IFNOTFOUN（）
2?
工资，职称或？
STR（工资）+职称或？
STR（工资），职称
10『VisualForPro程序改错』
『题干』*【程序改错】**
*题目：
从键盘上输入任意一串字符，判断是否回文。
*例如：
MUM、456654,MADAM。
*注意：
不可以增加或删除程序行，也不可以更改程序的结构。
SETTALKOFF
ACCEPT"A="TOAL=LEN（A）
FLAG=1
1=1
DOWHILEFLAG=1ORl<=INT（L/2）
IFSUBS（A，I，1）<〉SUBS（A，L-I，1）
FLAG=0
ENDIF
ENDDO
IFFLAG=0
?
"是回文
ELSE
?
"不是回文’’
ENDIF
CANCEL
『图片数目』：
0张『文件数目』：
0张
『错误答案』：
1DO★WHILE★FLAG=1*AND*l<=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
LOOP
?
"最小公倍数为"，x
CANCEL
『图片数目』：
0张『文件数目』：
0张
『错误答案』：
1ENDIF或ENDI
2EXIT
3?
’’最小公倍数为"，★A或？
"最小公倍数为"+*STR㈧
12『VisualForPro程序改错』
『题干』
*【酿改错”*
*题目：
输入两个任意整数，求最大公约数，并显示输出最大公
*约数。
*注意：
不可以增加或删除程序行，也不可以更改程序的结构。
SETTALKOFF
INPUT"X="TOX
★★★★★★★★★★POUNd**********
ACCEPT"丫="TOY
IFX>Y
M=X
N=Y
ELSE
M=Y
N=X
ENDFOR
A=MOD（M，N）
DOWHILEA>=0
M=N
N=A
A=M%N
ENDDO?
N
CANCEL
『图片数目』：
0张『文件数目』张
『错误答案』：
1INPUT*"丫=”TO丫或INPU*"丫=••TO丫
2ENDIF或ENDI
3DO★WHILE*A〉0或DO★WHILE*013『VisualForPro程序改错』
『题干』
【程序改错】**
题目：
本程序计算1!
x3!
x9!
的乘积。
注意：
不可以增加或删除程序行，也不可以更改程序的结构。
SETTALKOFF
M=1
s=o
DOWHILEM<=9
1=1
P=1
DOWHILEM<=9
P=P*I
ENDDO
S=S*P
★★★★★★★★★★
M=M+3
ENDDO
?
n1!
x3!
x9!
="，S
SETTALKON
RETURN
『图片数目』：
0张『文件数目』：
0张
『错误答案』：
1S=1
2DO★WHILE*l<=M或DO★WHILE*M〉=l或DO★WHIL*l<=M或DO★WHIL*M>=l
3M=*M***3sgM=*3***M
14『VisualForPro程序改错』
『题干』*【程序改错】
题目：
从键盘上输入5个数，统计其中奇数的个整数。
注意：
不可以增加或删除程序行，也不可以更改程序的结构。
SETTALKOFF
A=0
FORJ=1TO5
ACCEPT••请输入第••+STR（J，2）+••数"TOM
IFINT（M/2）=M/2
A=A+1
ENDIF
★★★★★★★★★★
ENDFOR
*★★★★★★★★*fo（jND
?
奇数个数是，A
CANCEL
『图片数目』：
0张『文件数目』：
0张
『错误答案』：
1★INPUT*••请输入第’’+3丁叩，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
ACCEPTn请输入要查找的学号nONXH
DOWHILEXH!
="#
LOCATEFOR学号=’’CJ"
IFFOUND（）
?
学号，姓名，入学成绩
ELSE
?
’’无此学号’*
ENDIF
ACCEPT"请继续输入要查找的学号"TOXH
*★★★★★★★★*pQUND**********
ENDFOR
?
”谢谢使用本查找系统”
USE
SETTALKON
『图片数目』：
0张『文件数目』：
1张
『错误答案』：
1ACCEPT*"请输入要查找的学号"★TO*XH或ACCE★”请输入要查找的学号”XH
2LOCATE*FOR学号=*XH或LOCAFOR学号=*XH
3ENDDO或ENDD
『题干』*【酿改错】**
*题目：
以下程序输出如下图所示的图形。
*!
$!
*!
$!
$!
$
*!
$!
$!
*!
$!
$!
$!
$!
$
*注意：
不可以增加或删除程序行，也不可以更改程序的结构
SETTALKOFF1=4
DOWHILEl<10
IFINT（l/2）=l/2
l*2
ELSE
1-1
ENDIF
FORJ=1TO
IFJ/2=0
ELSE
ENDDO
ENDFOR
?
ENDDO
RETURN
『图片数目』：
0『文件数目』：
0张
『错误答案』：
1IF*INT（l/2）*<>*l/2或IF★INT（l/2）*!
=l/2或IF*INT（l/2）*#*l/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
COPYSTRUCTURETOXSDA
USEXS1
LOCATEALL入学成绩>=550
DOWHILEFOUND（）
DELETE
★★★★★★★★★★pound*****★★*★★
LOOP
ENDDO
PACK
BROW
USE
SETTALKON
『图片数目』：
0『文件数目』：
1张
『错误答案』：
1COPY*TO*XS1
2★LOCATE*ALL*FOR入学成绩>=550或★LOCATE*ALL★FOR550*<=入学成绩或MOCA*ALL*FOR入学成绩>=550或★LOCATE*FOR入学成绩〉=★550或FOR入学成绩〉=*550
3
CONTINUE或CONT
『题干』【程序改错】
*题目:
求1+5+9+13+...+97的和
，'主意：
不可以增加或删除程序行，也不可以更改程序的结构。
SETTALKOFF
s=o
N=0
DOWHILEN<=97
S=S+1
N=N+4
ENDWHILE
?
S
SETTALKON
『图片数目』：
0张『文件数目』：
0张
『错误答案』：
1N=1或STORE1TON或STOR1TON
2S=irSir4-ilrNS=*N★+
3ENDDO或ENDD
19『VisualForPro程序改错』
『题干』
*【辦改错”*
*题目:
求2!
+4!
+6!
+…+10!
的和
*注意：
不可以増加或删除程序行，也不可以更改程序的结构。
SETTALKOFF
S=0
T=0
FORN=2TO10
T=T*（T-1）
IFN%2=0
S=S+N
ENDIF
ENDFOR
?
S
『图片数目』：
0『文件数目』：
0张
『错误答案』：
1T=1
2T=*T***N或T=*N**^T
3S=^S★+ggS=i*rT★+
20『VisualForPro程序改错』
『题干』*【程序改错】**
题目：
键盘输入X值时，求其相应的丫值
r-1（X<0）
I
Y=h0（X=0）
I
L1（x〉o）
"注意：
不可以増加或删除程序行，也不可以更改程序的结构。
SETTALKOFF
★★★★★★★★★★COIIMPV**********
ACCEPT"请输入一个数：
TOX
DOWHILE
CASEX<0
Y=-1
CASEX=0
Y=0
DEFAULTX>0
ENDCASE
?
Y
SETTALKOFF
『图片数目』：
0张『文件数目』：
0张
『错误答案』：
1*INPU*"请输入一个数:
"TO★X或*INPUT*"请输入一个数:
"TO★X
2DOCASE
3OTHERWISE或CASEx>0或OTHE
21『VisualForPro程序改错』
『题干』
*【酿改错】**
*题目：
从键盘输入一串汉字，将它逆向输出，并在每个汉字中
*间加一个”*’’号。
*例如：
输入"计算机考试'应输出"试"考算"计"
*注意：
不可以増加或删除程序行，也不可以更改程序的结构。
SETTALKOFF
ACCEPTTOA
DON=2TOLEN（A）
?
?
SUBSTR（A，LEN（A）-N，2）IFN#LEN（A）
ENDIF
ENDFOR
SETTALKON
『图片数目』：
0『文件数目』：
0张
『错误答案』：
1FORN=2TOLEN（A）STEP2或FORN=2TOLEN（A）STEP+2
2?
?
SUBSTR（A，LEN（A）-*N*+*1*，2）或？
？
★SUBS*（A,LEN（A）-*N*+*1*,2）
3?
?
••*••
22『VisualForPro程序改错』
『题干』*【程序改错】**
"题目：
从键盘输入一个表名，打开该表文件，移动记录指针到
*文件头，输出当前记录号；在移动记录指针到文件尾，
输出当前记录号。
注意：
不可以增加或删除程序行，也不可以更改程序的结构。
SETTALKOFF
ACCEPTTOA
FINDA
GOTOP★★★★★★★★★★
NEXT?
RECNO（）
GOBOTTOM
NEXT-1
?
RECNO（）USE
SETTALKON
『图片数目』：
0张『文件数目』：
1张
『错误答案』：
1USE（A）或USE&A
3SKIP或SKIP1或SKIP+1
23『VisualForPro程序改错』
『题干』
*【酿改错”*
"题目：
从键盘输入一个表文件名，打开该表，查找"姓名"是
*’’张三”的记录，并显示该记录，最后输出"姓名"是"张
*三”的记录个数。
（设被打开的表中有固定字段"姓名"）
"注意：
不可以增加或删除程序行，也不可以更改程序的结构。
SETTALKOFF
ACCEPTTOA
USE&A
★★★★★★★★★★un□★★★*★★★★★★
N=1
SCANFOR姓名="张三’
★★★★★★★★★★
Found***★★*★★★*
LIST
N=N+1
ENDSCAN
?
记录个数是，N
USE
SETTALKON
『图片数目』：
0张『文件数目』张
『错误答案』：
1N=0
2DISPLA丫或DISP
3?
"记录个数是"，N或？
"记录个数是",str（N）或？
"记录个数是"+str（N）
24『VisualForPro程序改错』
『题干』*【程序改错】
*题目：
该程序完成口令检验功能。
输入三次不正确退出。
*注意：
不可以增加或删除程序行，也不可以更改程序的结构,
SETTALKOFF
CLEARass1="AbCdEf”
TT=1
DOWHILETT<4@10,20SAY"请输入口令:
"
SETCONSOLEOFF
ACCEPTTOass
SETCONSOLEON
?
’’欢迎使用本系统!
"
?
”口令错，按任意键再输入一次！
••
WAIT11
ENDIF
ENDDO
RETURN
『图片数目』：
0张『文件数目』：
0张
『错误答案』：
1IF★UPPE*（ass1）*==*UPPE*（ass）或IFASS1==ASS或IFASS==ASS1
或IF★UPPER*（ass1）*==*UPPER*（ass）或IF★LOWER*（ass1）*==*LOWER*（ass）
2EXIT
3TT=*TT★+*1或TT=*1+TT
25『VisualForPro程序改错』
升级会员 