VB程序改错40题含答案.docx
《VB程序改错40题含答案.docx》由会员分享，可在线阅读，更多相关《VB程序改错40题含答案.docx（58页珍藏版）》请在冰豆网上搜索。
VB程序改错40题含答案
【程序改错】
题目：
该程序实现将输入的0-255之间的正整数转换成二进制数
OptionExplicit
PrivateSubForm_Click（）
Constn=8
Dima（n）AsInteger,sAsString,mAsInteger,xAsInteger
x=Val（InputBox（"请输入一个0-255之间的正整数：
"））
Printx
Form=1Ton
a（m）=xMod2
x=x/2
Nextm
s=""
Form=nTo0Step-1
s=Str（a（m））
Nextm
Prints
EndSub
答案：
=======（答案1）=======
Form=0Ton
=======（答案2）=======
x=x\2
=========或=========
x=int（x/2）
=======（答案3）=======
s=s+Str（a（m））
第3题（1.0分）题号:
463
'【程序改错】
'题目：
以下程序功能是输入三个数，由大到小排序。
OptionExplicit
DimAAsInteger
DimBAsInteger
DimCAsInteger
PrivateSubForm_Click（）
DimnTempAsInteger
A=Val（InputBox（"Pleaseinputfirstinteger","输入正整数"））
B=Val（InputBox（"Pleaseinputsecondinteger","输入正整数"））
C=Val（InputBox（"Pleaseinputthirdinteger","输入正整数"））
IfA<=CThen
nTemp=A
A=B
B=nTemp
EndIf
IfB<=CThen
nTemp=A
A=C
C=nTemp
EndIf
IfA<=BThen
nTemp=B
B=C
C=nTemp
EndIf
Print"Theintegersinorderis";A;B;C
EndSub
答案：
=======（答案1）=======
IfA<=BThen
=========或=========
IfB>=AThen
=======（答案2）=======
IfA<=CThen
=========或=========
IfC>=AThen
=======（答案3）=======
IfB<=CThen
=========或=========
IfC>=BThen
第4题（1.0分）题号:
127
'【程序改错】
'题目：
下面程序可输出如下图形：
'*
'***
'*****
'*******
'*********
'------------------------------------------------
OptionExplicit
PrivateSubForm_Click（）
DimmAsInteger,nAsInteger,sAsString,iAsInteger,jAsInteger
n=4
m=1
s="*"
Fori=5To1Step-1
PrintSpc（n）
Forj=1To2*m-1
Prints;
Nextj
Print
n=n+1
m=m-1
Nexti
EndSub
答案：
=======（答案1）=======
PrintSpc（n）;
=========或=========
PrintSpc（i）;
=========或=========
Spc（n）;
=========或=========
Spc（i）;
=======（答案2）=======
n=n-1
=========或=========
n=-1+n
=======（答案3）=======
m=m+1
第5题（1.0分）题号:
469
'【程序改错】
'题目：
已知一个函数f（x）=1000*sin（x），利用绘图方法
'在图片框中显示其图形。
结果如图1
OptionExplicit
PrivateConstpi=3.14159
PrivateSubCommand1_Click（）
DimxAsInteger
Picture1.Scale（-pi,-1200）-（pi,1200）
Forx=-piTopiSteppi
Picture1.PSet（x,1000*pi*Sin（x））,vbRed
Nextx
EndSub
答案：
=======（答案1）=======
DimxAsSingle
=========或=========
Dimx!
=======（答案2）=======
Forx=-piTopiSteppi/180
=======（答案3）=======
Picture1.PSet（x,1000*Sin（x））,vbRed
=========或=========
Picture1.PSet（x,Sin（x）*1000）,vbRed
第6题（1.0分）题号:
497
'【程序改错】
'题目:
编程求一个十进制整数n的各位数字之和，设n为小于或等于5位的数。
OptionExplicit
PrivateSubForm_Click（）
DimNAsInteger,SumAsInteger,S1AsString,S2AsString
DimiAsInteger,ChAsString
Sum=0
N=InputBox（"输入整数n"）
S1=Str（N）
S1=RTrim（S1）
Fori=1ToLen（S1）
Ch=Mid（N,i,1）
Sum=Val（Ch）
Nexti
Print"该整数的各位数之和是：
";Sum
EndSub
答案：
=======（答案1）=======
S1=Trim（S1）
=========或=========
S1=lTrim（S1）
=======（答案2）=======
Ch=Mid（S1,i,1）
=======（答案3）=======
Sum=Sum+Val（Ch）
=========或=========
Sum=Sum+Val（Ch）
第7题（1.0分）题号:
454
'【程序改错】
'题目：
本程序的功能是随机产生的10个两位正整数，并进行递减排序。
OptionExplicit
PrivateSubCreateRND（）
DimTempAsInteger
DimIAsInteger
DimNAsInteger
DimX（10）AsInteger
DimJAsInteger
N=10
Print"数据：
"
ForI=1ToN
X（I）=Int（Rnd（）*90）
PrintX（I）;
NextI
Print
Print"排序：
"
ForI=0ToN-1
ForJ=I+1ToN
IfX（I）>X（J）Then
Temp=X（I）
X（J）=X（I）
X（I）=Temp
EndIf
NextJ
PrintX（I）;
NextI
Print
EndSub
PrivateSubCommand1_Click（）
CreateRND
EndSub
答案：
=======（答案1）=======
X（I）=Int（10+Rnd（）*90）
=========或=========
X（I）=Int（10+Rnd（）*90）
=======（答案2）=======
IfX（I）=========或=========
IfX（I）<=X（J）Then
=========或=========
IfX（J）>X（I）Then
=========或=========
IfX（J）>=X（I）Then
=======（答案3）=======
temp=X（J）
第9题（1.0分）题号:
130
'【程序改错】
'题目：
以下程序段用于计算5的N次方。
OptionExplicit
PrivateSubForm_Click（）
DimnAsInteger,kAsInteger,sAsLong
n=InputBox（"Inputn"）
k=0
s=0
DoWhilek<=n
s=s*5
k=k+1
Next
Print"5的";"n次方是";s
EndSub
答案：
=======（答案1）=======
k=1
=======（答案2）=======
s=1
=======（答案3）=======
Loop
第11题（1.0分）题号:
452
'【程序改错】
'题目：
用自定义函数的方法求sum（x），求当-1≤x≤1时，
'sum（x）=x/2！
+x^2/3!
+x^3/4!
+……+x^n/（n+1）!
，
'当x〉1或x〈-1时，函数值为0。
当n〈=0时，输入数
'据错误。
X、N都是由用户输入。
OptionExplicit
PrivateSubCommand1_Click（）
DimsAsSingle
DimnAsInteger,xAsSingle,kAsInteger
n=Val（InputBox（"Pleaseinputaintegervalue:
"））
x=Val（InputBox（"Pleaseinputasinglevalue:
"））
Ifn<=0Then
k=MsgBox（"数据输入错误！
",vbRetryCancel+vbExclamation,"数据输入"）
ExitSub
EndIf
s=Sum（x,n）
Prints
EndSub
FunctionSum（xAsSingle,nAsInteger）
DimiAsInteger,ssAsLong
ss=1
Sum=0
Ifx>1Orx<-1Then
ExitDo
Else
Fori=2Ton
ss=ss*i
Sum=x^（i-1）/ss
Nexti
EndIf
EndFunction
答案：
=======（答案1）=======
exitFunction
=======（答案2）=======
Fori=2Ton+1
=========或=========
Fori=2To1+n
=======（答案3）=======
sum=sum+x^（i-1）/ss
第14题（1.0分）题号:
136
'【程序改错】
'题目：
程序功能为打印下列图形：
'*
'**
'***
'****
'*****
'------------------------------------------------
OptionExplicit
PrivateSubForm_Click（）
Cls
DimiAsInteger
DimjAsInteger
Fori=1To7
Forj=1To5
Print"*";
Loop
Print
Nexti
EndSub
答案：
=======（答案1）=======
Fori=1To5
=======（答案2）=======
Forj=1Toi
=======（答案3）=======
Nextj
=========或=========
Next
第16题（1.0分）题号:
461
'【程序改错】
'题目：
产生30个小于100的成绩随机数，并统计出优、良
'、中等、及格、不及格数的个数，并计算出成绩属
'于优秀段的成绩平均分。
OptionExplicit
PrivateSubForm_Click（）
Dimk%,a%,bjg%,jg%,zd%,lh%,yxAsInteger
DimpjfAsInteger
Randomize
pjf=0
Fork=1To30
a=Int（Rnd（））
SelectCasea
Case0To59
bjg=bjg+1'不及格
Case60To69
jg=jg+1'及格
Case70To79
zd=zd+1'中等
Case80To89
lh=lh+1'良好
Case90To100
yx=yx+1'优秀
pjf=pjf+1
EndSelect
Nextk
Ifyx>0Thenpjf=pjf/30
Debug.Print"不及格"+Str$（bjg）+"人，及格"+Str$（jg）+"人，中等"+Str$（zd）+"人";
Debug.Print"良好"+Str$（lh）+"优秀"+Str$（yx）+"人"
Debug.Print"优秀分数段成绩平均分"&pjf
EndSub
答案：
=======（答案1）=======
a=Int（Rnd（）*100）
=========或=========
a=Int（Rnd*100）
=======（答案2）=======
pjf=pjf+a
=======（答案3）=======
Ifyx>0Thenpjf=pjf/yx
第17题（1.0分）题号:
456
'【程序改错】
'题目：
挑选单数并排序程序：
程序启动后由计算机自动产
'生20个属于[100，300]之间的随机整数，单击"显
'示全体"按钮时，在Form1上显示这20个随机数；
'单击"显示奇数"按钮时，在Form1上显示其中的奇数；
'单击"排序"按钮时，在Form1上将这些奇数从小到大显示。
'要求显示格式为每行显示5个数据。
OptionExplicit
Privatea（20）AsInteger,b（20）AsInteger
PrivatekAsInteger
PrivateSubcmdodd_Click（）
DimIAsInteger
k=0
ForI=1To20
Ifa（I）/2=Int（a（I）/2）Then
k=k+1
b（k）=a（I）
EndIf
NextI
ForI=1Tok
Printb（I）;
IfInt（I/5）<>I/5ThenPrint
NextI
Print
EndSub
PrivateSubcmdAll_Click（）
Randomize
DimIAsInteger
ForI=1To20
a（I）=Int（Rnd（）*20+100）
Printa（I）,
IfInt（I/5）=I/5ThenPrint
NextI
Print
EndSub
PrivateSubcmdsort_Click（）
DimIAsInteger
DimJAsInteger
DimTempAsInteger
ForI=1Tok-1
ForJ=ITok
Ifb（I）>b（J）ThenTemp=b（I）:
b（I）=b（J）:
b（J）=Temp
NextJ
NextI
ForI=1Tok
Printb（I）;
IfInt（I/5）=I/5ThenPrint
NextI
EndSub
答案：
=======（答案1）=======
Ifa（I）/2<>Int（a（I）/2）Then
=========或=========
Ifa（I）mod2<>0Then
=========或=========
If0<>a（I）mod2Then
=========或=========
Ifa（I）/2<>a（I）\2Then
=========或=========
Ifint（a（I）/2）<>a（I）/2Then
=========或=========
Ifa（I）\2<>a（I）/2Then
=======（答案2）=======
IfInt（I/5）=I/5ThenPrint
=========或=========
IfImod5=0ThenPrint
=========或=========
If0=Imod5ThenPrint
=========或=========
IfI/5=int（I/5）ThenPrint
=========或=========
IfI/5=I\5ThenPrint
=========或=========
IfI\5=I/5ThenPrint
=======（答案3）=======
a（I）=Int（Rnd（）*200+100）
第19题（1.0分）题号:
499
'【程序改错】
'题目:
编程将一个数从已经有序（设从小到大排序）的数组
'中删除，使数组还继续保持有序而且其余元素按照下
'标连续存放。
OptionExplicit
PrivateSubForm_Click（）
DimA（）AsInteger,NAsInteger,FlagAsInteger
DimiAsInteger,XAsInteger,PAsInteger
Flag=0
N=InputBox（"输入元素个数"）
DimA（N）
Fori=1ToN
A（i）=InputBox（"输入数组的第"&i&"个元素"）
Nexti
Print"删除某元素前的数组"
Fori=1ToN
PrintA（i）;
Nexti
Start:
X=InputBox（"输入要删除的元素：
"）
Fori=1ToN
IfX=A（i）ThenP=i:
Flag=1
Nexti
IfFlag=0ThenMsgBox（"没有此元素"）:
GoToStart
Fori=PToN-1
A（i+1）=A（i）
Nexti
N=N+1
Print"删除元素后的数组:
"
Fori=1ToN
PrintA（i）;
Nexti
EndSub
答案：
=======（答案1）=======
ReDimA（N）
=======（答案2）=======
A（i）=A（i+1）
=========或=========
A（i）=A（1+i）
=======（答案3）=======
N=N-1
第20题（1.0分）题号:
139
'【程序改错】
'题目：
随机产生并输出100以内大于50的20个整数，输
'出时每5个数一行。
OptionExplicit
PrivateSubForm_Click（）
RandomizeTimer
DimiAsInteger,maAsInteger
i=1
DoUntili<20
ma=Rnd（）*100\1
Ifma>50Then
Printma;
i=i+1
Ifi\5=0Then
Print
EndIf
EndIf
Loop
EndSub
答案：
=======（答案1）=======
i=0
=======（答案2）=======
Dowhilei<20
=========或=========
Dowhile20>i
=========或=========
Dowhilei<=19
=========或=========
Dowhile19>=i
=======（答案3）=======
Ifimod5=0Then
第23题（1.0分）题号:
474
'【程序改错】
'题目:
程序功能为求解一元二次方程的实根，请修正程序中错误。
OptionExplicit
PrivateSubForm_Load（）
Dima!
b!
c!
root1#,root2#,workAsDouble
a=Val（InputBox（"请输入系数a的值"））
b=Val（InputBox（"请输入系数b的值"））
c=Val（InputBox（"请输入系数c的值"））
work=b*2-4*a*c
Ifwork>=0Anda<>0Then
root1=（Sqr（work））/（2*a）
root2=（Sqr（work））/（2*a）
Debug.P
升级会员 