上海海事大学vb程序改错40题

《上海海事大学vb程序改错40题》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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

2、sAsString,mAsInteger,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====

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

4、------------OptionExplicitDimAAsIntegerDimBAsIntegerDimCAsIntegerPrivateSubForm_Click()DimnTempAsIntegerA=Val(InputBox("Pleaseinputfirstinteger","输入正整数"))B=Val(InputBox("Pleaseinputsecondinteger","输入正整数"))C=Val(InputBox("Pleaseinputthirdinteger","输入正整数"))'******

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

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

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

8、********FOUND**********n=n+1'**********FOUND**********m=m-1NextiEndSub答案：=======(答案1)=======PrintSpc(n);=========或=========PrintSpc(i);=========或=========?Spc(n);====