VB上机考试 习题以及答案.docx

VB上机考试习题以及答案

第一篇：VB上机考试习题以及答案VB上机考试1、利用随机函数产生25个100到999之间的整数，构成55的矩阵，输出该矩阵。Dima(1To5,1To5)PrivateSubForm_Click()RandomizeFori=1To5Forj=1To5a(i,j)=Int(Rnd*(99910+1)+10)Printa;s=s+aNextiPrintAvg=s/25PrintAvgEndSub3、在窗体上按下鼠标的右键，记录其坐标。PrivateSubForm_Load()Label1.BorderStyle=1Label1.Alignment=2EndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenLabel1.Caption=X&“,”&YEndIfEndSub4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。Dima(1To25)PrivateSubForm_Click()ClsFori=1To25a(i)=Int(Rnd*(991Forj=1To251+1)+1)a(x)=a(x)+1NextjFori=1To6Printi&“出现了”&a(i);“次”NextiEndSub6、在文本框中输入一些英语单词，统计空格的个数。Dimn%,xAsString,s%PrivateSubForm_Click()n=Len(Text1.Text)x=Text1.TextFori=1TonIfMid(x,i,1)=“”Thens=s+1NextiPrint“共出现了”&s&“个空格”EndSub7、编程计算下列公式的值，其中n(10、用For…Next语句编程，双击窗体后，在屏幕上显示如图：PrivateSubForm_DblClick()Fori=1To3PrintTab(113*i);Forj=1To5Printx;NextjPrintNextiEndSub12、从文本框输入一个正整数，判断该数是否为素数。DimaAsLongPrivateSubForm_Click()a=Val(Text1.Text)Ifa=2ThenTag=TrueElseIfaMod2=0ThenTag=FalseElseTag=TrueFori=3ToSqr(a)Step2IfaModi=0ThenTag=False:ExitForNextiEndIfIfTag=TrueThenPrinta;“是素数”ElsePrinta;“不是素数”EndIfEndSub13、利用随机函数产生并显示10个3位数的正整数，找出其中的最大数。OptionExplicitDimi%,max%,loc%Dima(1To10)AsIntegerPrivateSubForm_Click()RandomizeForm1.ClsFori=1To10a(i)=Int(Rnd*(9991000+1)+1000)Printa(i)Nextimin=9999Fori=1To10Ifa(i)15、当按下鼠标左键时，窗体的背景色变为红色；松开鼠标左键时，窗体的背景色变为绿色。PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1ThenForm1.BackColor=vbRedEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1ThenForm1.BackColor=vbGreenEndSub16、编制一个时钟程序，如下图：OptionExplicitPrivateSubForm_Load()Label1.BackColor=vbWhiteLabel1.BorderStyle=1Label1.Alignment=2Timer1.Enabled=TrueTimer1.Interval=1000EndSubPrivateSubTimer1_Timer()Label1.Caption=TimeEndSub17、从键盘输入10个数，按输入的顺序和按输入顺序相反的顺序输出。OptionExplicitDimi%Dima(1To10)AsSinglePrivateSubForm_Click()Fori=1To10a(i)=Val(InputBox(“请输入第”&i&“个数”))Printa(i);NextiPrintFori=10To1Step-1Printa(i);NextiEn