VB程序填空題試卷

1、v1.0可編輯可修改1、下列程序的功能是從鍵盤上任意輸入一個(gè)數(shù)，判斷這個(gè)數(shù)是正數(shù)、負(fù)數(shù)、還是零，并輸出判斷結(jié)果。程序中有三處錯(cuò)誤，請(qǐng)更正。程序如下：PrivateSubCommand1_Click()DimaAsSingleDimpyAsStringa=Val(Text1)Ifa>0Thenpy="正數(shù)"Ifa=0Thenpy="零"Ifa<=0Thenpy="負(fù)數(shù)"=aEndSub2、完善程序，使其能輸出：1-2+3-4+5-6+.+99-100的值。程序如下：PrivateSubCommand1_Click()s=Fo

2、ri=1Tos=s+(-1)氣)*iNextiPrintsEndSub3、已知一元二次方程的二次項(xiàng)系數(shù)、一次項(xiàng)系數(shù)、常數(shù)項(xiàng)分別為a、b、c,其中a不等于0。編寫程序，求方程的根，要求：如果方程無實(shí)數(shù)根，則輸出“無實(shí)數(shù)根”，否則輸出兩個(gè)實(shí)數(shù)根。程序如下：PrivateSubCommand1_Click()Dima,b,c,dAsSingleDimx1,x2AsSinglea=Valb=Valc=Vald=bA2-4*a*cIfdThenx1=(-b+Sqr(d)/(2*a)x2=(-b-Sqr(d)/(2*a)=x1=x2EndIfEndSub4、如果下面程序執(zhí)行后輸出的結(jié)果是132,請(qǐng)將程序補(bǔ)

3、充完整:PrivateSubCommand1_Click()i=12:s=1DoWhiles=s*ii=i-1LoopMsgBox(s)ENDSub5、下面的程序是求7!(7!=1*2*3.*6*7)的值，并在默認(rèn)窗口輸出這個(gè)值。程序中有兩處錯(cuò)誤，請(qǐng)更正。PrivateSubCommand1_Click()DimaAsSinglea=0Fori=1tona=a*iNextiMsgbox(a)EndSub6、下面的程序是求100以內(nèi)奇數(shù)和s的值(S=1+3+5+7.+99)。請(qǐng)將程序補(bǔ)充完整：PrivateSubCommand1_Click()DimsAsSingleDimiAsSingleS=

4、Fori=1to100StepNextiMsgbox(s)EndSub7、下列VisualBasic程序：PrivateSubCommand1_Click()DimsumAsLong,iAsIntegersum=0Fori=1To100Step2sum=sum+i*iNexti=Str(sum)EndSub該程序能完成計(jì)算的數(shù)學(xué)表達(dá)式是8、小明數(shù)了圈在一起的雞和兔共有30個(gè)頭，90只腳，在這個(gè)圈子中雞和兔各有多少只為了實(shí)現(xiàn)這一目標(biāo)，完善下面的VB程序，在劃線處填入合適的語句或表達(dá)式。設(shè)雞為x只，兔為y只，VisualBasic程序如下：PrivateSubCommand1_Click()Con

5、sthead=30,foot=90Dimx,yAsIntegery=x=Str(x)=Str(y)EndSub9、利用文本框輸入一個(gè)正整數(shù)N,求出2+3/2+4/3+5/4+(N+1)/N程序是：PrivateSubcommand1_click()DimN,s,iAsIntegers=0N=ValFori=Tos=NextiMsgbox()EndSub10、編寫一個(gè)計(jì)算矩形面積的Sub過程，然后調(diào)用該過程計(jì)算矩形面積。PrivateSubForm_Click()DimAAsSingle,BAsSingleA=Val(InputBox("Whatisthelength")B=

6、Val(InputBox("Whatisthewidth")CallRecarea(A,B)EndSubSubRecarea(RlenAsSingle,RwidAsSingle)DimAreaAsSingleArea=MsgBox"TotalAreais"&'輸出矩形面積EndSub11、用物理天平測(cè)量物體的質(zhì)量時(shí)，測(cè)得物體的質(zhì)量為a克(a為整數(shù)，并小于1千克)，問：這時(shí)在天平的祛碼盤中應(yīng)有哪幾個(gè)祛碼請(qǐng)選用最少數(shù)量的祛碼(稱質(zhì)量為1千克的物體，天平的祛碼由下列質(zhì)量的祛碼組成：500克1個(gè)，200克1個(gè)，100克2個(gè)，50克1個(gè)，20克1個(gè)

7、，10克2個(gè)，5克1個(gè)，2克2個(gè)，1克1個(gè))。為了實(shí)現(xiàn)這一目標(biāo)，請(qǐng)參照右邊的流程圖完善下面的VB程序，在劃線處填入合適的語句或表達(dá)式，完成程序設(shè)計(jì)。Dima(1To12)AsIntegerDimiAsInteger,xAsIntegerPrivateSubCommand1_Click()a(1)=500:a(2)=200:a(3)=100:a(4)=100a(5)=50:a(6)=20:a(7)=10:a(8)=10a(9)=5:a(10)=2:a(11)=2:a(12)=1x=Vali=1DoWhileIfx>=a(i)ThenStr(a(i)EndIfi=i+1LoopEndSub1

8、2、有一個(gè)單擊按紐過程，其作用是產(chǎn)生50個(gè)60100的隨機(jī)數(shù)，統(tǒng)計(jì)其中被6整除余2的個(gè)數(shù),并將這些數(shù)輸出。請(qǐng)補(bǔ)充下面的程序：PrivateSubcommand1_click()DimX,NAsIntegerDimcounterAsInteger'counter用來保存能被6整除余2的數(shù)據(jù)的個(gè)數(shù)RandomizeTimer'隨機(jī)數(shù)初始化，以時(shí)鐘為隨機(jī)數(shù)種子ForN=1To50X=+int(Rnd*40)'隨機(jī)產(chǎn)生50個(gè)60100的隨機(jī)數(shù)IfXMod6=2ThenStr(X)EndIfNextNPrintcounterEndSub13、下面是一個(gè)檢測(cè)密碼的程序(界面如圖74

9、,其功能是：當(dāng)用戶輸入的密碼正確時(shí)，在窗體上顯示“歡迎您使用本系統(tǒng)”；否則顯示“密碼錯(cuò)誤！請(qǐng)重新輸入密碼：”。正確的密碼是09。仔細(xì)閱讀程序，請(qǐng)問程序中劃線處的語句應(yīng)為OPrivateSubForm_Load()="":=10="*"'表示密碼用*顯示="":=2EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)=""IfKeyAscii=13Then'KeyAscii=13表示是回車鍵IfThen="歡迎您使用本系統(tǒng)！"Else以

10、下兩語句的作用是使程序能自動(dòng)選中錯(cuò)誤的密碼，使用戶可直接重新輸入=0=LenEndIfEndIfEndSub14、猴子吃桃問題。猴子第一天摘下若干個(gè)桃子，當(dāng)即吃了一半，還不過癮，又多吃了一個(gè)。第二天早晨又將剩下的桃子吃了一半，又多吃了一個(gè)。以后每天早上都吃了前一天剩下的一半零一個(gè)。到第十天早上再想吃時(shí)，見只剩一個(gè)桃子了。問：第一天猴子共摘了多少個(gè)桃子。為了實(shí)現(xiàn)這一目標(biāo)，完善下面的VB程序，在劃線處填入合適的語句或表達(dá)式，完成程序設(shè)計(jì)。VisualBasic程序如下：SubCommand1_Click()Dimi,sAsIntegerFori=1to9Nexti=Str(s)EndSub15、下

11、面程序(界面如圖7-3)的功能是：將0到255之間的十進(jìn)制整數(shù)轉(zhuǎn)換為二進(jìn)制整數(shù)的表示形式。在如圖中上面的文本框(Text1)中輸入一個(gè)0到255之間的十進(jìn)制整數(shù)，單擊“轉(zhuǎn)換”按鈕，該十進(jìn)制整數(shù)的二進(jìn)制形式會(huì)顯示在下面的文本框(Text2)中。為了實(shí)現(xiàn)這一目標(biāo)，程序中劃線處的語句應(yīng)為.PrivateSubCommand1_Click()DimaAsIntegerDimsAsStringDimiAsIntegerDimc(1To8)AsIntegera=val(Ifa<0Ora>255Then="輸入數(shù)據(jù)錯(cuò)誤，請(qǐng)重新輸入！”ElseFori=1To8c(i)=aMod2a=s

12、=Str(c(i)+sNexti=sEndIfEndSub16、個(gè)位數(shù)字是6,且能被3整除的3位數(shù)共有多少個(gè)下面程序用于解決這一問題，在劃線處填入合適的語句或表達(dá)式，設(shè)共有n個(gè)這樣的數(shù)，VisualBasic程序如下：SubCommand1_Click()DimiAsInteger,nAsIntegerm=106n=DoWhilem<=996IfThenn=n+1m=Loop=Str(n)EndSub17、求兩個(gè)整數(shù)的最大公約數(shù)分析：求最大公約數(shù)的算法思想：對(duì)于已知兩數(shù)mi,n,使得m>n；m除以n得余數(shù)r；(3)若r=0，則n為求得的最大公約數(shù)，算法結(jié)束；否則執(zhí)行(4)；m-n,

13、nr,再重復(fù)執(zhí)行(2)。例如：求m=14,n=6的最大公約數(shù).mnr1462620請(qǐng)根據(jù)以上思路補(bǔ)充下面的程序代碼：PrivateSubCommand1_Click()m=InputBox("m=")n=InputBox("n=")Ifm<nThent=m:m=n:n=tr=DoWhile(r<>0)m=nn=rr=mModnLoopPrint"最大公約數(shù)=",nEndSub18、以下程序的功能是：從鍵盤上輸入若干個(gè)學(xué)生的考試分?jǐn)?shù)，統(tǒng)計(jì)并輸出最高分?jǐn)?shù)和最低分?jǐn)?shù)，當(dāng)輸入負(fù)數(shù)時(shí)結(jié)束輸入，輸出結(jié)果，請(qǐng)將程序補(bǔ)充完整。Pri

14、vateSubForm_Click()Dimx,amax,aminAsSinglex=InputBox("Enterascore")amax=xamin=xDoWhileIfx>amaxThenamax=xEndIfIfThenamin=xEndIfx=InputBox("Enterascore")Loop=amaxEndSub19、從鍵盤鍵入一個(gè)整數(shù)x,將x插入到一列有序數(shù)據(jù)：5,3,4,12,20,45,70中，并使數(shù)據(jù)序列仍保持有序，試求出x應(yīng)插入的位置。為了實(shí)現(xiàn)這一目標(biāo)，請(qǐng)參照右邊的流程圖，完善下面的VB程序，在劃線處填入合適的語句或表達(dá)式

15、，完成程序設(shè)計(jì)。Dima(1To8)AsIntegerDimn,i,j,xAsIntegerPrivateSubCommand1_Click()x=ValIfx>a(n)ThenElseDoWhilex>a(i)LoopEndIf=Str(i)EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Thenn=n+1a(n)=ValStr(a(n)="":EndIfEndSub20、輸入100個(gè)數(shù)，統(tǒng)計(jì)其中負(fù)數(shù)、零及正數(shù)的個(gè)數(shù)。PrivateSubForm_Click()Dimi,fs,zs,n

16、sAsInteger'fs,ns,zs分別代表負(fù)數(shù)、零及正數(shù)的個(gè)數(shù)DimkAsDoubleFori=1To100k=Val(InputBox("輸入一個(gè)數(shù)據(jù)”)Ifk>0ThenElseIfk<0Thenfs=fs+1ElseEndIfNextiPrint"負(fù)數(shù)、零及正數(shù)的個(gè)數(shù)分別是："fs,ns,zsEndSub21、有一個(gè)數(shù)組DATA存放了N個(gè)數(shù)據(jù)，現(xiàn)從中刪除了一個(gè)元素，其余的元素依次向前遞補(bǔ)(假設(shè)刪除的是第3個(gè)元素，則要將第4個(gè)元素移到第3個(gè)元素處，第5個(gè)元素移到第4個(gè)元素處,以此類推)，然后輸出數(shù)組內(nèi)容。填寫程序中的空缺PrivateS

17、ubCommand1_Click()Dimdata(10)AsIntegerDimI,N,TAsIntegerN=10ForI=1ToNdata(I)=I*2NextIT=InputBox("刪除第幾個(gè)元素")ForI=data(I-1)=data(I)NextIForI=1ToNPrintdata(I);NextIEndSub22、尋找100以內(nèi)的勾股數(shù)?！肮慈伤南椅濉贝蠹叶贾?2+42=52,3,4,5就是勾股數(shù)，尋找100以內(nèi)的勾股數(shù)。請(qǐng)完成下面的程序填空：PrivateSubCommand1_Click()DimsumAsIntegerDimi,j,kAsInt

18、eger'假定k>j>i,可以避免重復(fù)尋找sum=0Fori=1To100Forj=1To100Fork=jTo100IfThen(Str(i)+Str(j)+Str(k)sum=sum+1'統(tǒng)計(jì)個(gè)數(shù)EndIfNextkNextjNexti="組數(shù)："+Str(sum)EndSub23、隨機(jī)產(chǎn)生10個(gè)1100之間的正整數(shù)，按從小到大的次序排序并輸出。為了實(shí)現(xiàn)這一目標(biāo),完善下面的VB程序，在劃線處填入合適的語句或表達(dá)式，完成程序設(shè)計(jì)：SubCommand1_Click()Constn=10DimiAsInteger,jAsInteger,tAsIn

19、tegerDima(1To100)AsIntegerFori=1To10a(i)=100*Rnd(1)+iNextiFori=1Ton-1Forj=i+1TonIfThenk=a(i):a(i)=a(j):a(j)=kEndIfNextjNextiFori=1To10Str(a(i)NextiEndSub24、有30個(gè)人，其中有男人、女人和小孩。他們?cè)谝患绎堭^里花去500元。已知，每個(gè)男人花30元，每個(gè)女人花20元，每個(gè)小孩花10元。問：男人、女人、小孩各為多少人。為了實(shí)現(xiàn)這一目標(biāo)，完善下面的VB程序，在劃線處填入合適的語句或表達(dá)式，完成程序設(shè)計(jì)。PrivateSubCommand1_Clic

20、k()DimmanAsInteger,womanAsInteger,childAsIntegerForman=1To15Forwoman=1To23child=s=30*man+20*woman+10*childIfThenStr(man)+""+Str(woman)+""+Str(child)EndIfNextwomanNextmanEndSub25、在我國(guó)古代孫子算經(jīng)中曾經(jīng)提出這樣一個(gè)問題。原文是這樣的：“今有物，不知其數(shù)，三三數(shù)之，剩二；五五數(shù)之，剩三；七七數(shù)之，剩二；問物幾何”試用枚舉法來解決這一問題。現(xiàn)分析如下，所尋找之?dāng)?shù)為滿足如下條件的自然數(shù)

21、：以3除余2,以5除余3,以7除余2,程序?qū)淖匀粩?shù)1開始依次尋找，逐一判斷某一自然數(shù)是否滿足全部條件，直至在指定范圍內(nèi)找到滿足條件的所有自然數(shù)。程序代碼如下，請(qǐng)補(bǔ)充完整：PrivateSubCommand1_Click()DimsumAsInteger'sum用來統(tǒng)計(jì)符合條件的自然數(shù)個(gè)數(shù)Dimn,maxAsIntegersum=0max='指定查找范圍的最大自然數(shù)，在text1框中輸入n=0DoWhilen<=maxn=n+1'從自然數(shù)1開始不斷往上尋找IfThenStr(n)'找到后在list1中顯示結(jié)果EndIfLoop("共計(jì)"+Str(sum)+"個(gè)&