VB填空题期末考试总结.doc

VB期末考试填空题总结1、*产生50个60100的随机数，统计其中被6整除余2的个数，并将这些数输出。PrivateSubcommand1_click()Dimx,nAsIntegerDimcounterAsIntegerFor=1To50x=Int(Rnd*41+60)IfMod6=2Thencounter=counter+1EndIfNextnPrintcounterEndSub2、*对10个100以内的整数用选择法按递增顺序排序。PrivateSubCommand1_Click()Dima(10)AsInteger,tAsIntegerDimiAsInteger,jAsIntegerFori=1To10a(i)=Int(*101)Printa(i);Nexti:PrintFori=1To9Forj=i+1ToIfa(i)a(j)Thent=a(i):a(i)=a(j):a(j)=tNextjNextiFori=1To10Printa(i);Nexti:PrintEndSub3、*删除已知数组a中的某个元素。PrivateSubCommand1_Click()Dima()AsVariant,nAsInteger,KeyAsIntegera=Array(1,6,8,3,5,9,10,2,7,4)n=UBound(a)Key=InputBox(请输入要删除的数)Fori=0TonIfKey=a(i)ThenExitForNextiIfi=n+1ThenMsgBox(找不到此数)ExitSubForj=i+1Tona(j-1)=a(j)Nextjn=-1ReDimPreservea(n)Fori=0TonPrinta(i);Nexti:PrintEndSub4、*统计二维数组a(55)的左下三角中奇数元素的个数。PrivateSubCommand1_Click()Dima(5,5)AsIntegerFori=1To5Forj=1To5(i,j)=Int(Rnd*100):Printa(i,j);NextjPrintNextin=0Fori=1To5Forj=1ToiIfa(i,j)Mod2=Thenn=n+1NextjNextiPrint左下三角中奇数元素的个数为：;nEndSub5、*设计一个求两个数的最大公约数的函数过程。*程序代码如下：OptionBase1PrivateFunction(ByValm%,ByValn%)AsIntegerIfmnThent=m:m=n:n=tDor=mModnIfr=0ThenExitDom=nn=rLoopgcd=EndFunction6、*下面程序计算1!+3!+5!+.+9!的值，请将其补充完整。*程序代码如下：DimntAsSinglePrivateSubaa(ByValnAsSingle)DimiAsIntegernt=1Fori=1Tonnt=nt*iNextiEndSubPrivateSubForm_Click()DimsumAsSingle,nAsIntegersum=0Forn=1To9Step2aa()sum=sum+NextnPrintsumEndSub7、*控件属性改变，如图所示PrivateSubCommand1_Click()IfCommand1.Caption=字号ThenLabel1.=30Command1.Caption=颜色Label1.=vbRedCommand1.Caption=字号EndIfEndSub3、*随机产生n个两位整数，求出其中的最大值和最小值。PrivateSubCommand1_Click()Dima(100)AsInteger,nAsInteger,iAsIntegerDimminAsInteger,maxAsInteger=InputBox(vbCrLf+vbCrLf+n=)Print产生的随机数为RandomizeFori=1Tona(i)=Int(Rnd*90)+10Printa(i);Nexti:Printmin=a(1):max=min Fori=2To Ifa(i)maxThenmax=a(i)Ifa(i)minThenmin=a(i)NextiPrint最大值为;maxPrint最小值为;minEndSub4、*使用双循环实现三角形输出*PrivateSubCommand1_Click()For=1To5PrintTab(25-i);Forj=ToiPrint*;NextjPrintNextiEndSub7、*编写一个显示随机数的程序，如图所示。*运行过程：*点击训练开始按钮之后，每隔一秒产生一个5位数的随机整数显示到上面的标签中。PrivateSubCommand1_Click()Timer1.Enabled=TrueTimer1.Interval=EndSubPrivateSub_Load()Label1.ForeColor=vbWhiteLabel1.BackColor=vbGreenEndSubPrivateSubTimer1_()Label1=Val(Int(Rnd*90000+10000)EndSub2、*对10个100以内的整数用冒泡法按递减顺序排序。PrivateSubCommand1_Click()Dima(10)AsInteger,tAsIntegerDimiAsInteger,jAsIntegerFori=1To10a(i)=Int(Rnd*101)Printa(i);Nexti:PrintFori=1To9Forj=1To10-iIfa(j)a(j+1)Then=a(j):a(j)=a(j+1):a(j+1)=tNextjNextiFori=1To10Printa();Nexti:PrintEndSub4、*杨辉三角形如图所示：*完成下面程序。PrivateSubForm_Click()Dima(1To10,1To10)AsInteger,i%,j%Fori=1To10a(i,1)=1a(i,)=1N