VB填空题期末考试总结

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、*随机产生n个两位整数，求出其中的最大值和最小值。PrivateSubCommandl_Click()IntegerDima(100)AsInteger,nAsInteger,iAsIntegerDimminAsInteger,maxAsInteger=InputBox(vbCrLf+vbCrLf+n=)Print产生的随机数为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、*使用双循环实现三角形输出*PrivateSubCommandl_Click()For=1To5PrintTab(25i);Forj=ToPrint*;Next

4、jPrintNextEndSub7、*编写一个显示随机数的程序，如图x_2.jpg所示。*运行过程：*点击训练开始按钮之后，每隔一秒产生一个5位数的随机整数显示到上面的标签中。PrivateSubCommandl_Click()Timerl.Enabled=True1000Timerl.Interval=1EndSubformPrivateSub_Load()Labell.ForeColor=vbWhiteLabell.BackColor=vbGreenEndSubItimer_()Labell=Val(Int(Rnd*90000+10000)EndSub2、*对10个100以内的整数用冒泡法

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(