VB上机考试 习题以及答案

《VB上机考试 习题以及答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB上机考试1、利用随机函数产生25个100到999之间的整数，构成5´5的矩阵，输出该矩阵。Dima(1To5,1To5)PrivateSubForm_Click()RandomizeFori=1To5Forj=1To5a(i,j)=Int(Rnd*(999-100+1)+100)Printa(i,j);NextjPrintNextiEndSub2、利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4位四舍五入)。PrivateSubForm_Click()Fori=1To25a=Int

2、(Rnd*(99-10+1)+10)Printa;s=s+aNextiPrintAvg=s/25PrintAvgEndSub3、在窗体上按下鼠标的右键，记录其坐标。PrivateSubForm_Load()Label1.BorderStyle=1Label1.Alignment=2EndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenLabel1.Caption=X&","&YE

3、ndIfEndSub4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。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、利用随机函数产生

4、50个[1,6]之间的整数,分别统计出1的个数，2的个数，3的个数，4的个数，5的个数和6的个数。Dima(1To6)PrivateSubForm_Click()Fori=1To6a(i)=0NextiForj=1To50x=Int(Rnd*(6-1+1)+1)a(x)=a(x)+1NextjFori=1To6Printi&"出现了"&a(i);"次"NextiEndSub6、在文本框中输入一些英语单词，统计空格的个数。Dimn%,xAsString,s%PrivateSubForm_Click()n=Len(Te

5、xt1.Text)x=Text1.TextFori=1TonIfMid(x,i,1)=""Thens=s+1NextiPrint"共出现了"&s&"个空格"EndSub7、编程计算下列公式的值，其中n(<10)为从键盘输入的正整数。S=1!+3!+5!+……+(2*n-1)!PrivateSubForm_Click()n=Val(InputBox("请输入一个不大于10的整数"))s=0Fori=1To2*n-1Step2p=1Forj=1Toip=p*jNextjs=s+pNextiPrintsEndSub8、编

6、程计算下列公式的值，其中n(<10)为从键盘输入的正整数。S=2!+4!+6!+……+(2*n)!PrivateSubForm_Click()n=Val(InputBox("请输入一个不大于10的整数"))s=0Fori=2To2*nStep2p=1Forj=1Toip=p*jNextjs=s+pNextiPrintsEndSub9、用For…Next语句编程，双击窗体后，在屏幕上显示如图：PrivateSubForm_Click()a=0Fori=1To3PrintTab(8-2*i-1);Forj=1To2*i

7、-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=1T

8、o5Printx;NextjPrintNextiEndSub12、从文本框输入一个正整数，判断该数是否为素数。DimaAsLongPrivateSubForm_Click()a=Val(Text1.Text)Ifa=2ThenTag=TrueElseIfaMod2=0ThenTag=FalseElseTag=TrueFori=3ToSqr(a)Step2If