vb程序改錯(cuò)40題含答案

1、【程序改錯(cuò)】題目：該程序?qū)崿F(xiàn)將輸入的0255之間的正整數(shù)轉(zhuǎn)換成二進(jìn)制數(shù)OptionExplicitPrivateSubFm_Click()Constn=8Dima(n)AsIntegersAsStringmAsIntegerxAsIntegerx=Val(InputBox(“請(qǐng)輸入一個(gè)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分）題號(hào):463【程序改錯(cuò)】題目：以下程序功能是輸入三個(gè)數(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分）題號(hào):469【程序改錯(cuò)】題目：已知一個(gè)函數(shù)f(x)=1000sin(x)，利用繪圖方法在圖片框中顯示其圖形。結(jié)果如圖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