vb程序改错40题含答案

vb程序改错40题含答案

ID:2061564

大小:183.00 KB

页数:36页

时间:2017-11-14

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=0Ton=======(答案2)=======x=

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

3、整数"))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>=AThen=======(答案2)=======IfA<=CThen=========或========

4、=IfC>=AThen=======(答案3)=======IfB<=CThen=========或=========IfC>=BThen第4题(1.0分)题号:127'【程序改错】'题目:下面程序可输出如下图形:'*'***'*****'*******'*********'------------------------------------------------OptionExplicitPrivateSubForm_Click()DimmAsInteger,nAsInteger,sAsString,iAsInteger,jAsIntegern=4m=1s="*"Fori=5To1

5、Step-1PrintSpc(n)Forj=1To2*m-1Prints;NextjPrintn=n+1m=m-1NextiEndSub答案:=======(答案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)=1

6、000*sin(x),利用绘图方法'在图片框中显示其图形。结果如图1OptionExplicitPrivateConstpi=3.14159PrivateSubCommand1_Click()DimxAsIntegerPicture1.Scale(-pi,-1200)-(pi,1200)Forx=-piTopiSteppiPicture1.PSet(x,1000*pi*Sin(x)),vbRedNextxEndSub答案:=======(答案1)=======DimxAsSingle=========或=========Dimx!=======(答案2)=======Forx=-piTop

7、iSteppi/180=======(答案3)=======Picture1.PSet(x,1000*Sin(x)),vbRed=========或=========Picture1.PSet(x,Sin(x)*1000),vbRed第6题(1.0分)题号:497'【程序改错】'题目:编程求一个十进制整数n的各位数字之和,设n为小于或等于5位的数。OptionExplicitPrivateSubForm_Click()D

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

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

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