资源描述：
《VB程序改错40题含答案.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、【程序改错】题目：该程序实现将输入的0-255之间的正整数转换成二进制数OptionExplicitPrivateSubForm_Click()Constn=8Dima(n)AsInteger,sAsString,mAsInteger,xAsIntegerx=Val(InputBox("请输入一个0-255之间的正整数："))PrintxForm=1Tona(m)=xMod2x=x/2Nextms=""Form=nTo0Step-1s=Str(a(m))NextmPrintsEndSub答案：=======(答案1)=======Form=0Ton===
2、====(答案2)=======x=x2=========或=========x=int(x/2)=======(答案3)=======s=s+Str(a(m))第3题（1.0分）题号:463'【程序改错】'题目：以下程序功能是输入三个数，由大到小排序。OptionExplicitDimAAsIntegerDimBAsIntegerDimCAsIntegerPrivateSubForm_Click()DimnTempAsIntegerA=Val(InputBox("Pleaseinputfirstinteger","输入正整数"))B=Val(Inpu
3、tBox("Pleaseinputsecondinteger","输入正整数"))C=Val(InputBox("Pleaseinputthirdinteger","输入正整数"))IfA<=CThennTemp=AA=BB=nTempEndIfIfB<=CThennTemp=AA=CC=nTempEndIfIfA<=BThennTemp=BB=CC=nTempEndIfPrint"Theintegersinorderis";A;B;CEndSub答案：=======(答案1)=======IfA<=BThen=========或=========IfB
4、>=AThen=======(答案2)=======IfA<=CThen=========或=========IfC>=AThen=======(答案3)=======IfB<=CThen=========或=========IfC>=BThen第4题（1.0分）题号:127'【程序改错】'题目：下面程序可输出如下图形：'*'***'*****'*******'*********'------------------------------------------------OptionExplicitPrivateSubForm_Click()Dimm
5、AsInteger,nAsInteger,sAsString,iAsInteger,jAsIntegern=4m=1s="*"Fori=5To1Step-1PrintSpc(n)Forj=1To2*m-1Prints;NextjPrintn=n+1m=m-1NextiEndSub答案：=======(答案1)=======PrintSpc(n);=========或=========PrintSpc(i);=========或=========?Spc(n);=========或=========?Spc(i);=======(答案2)=======n=
6、n-1=========或=========n=-1+n=======(答案3)=======m=m+1第5题（1.0分）题号:469'【程序改错】'题目：已知一个函数f(x)=1000*sin(x)，利用绘图方法'在图片框中显示其图形。结果如图1OptionExplicitPrivateConstpi=3.14159PrivateSubCommand1_Click()DimxAsIntegerPicture1.Scale(-pi,-1200)-(pi,1200)Forx=-piTopiSteppiPicture1.PSet(x,1000*pi*Sin(
7、x)),vbRedNextxEndSub答案：=======(答案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位
8、的数。OptionExplicitPrivateSubForm_Click()D
