vb程序改错40题含答案

vb程序改错40题含答案

ID:17711344

大小:183.00 KB

页数:36页

时间:2018-09-04

vb程序改错40题含答案_第1页
vb程序改错40题含答案_第2页
vb程序改错40题含答案_第3页
vb程序改错40题含答案_第4页
vb程序改错40题含答案_第5页
资源描述:

《vb程序改错40题含答案》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库

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=0To

2、n=======(答案2)=======x=x2=========或=========x=int(x/2)=======(答案3)=======s=s+Str(a(m))第3题(1.0分)题号:463'【程序改错】'题目:以下程序功能是输入三个数,由大到小排序。OptionExplicitDimAAsIntegerDimBAsIntegerDimCAsIntegerPrivateSubForm_Click()DimnTempAsIntegerA=Val(InputBox("Pleaseinputfirstinteger","输入正整数"))B=

3、Val(InputBox("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=========或

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

5、Form_Click()DimmAsInteger,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);=

6、======(答案2)=======n=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=-piTopiSteppiPict

7、ure1.PSet(x,1000*pi*Sin(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'【程序改错】'题目:编

8、程求一个十进制整数n的各位数字之和,设n为小于或等于5位的数。OptionExplicitPrivateSubForm_Click()D

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。