VB上機(jī)考試習(xí)題及VB上機(jī)考試習(xí)題及10/10VB上機(jī)考試習(xí)題及VB上機(jī)考試1、利用隨機(jī)函數(shù)產(chǎn)生25個100到999之間的整數(shù)，構(gòu)成55的矩陣，輸出該矩陣。Dima(1To5,1To5)PrivateSubForm_Click()RandomizeFori=1To5Forj=1To5a(i,j)=Int(Rnd*(999-100+1)+100)Printa(i,j);NextjPrintNextiEndSub2、利用隨機(jī)函數(shù)產(chǎn)生25個10到99之間的整數(shù)，求其平均值(要求保留3位小數(shù)，第4位四舍五入)。PrivateSubForm_Click()Fori=1To25a=Int(Rnd*(99-10+1)+10)Printa;s=s+aNextiPrintAvg=s/25PrintAvgEndSub3、在窗體上按下鼠標(biāo)的右鍵，記錄其坐標(biāo)。PrivateSubForm_Load()12EndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenX&","&YEndIfEndSub4、利用隨機(jī)函數(shù)產(chǎn)生25個10到99之間的整數(shù)，按從小到大的序次顯示。Dima(1To25)PrivateSubForm_Click()ClsFori=1To25a(i)=Int(Rnd*(99-10+1)+10)Printa(i);NextiPrintFori=1To25-1Forj=1To25-iIfa(j)>a(j+1)Thentmp=a(j):a(j)=a(j+1):a(j+1)=tmpNextjNextiFori=1To25Printa(i);NextiEndSub5、利用隨機(jī)函數(shù)產(chǎn)生50個[1,6]之間的整數(shù),分別統(tǒng)計出1的個數(shù)，2的個數(shù)，3的個數(shù)，4的個數(shù)，5的個數(shù)和6的個數(shù)。Dima(1To6)PrivateSubForm_Click()Fori=1To6a(i)=0NextiForj=1To50x=Int(Rnd*(6-1+1)+1)a(x)=a(x)+1NextjFori=1To6Printi&"出現(xiàn)了"&a(i);"次"NextiEndSub6、在文本框中輸入一些英語單詞，統(tǒng)計空格的個數(shù)。Dimn%,xAsString,s%PrivateSubForm_Click()n=Lenx=Fori=1TonIfMid(x,i,1)=""Thens=s+1NextiPrint"共出了"&s&"個空格"EndSub7、程算以下公式的，其中n(<10)從入的正整數(shù)。S=1!+3!+5!+??+(2*n-1)!PrivateSubForm_Click()n=Val(InputBox("入一個不大于10的整數(shù)"))s=0Fori=1To2*n-1Step2p=1Forj=1Toip=p*jNextjs=s+pNextiPrintsEndSub8、程算以下公式的，其中n(<10)從入的正整數(shù)。S=2!+4!+6!+??+(2*n)!PrivateSubForm_Click()n=Val(InputBox("入一個不大于10的整數(shù)"))s=0Fori=2To2*nStep2p=1Forj=1Toip=p*jNextjs=s+pNextiPrintsEndSub9、用For?Next句程，雙窗體后，在屏幕上示如：PrivateSubForm_Click()a=0Fori=1To3PrintTab(8-2*i-1);Forj=1To2*i-1a=a+1PrintStr(a);NextjPrintNextiEndSub10、用For?Next句程，雙窗體后，在屏幕上示如：PrivateSubForm_DblClick()Fori=1To3PrintTab(11-3*i);Forj=2To10Step2Printj;NextjPrintNextiEndSub11、用For?Next句程，雙窗體后，在屏幕上示如：PrivateSubForm_Click()Fori=1To3x=2*i+1PrintTab(10-3*i);Forj=1To5Printx;NextjPrintNextiEndSub12、從文本框輸入一個正整數(shù)，判斷該數(shù)可否為素數(shù)。DimaAsLongPrivateSubForm_Click()a=ValIfa=2ThenTag=TrueElseIfaMod2=0ThenTag=FalseElseTag=TrueFori=3ToSqr(a)Step2IfaModi=0ThenTag=False:ExitForNextiEndIfIfTag=TrueThenPrinta;"是素數(shù)"ElsePrinta;"不是素數(shù)"EndIfEndSub13、利用隨機(jī)函數(shù)產(chǎn)生并顯示10個3位數(shù)的正整數(shù)，找出其中的最大數(shù)。OptionExplicitDimi%,max%,loc%Dima(1To10)AsIntegerPrivateSubForm_Click()RandomizeFori=1To10a(i)=Int(Rnd*(999-100+1)+100)Printa(i)Nextimax=a(1):loc=1變'量賦值，假設(shè)a(1)為最大數(shù)Fori=2To10Ifa(i)>maxThenmax=a(i):loc=iNextiPrint"最大的數(shù)是";maxPrint"在數(shù)組中是第";loc;"個數(shù)"EndSub14、利用隨機(jī)函數(shù)產(chǎn)生并顯示10個4位數(shù)的正整數(shù)，找出其中的最小數(shù)。OptionExplicitDimi%,min%,loc%Dima(1To10)AsIntegerPrivateSubForm_Click()RandomizeFori=1To10a(i)=Int(Rnd*(9999-1000+1)+1000)Printa(i)Nextimin=9999Fori=1To10Ifa(i)<minThenmin=a(i):loc=iNextiPrint"最小的數(shù)是";minPrint"在數(shù)組中是第";loc;"個數(shù)"EndSub15、當(dāng)按下鼠標(biāo)左鍵時，窗體的背景色變?yōu)榧t色；松開鼠標(biāo)左鍵時，窗體的背景色變?yōu)榫G色。PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1Then=vbRedEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1Then=vbGreenEndSub16、編制一個時鐘程序，以以下列圖OptionExplicitPrivateSubForm_Load()vbWhite12True1000EndSubPrivateSubTimer1_Timer()TimeEndSub17、從鍵盤輸入10個數(shù)，按輸入的序次和按輸入序次相反的序次輸出。OptionExplicitDimi%Dima(1To10)AsSinglePrivateSubForm_Click()Fori=1To10a(i)=Val(InputBox("請輸入第"&i&"個數(shù)"))Printa(i);NextiPrintFori=10To1Step-1Printa(i);NextiEndSub18、計算圓面積的程序。程序運行時，單擊窗體，爾后在以下列圖所示的輸入框中輸入圓的半徑，即可在窗體上顯示計算出的圓面積。OptionExplicitDimr%,aAsSingleConstpiAsSingle=PrivateSubForm_Click()r=Val(InputBox("請輸入圓半徑"&vbCrLf&"（1-9）：","輸入",5))a=pi*r^2Print"半徑為";r;"的圓面積為";aEndSub19、編寫一個時鐘程序，當(dāng)選擇“24小時”時，以24小時的方式顯示如A，當(dāng)選擇“12小時”時，以12小時的方式顯示如B。PrivateSubForm_Load()=1000EndSubPrivateSubTimer1_Timer()SelectCaseTrueCaseTimeCaseFormat(Time,"HH:MM:SSAM/PM")EndSelectEndSub20、設(shè)計一個程序，用戶界面以下列圖。程序運行后，用戶在文本框中輸入一段文字，爾后按需要單擊選擇框，用以改變文本的字體、字型、顏色以及大小。OptionExplicitPrivateSubCheck1_Click()If=1Then"黑體"Else"宋體"EndIfEndSubPrivateSubCheck2_Click()If=1ThenTrueElseFalseEndIfEndSubPrivateSubCheck3_Click()If=1Then20Else9EndIfEndSubPrivateSubCheck4_Click()If=1ThenvbGreenElsevbBlackEndIfEndSubPrivateSubCommand1_Click()""EndSubPrivateSubCommand2_Click()EndEndSub20做出2個周期的正弦波形.PrivateSubForm_Click()Dimi%,x#,y#ConstpiAsString=(-2*pi,-(2*pi,(-2*pi,0)-(2*pi,0)(0,-(0,Forx=-2*piTo2*piStepy=Sin(x)(x,y)NextxEndSub21以窗體為中心,產(chǎn)生1000個半徑顏色隨機(jī)的同心圓.PrivateSubForm_Click()Fori=1To1000x=/2y=/2r=Int(Rnd*y)c=RGB(255*Rnd,255*Rnd,255*Rnd)(x,y),r,cNextEndSub22.九九乘法表PrivateSubForm_Click()Dimi%,j%"九九乘法表"PrintTab(48);CaptionPrintTab(48);""Fori=1To9Forj=1ToiPrintTab((j-1)*12+1);i;"*";