vb程序改錯40題含答案

1、【程序改錯】題目：該程序實現(xiàn)將輸入的0255之間的正整數(shù)轉換成二進制數(shù)OptionExplicitPrivateSubFm_Click()Constn=8Dima(n)AsIntegersAsStringmAsIntegerxAsIntegerx=Val(InputBox(“請輸入一個0255之間的正整數(shù)：“))PrintxFm=1Tona(m)=xMod2x=x2Nextms=““Fm=nTo0Step1s=Str(a(m))Next

2、mPrintsEndSub答案：答案：=======(=======(答案答案1)=======1)=======FFm=0ToTon=======(=======(答案答案2)=======2)=======x=x=x2==================或==================x=x=int(x2)int(x2)=======(=======(答案答案3)=======3)=======s=sStr(a(m))Str(

3、a(m))第3題（1.0分）題號:463【程序改錯】題目：以下程序功能是輸入三個數(shù)，由大到小排序。OptionExplicitDimAAsIntegerDimBAsIntegerDimCAsIntegerPrivateSubFm_Click()DimnTempAsIntegerA=Val(InputBox(“Pleaseinputfirstinteger““輸入正整數(shù)“))B=Val(InputBox(“Pleaseinputsecon

4、dinteger““輸入正整數(shù)“))C=Val(InputBox(“Pleaseinputthirdinteger““輸入正整數(shù)“))IfA=CThennTemp=AA=BB=nTempEndIfIfB=CThennTemp=AA=CC=nTempNextiEndSub答案：答案：=======(=======(答案答案1)=======1)=======PrintPrintSpc(n)Spc(n)==================或

5、==================PrintPrintSpc(i)Spc(i)==================或==================Spc(n)Spc(n)==================或==================Spc(i)Spc(i)=======(=======(答案答案2)=======2)=======n=n1==================或==================n=1

6、n1n=======(=======(答案答案3)=======3)=======m=m1第5題（1.0分）題號:469【程序改錯】題目：已知一個函數(shù)f(x)=1000sin(x)，利用繪圖方法在圖片框中顯示其圖形。結果如圖1OptionExplicitPrivateConstpi=3.14159PrivateSubComm1_Click()DimxAsIntegerPicture1.Scale(pi1200)(pi1200)Fx=pi

7、TopiSteppiPicture1.PSet(x1000piSin(x))vbRedNextxEndSub答案答案：=======(=======(答案答案1)=======1)=======DimDimxAsAsSingleSingle==================或==================DimDimx!x!=======(=======(答案答案2)=======2)=======FFx=pipiToTopip

8、iStepSteppipi180180=======(=======(答案答案3)=======3)=======Picture1.PSetPicture1.PSet(x(x10001000Sin(x))Sin(x))vbRedvbRed==================或==================Picture1.PSetPicture1.PSet(x(xSin(x)1000)Sin(x)1000)vbRedvbRed第6