vb程序改错40题

《vb程序改错40题》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第2题（1.0分）题号:129'------------------------------------------------'【程序改错】'------------------------------------------------'题目：该程序实现将输入的0-255之间的正整数转'换成二进制数'------------------------------------------------OptionExplicitPrivateSubForm_Click()Constn=8Dima(n)AsInteger,sAsString,mAsInt

2、eger,xAsIntegerx=Val(InputBox("请输入一个0-255之间的正整数："))Printx'**********FOUND**********Form=1Tona(m)=xMod2'**********FOUND**********x=x/2Nextms=""Form=nTo0Step-1'**********FOUND**********s=Str(a(m))NextmPrintsEndSub答案：=======(答案1)=======Form=0Ton=======(答案2)=======x=x2=========或==

3、=======x=int(x/2)=======(答案3)=======s=s+Str(a(m))第3题（1.0分）题号:463'------------------------------------------------'【程序改错】'------------------------------------------------'题目：以下程序功能是输入三个数，由大到小排序。'------------------------------------------------OptionExplicitDimAAsIntegerDimBAsInt

4、egerDimCAsIntegerPrivateSubForm_Click()DimnTempAsIntegerA=Val(InputBox("Pleaseinputfirstinteger","输入正整数"))B=Val(InputBox("Pleaseinputsecondinteger","输入正整数"))C=Val(InputBox("Pleaseinputthirdinteger","输入正整数"))'**********FOUND**********IfA<=CThennTemp=AA=BB=nTempEndIf'**********FO

5、UND**********IfB<=CThennTemp=AA=CC=nTempEndIf'**********FOUND**********IfA<=BThennTemp=BB=CC=nTempEndIfPrint"Theintegersinorderis";A;B;CEndSub答案：=======(答案1)=======IfA<=BThen=========或=========IfB>=AThen=======(答案2)=======IfA<=CThen=========或=========IfC>=AThen=======(答案3)=====

6、==IfB<=CThen=========或=========IfC>=BThen第4题（1.0分）题号:127'------------------------------------------------'【程序改错】'------------------------------------------------'题目：下面程序可输出如下图形：'*'***'*****'*******'*********'------------------------------------------------OptionExplicitPrivateS

7、ubForm_Click()DimmAsInteger,nAsInteger,sAsString,iAsInteger,jAsIntegern=4m=1s="*"Fori=5To1Step-1'**********FOUND**********PrintSpc(n)Forj=1To2*m-1Prints;NextjPrint'**********FOUND**********n=n+1'**********FOUND**********m=m-1NextiEndSub答案：=======(答案1)=======PrintSpc(n);========

8、=或=========PrintSpc(i);=========或=========?Spc(n);====