VB程序改错40题

第2题（1.0分）题号:129'【程序改错】'题目：该程序实现将输入的0-255之间的正整数转'换成二进制数OptionExplicitPrivateSubForm_Click()Constn=8Dima(n)AsInteger,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=======(答案2)x=x\2或x=int(x/2)=======(答案3)s=s+Str(a(m))第3题（1.0分）题号:463'题目：以下程序功能是输入三个数，由大到小排序。'------------------------------------------------OptionExplicitDimAAsIntegerDimBAsIntegerDimCAsIntegerPrivateSubForm_Click()DimnTempAsIntegerA=Val(InputBox(Pleaseinputfirstinteger,输入正整数))B=Val(InputBox(Pleaseinputsecondinteger,输入正整数))C=Val(InputBox(Pleaseinputthirdinteger,输入正整数))'**********FOUND**********IfA=CThennTemp=AA=BB=nTempEndIf'**********FOUND**********IfB=CThennTemp=AA=CC=nTempEndIf'**********FOUND**********IfA=BThennTemp=BB=CC=nTempEndIfPrintTheintegersinorderis;A;B;CEndSub答案：=======(答案1)=======IfA=BThen=========或=========IfB=AThen=======(答案2)=======IfA=CThen=========或=========IfC=AThen=======(答案3)=======IfB=CThen=========或=========IfC=BThen第4题（1.0分）题号:127'题目：下面程序可输出如下图形：'*'***'*****'*******'*********'------------------------------------------------OptionExplicitPrivateSubForm_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);=======(答案2)=======n=n-1=======(答案3)=======m=m+1第5题（1.0分）题号:469'题目：已知一个函数f(x)=1000*sin(x)，利用绘图方法'在图片框中显示其图形。结果如图1'------------------------------------------------OptionExplicitPrivateConstpi=3.14159PrivateSubCommand1_Click()'**********FOUND**********DimxAsIntegerPicture1.Scale(-pi,-1200)-(pi,1200)'**********FOUND**********Forx=-piTopiSteppi'**********FOUND**********Picture1.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'题目:编程求一个十进制整数n的各位数字之和，设n为小于或等于5位的数OptionExplicitPrivateSubForm_Click()DimNAsInteger,SumAsInteger,S1AsString,S2AsStringDimiAsInteger,ChAsStringSum=0N=InputBox(输入整数n)S1=Str(N)'**********FOUND**********S1=RTrim(S1)Fori=1ToLen(S1)'**********FOUND**********Ch=Mid(N,i,1)'**********FOUND**********Sum=Val(Ch)NextiPrint该整数的各位数之和是：;SumEndSub答案：=======(答案1)=======S1=Trim(S1)=======(答案2)=======Ch=Mid(S1,i,1)=======(答案3)=======Sum=Sum+Val(Ch)第7题（1.0分）题号:454'题目：本程序的功能是随机产生的10个两位正整数，并进行递减排序。'------------------------------------------------OptionExplicitPrivateSubCreateRND()DimTempAsIntegerDimIAsIntegerDimNAsIntegerDimX(10)AsIntegerDimJAsIntegerN=10Print数据：ForI=1ToN'**********FOUND**********X(I)=Int(Rnd()*90)PrintX(I);NextIPrintPrint排序：ForI=0ToN-1ForJ=I+1ToN'**********FOUND**********IfX(I)X(J)Then'**********FOUND**********Temp=X(I)X(J)=X(I)X(I)=TempEndIfNextJPrintX(I);NextIPrintEndSubPrivateSubCommand1_Click()CreateRNDEndSub答案：=======(答案1)=======X(I)=Int(10+Rnd()*90)=======(答案2)=======IfX(I)X(J)Then=======(答案3)=======temp=X(J)第9题（1.0分）题号:130'题目：以下程序段用于计算5的N次方。'------------------------------------------------OptionExplicitPrivateSubForm_Click()DimnAsInteger,kAsInteger,sAsLongn=InputBox(Inputn)'**********FOUND**********k=0'**********FOUND**********s=0DoWhilek=ns=s*5k=k+1'**********FOUND**********NextPrint5的;n次方是;sEndSub答案：=======(答案1)=======k=1=======(答案2)=======s=1=======(答案3)=======Loop第11题（1.0分）题号:452'题目：用自定义函数的方法求sum（x），求当-1≤x≤1时，'sum（x）=x/2！+x^2/3!+x^3/4!+……+x^n/(n+1)!，'当x〉1或x〈-1时，函数值为0。当n〈=0时，输入数'据错误。X、N都是由用户输入。'------------------------------------------------OptionExplicitPrivateSubCommand1_Click()DimsAsSingleDimnAsInteger,xAsSingle,kAsIntegern=Val(InputBox(Pleaseinputaintegervalue:))x=Val(InputBox(Pleaseinputasinglevalue:))Ifn=0Thenk=MsgBox(数据输入错误！,vbRetryCancel+vbExclamation,数据输入)ExitSubEndIfs=Sum(x,n)PrintsEndSubFunctionSum(xAsSingle,nAsInteger)DimiAsInteger,ssAsLongss=1Sum=0Ifx1Orx-1Then'**********FOUND**********ExitDoElse'**********FOUND**********Fori=2Tonss=ss*i'**********FOUND**********Sum=x^(i-1)/ssNextiEndIfEndFunction答案：=======(答案1)=======exitFunction=======(答案2)=======Fori=2Ton+1=========或=========Fori=2To1+n=======(答案3)=======sum=sum+x^(i-1)/ss第14题（1.0分）题号:136'题目：程序功能为打印下列图形：'*'**'***'****'*****'------------------------------------------------OptionExplicitPrivateSubForm_Click()ClsDimiAsIntegerDimjAsInteger'**********FOUND**********Fori=1To7'**********FOUND**********Forj=1To5Print*;'**********FOUND**********LoopPrintNextiEndSub答案：=======(答案1)=======Fori=1To5=======(答案2)=======Forj=1Toi=======(答案3)=======Nextj=========或=========Next第16题（1.0分）题号:461'题目：产生30个小于100的成绩随机数，并统计出优、良'、中等、及格、不及格数的个数，并计算出成绩属'于优秀段的成绩平均分。'------------------------------------------------OptionExplicitPrivateSubForm_Click()Dimk%,a%,bjg%,jg%,zd%,lh%,yxAsIntegerDimpjfAsIntegerRandomizepjf=0Fork=1To30'**********FOUND********