VB填空題期末考試總結(jié)

1、第第 頁LoopEndFunction6、*下面程序計算l!+3!+5!+.+9!的值，請將其補充完整。*程序代碼如下：DimntAsSinglePrivateSubaa(ByValnAsSingle)DimiAsIntegernt=1Fori=1Tonnt=nt*iNextiEndSubPrivateSubForm_Click()DimsumAsSingle,nAsIntegerDimsumForn=1To9Step2aa(sum=sum+Forn=1To9Step2aa(sum=sum+NextnPrintsumEndSub7、*控件屬性改變，如圖x_3.jpg所示PrivateSubCo

2、mmandl_Click()IfCommandl.Caption=字號ThenfontsizeLabell.=30Commandl.Caption=顏色elseforecolorLabell.=vbRedCommandl.Caption=字號EndIfEndSub3、*隨機產(chǎn)生n個兩位整數(shù)，求出其中的最大值和最小值。PrivateSubCommandl_Click()IntegerDima(100)AsInteger,nAsInteger,iAsIntegerDimminAsInteger,maxAsInteger=InputBox(vbCrLf+vbCrLf+n=)Print產(chǎn)生的隨機數(shù)為R

3、andomizeFori=1Tona(i)=Int(Rnd*90)a(i)=Int(Rnd*90)+10Printa(i);Nexti:Printmin=a(1):max=minFori=2ToIfa(i)Ifa(i)maxThenmaxFori=2ToIfa(i)Ifa(i)maxThenmaxminThenmin=a(i)=a(i)NextiPrint最大值為PrintPrint最大值為Print最小值為maxminEndSub4、*使用雙循環(huán)實現(xiàn)三角形輸出*PrivateSubCommandl_Click()For=1To5PrintTab(25i);Forj=ToPrint*;Next

4、jPrintNextEndSub7、*編寫一個顯示隨機數(shù)的程序，如圖x_2.jpg所示。*運行過程：*點擊訓練開始按鈕之后，每隔一秒產(chǎn)生一個5位數(shù)的隨機整數(shù)顯示到上面的標簽中。PrivateSubCommandl_Click()Timerl.Enabled=True1000Timerl.Interval=1EndSubformPrivateSub_Load()Labell.ForeColor=vbWhiteLabell.BackColor=vbGreenEndSubItimer_()Labell=Val(Int(Rnd*90000+10000)EndSub2、*對10個100以內(nèi)的整數(shù)用冒泡法

5、按遞減順序排序PrivateSubCommand1_Click()Dima(10)AsInteger,tAsIntegerDimiAsInteger,jAsIntegerFori=1To10TOC o 1-5 h za(i)=Int(Rnd*101)Printa(i);Nexti:PrintFori=1To9Forj=1To10-irtIfa(j)a(j+1)ThenI=a(j):a(j)=a(j+1):a(j+1)=tNextjNextiFori=1To10n-Printa();Nexti:PrintEndSub4、*楊輝三角形如圖所示x_5.jpg：*完成下面程序。PrivateSubForm_Click()Dima(1To10,1To10)AsInteger,i%,j%Fori=1To10a(i,1)=1na(i,I)=1NextiFori=3To10Forj=2Toi-1a(i,j)=a(i-1,j-1)+a(