VB程序設(shè)計編程考試題及答案

VB程序設(shè)計編程考試題及答案輸入3個數(shù)，輸出最大的數(shù)PrivateSubcommand1_click()DimmaxFori=1To3n=Val(InputBox("輸入第"&i&"個數(shù)"))Ifn>maxThenmax=nEndIfNextPrint"三個數(shù)中最大的數(shù)是";maxEndSub有一元二次方程：aX2+bX+c=0，依次輸入a，b，c，判斷此方程是否有實(shí)根PrivateSubCommand1_Click()Dima,b,c,na=Text1b=Text2c=Text3n=b*b-4*a*cIfn>=0ThenLabel4="方程有根"ElseLabel4="方程無根"EndIfEndSub輸入一個百分制的成績，若大于等于60，則用消息框彈出，顯示“恭喜！成績通過！”，若小于60，則彈出消息框，顯示“抱歉！成績沒有通過！PrivateSubForm_Load()Text1=""EndSubPrivateSubCommand1_Click()Dimnn=Text1Ifn>=60ThenVal(MsgBox("恭喜！成績通過！"))ElseVal(MsgBox("抱歉！成績沒有通過！"))EndIfEndSub輸入一年份，判斷它是否為閏年，并顯示有關(guān)信息。（判斷閏年的條件是：年份能被4整除但不能被100整除，或者能被400整除）PrivateSubCommand1_Click()Dimy%y=InputBox("請輸入年份")IfyMod4=0AndyMod100<>0OryMod400=0ThenVal(MsgBox("閏年！"))ElseVal(MsgBox("平年！"))EndIfEndSub輸入學(xué)生的百分制成績，轉(zhuǎn)換輸出為五級制成績，90～100分轉(zhuǎn)換為優(yōu)秀，80～89轉(zhuǎn)換為良好，70～79轉(zhuǎn)換為中等，60～69轉(zhuǎn)換為及格，0～60轉(zhuǎn)換為不及格。PrivateSubCommand1_Click()a=Val(InputBox("請輸入成績"))Ifa>100ThenPrint"超出范圍"Ifa>=90Anda<=100ThenPrint"優(yōu)秀"Ifa>=80Anda<90ThenPrint"良好"Ifa>=70Anda<80ThenPrint"中等"Ifa>=60Anda<70ThenPrint"及格"Ifa<60ThenPrint"不及格"EndSub隨機(jī)產(chǎn)生一個三位正整數(shù)，然后逆序輸出，產(chǎn)生的數(shù)與逆序數(shù)同時顯示。例如，產(chǎn)生246，輸出是642。PrivateSubCommand1_Click()Dimx%,x1%,x2%,x3%x=Text1x1=xMod10x2=(xMod100)\10x3=x\100Label1=x1*100+x2*10+x3EndSub輸入兩個整數(shù)，求它們的最大公約數(shù)。privateSubCommand1_Click()n1=InputBox("輸入n")m1=InputBox("輸入m")Ifm1>n1Thenm=m1:n=n1Elsem=n1:n=m1我國目前有13億人口，按人口年增長率0.8%計算，多少年后我國人口將超過26億。PrivateSubCommand1_Click()Dima,ia=13i=0DoWhilea<26a=a*(1.008)i=i+1LoopPrintiEndSub小猴有桃若干，第一天吃掉一半多一個；第二天吃剩下桃子的一半多一個；以后每天都吃尚存桃子的一半多一個，到第7天只剩一個，問小猴原有桃多少？PrivateSubCommand1_Click()Dima,ia=1Fori=1To6a=2*(a+1)NextiPrint"小猴原有桃";a;”只”EndSub求100以內(nèi)的素數(shù)PrivateSubCommand1_Click()Dimi,jFori=2To100Forj=2Toi-1IfiModj=0ThenExitForNextjIfj=iThenPrintiNextiEndSub百元買百雞問題。假定小雞每只5角，公雞每只2元，母雞每只3元，編程求解購雞方案。PrivateSubCommand1_Click()Print"小雞";"";"母雞";"";"公雞"Print""Forx=1To100Fory=1To100Forz=1To100If0.5*x+2*y+3*z=100ThenPrint"";x;"";y;"";zEndIfNextzNextyNextxEndSub編程求斐波那契數(shù)列前11項。（斐波那契數(shù)列：F(0)=f(1)=1,F(n)=F(n-1)+F(n-2)n>=2）PrivateSubCommand1_Click()DimF(11),iAsLongF(0)=1F(1)=1Fori=2To10F(i)=F(i-1)+F(i-2)NextiFori=0To11PrintF(i);NextiEndSub將輸入的字符串以反序顯示。例如：輸入“ASDFGT”，顯示“TGFDSA”PrivateSubCommand1_Click()Dima,b,c,d,na=InputBox("輸入字符串")n=Len(a)Forb=1ToInt(n\2)c=Mid(a,b,1)Mid(a,b,1)=Mid(a,n-b+1,1)Mid(a,n-b+1,1)=cNextbPrintaEndSub隨機(jī)產(chǎn)生10個[30,100]內(nèi)的整數(shù)，求最大值及所對應(yīng)的下標(biāo)PrivateSubCommand1_Click()Dima(1To10),mRandomizeForI=1To10a(I)=Int(Rnd*71)+30Printa(I)NextIMax=a(1)ForI=2To10Ifa(I)>MaxThenMax=a(I):m=INextIPrint"max=";MaxPrint"max的下標(biāo)為";mEndSub隨機(jī)產(chǎn)生10個[30,100]內(nèi)的整數(shù)，求最大值、最小值和平均值。PrivateSubCommand1_Click()Dima(1To10)Fori=1To10a(i)=Int(Rnd*71)+30Printa(i)NextiMax=a(1)Min=a(1)Avg=a(1)Fori=2To10Ifa(i)>MaxThenMax=a(i)Ifa(i)<MinThenMin=a(i)Avg=Avg+a(i)NextiAvg=Avg/10Print"max=";MaxPrint"min=";MinPrint"avg=";AvgEndSub隨機(jī)產(chǎn)生10個[30,100]內(nèi)的整數(shù)，求最小值及所對應(yīng)的下標(biāo)。PrivateSubCommand1_Click()Dima(1To10),mRandomizeForI=1To10a(I)=Int(Rnd*71)+30Printa(I)NextIMin=a(1)ForI=2To10Ifa(I)<MinThenMin=a(I):m=INextIPrint"min=";MinPrint"min的下標(biāo)為";mEndSub隨機(jī)生成一個整型的二維數(shù)組，范圍在[10,20]之間，以下三角形式輸出該數(shù)組。PrivateSubCommand1_Click()Dima(1To10,1To10),i,jAsIntegerFori=1To10Forj=1To10a(i,j)=Int(Rnd*11+10)NextNextFori=1To10Forj=1ToiPrintSpc(3);a(i,j);NextPrintNextEndSub隨機(jī)產(chǎn)生10個1~100的正整數(shù)放入數(shù)組，顯示產(chǎn)生的數(shù)，求最大值、最小值、平均值。PrivateSubCommand1_Click()Dima(1To10)Fori=1To10a(i)=Int(Rnd*101)+1Printa(i)NextiMax=a(1)Min=a(1)Avg=a(1)Fori=2To10Ifa(i)>MaxThenMax=a(i)Ifa(i)<MinThenMin=a(i)Avg=Avg+a(i)NextiAvg=Avg/10Print"max=";MaxPrint"min=";MinPrint"avg=";AvgEndSub利用隨機(jī)函數(shù)生成一個4×4的矩陣(即二維矩陣),范圍是[20,50]內(nèi)的整數(shù),輸出該矩陣所有數(shù)據(jù)之和PrivateSubCommand1_Click()Dima%(4,5),sumFori=1To4Forj=1To4a(i,j)=Int(Rnd*31)+20Printa(i,j);sum=sum+a(i,j)NextjPrint'換行NextiPrint"sum=";sumEndSub已知有序數(shù)組a()，編程插入x（x的值為14）。數(shù)組a中的元素分別為{12，6，4，89，75，63，100，20，31}。PrivateSubCommand1_Click()Dima(),i%,k%,x%,n%a=Array(4,6,12,20,31,63,75,89,100)n=UBound(a)x=Val(InputBox("請輸入所要插入數(shù)"))Fork=0TonIfx<a(k)ThenExitForNextkReDimPreservea(n+1)Fori=nTokStep-1a(i+1)=a(i)Nextia(k)=xFori=0Ton+1Printa(i);NextiEndSub編寫一函數(shù)，計算Double類型一維數(shù)組所有元素的平均值。編一子過程ProcMin,求一維數(shù)組a中的最小值，子過程的形參自己確定PrivateSubcommand1_Click()Dima(1To10),min,i%Fori=1To10a(i)=Int(Rnd*101)Printa(i);NextiCallProcMin(a(),min)PrintPrint"min=";minEndSubSubProcMin(b(),min)Dimi%min=b(LBound(b))Fori=LBound(b)+1ToUBound(b)Ifb(i)<minThenmin=b(i)NextiEndSub編一子過程ProcMin,求一維數(shù)組a中的最小值，子過程的形參自己確定。PrivateSubForm_Click()Dima(1To10),amin,i%Fori=1To10a(i)=Int(Rnd*101)Printa(i);NextiCallProcMin(a(),amin)PrintPrint"amin=";aminEndSubSubProcMin(b(),min)Dimi%min=b(LBound(b))Fori=LBound(b)+1ToUBound(b)Ifb(i)<minThenmin=b(i)NextiEndSub編一個函數(shù)，求一維數(shù)組a中的最大值，函數(shù)的形參自己確定。PrivateSubForm_Click()Dima(1To10),amax,i%Fori=1To10a(i)=