VB上机考试1、利用随机函数产生25个100到999之间的整数，构成5 5的矩阵，输出该矩阵。

Dim a(1 To 5, 1 To 5)Private Sub Form_Click()RandomizeFor i = 1 To 5For j = 1 To 5a(i, j) = Int(Rnd * (999 - 100 + 1) + 100)Print a(i, j);Next jPrintNext iEnd Sub2、利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4位四舍五入)。

Private Sub Form_Click()For i = 1 To 25a = Int(Rnd * (99 - 10 + 1) + 10)Print a;s = s + aNext iPrintAvg = s / 25Print AvgEnd Sub3、在窗体上按下鼠标的右键，记录其坐标。

Private Sub Form_Load() Label1.BorderStyle = 1Label1.Alignment = 2End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenLabel1.Caption = X & "," & YEnd IfEnd Sub4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。

Dim a(1 To 25)Private Sub Form_Click()ClsFor i = 1 To 25a(i) = Int(Rnd * (99 - 10 + 1) + 10)Print a(i);Next iPrintFor i = 1 To 25 - 1For j = 1 To 25 - iIf a(j) > a(j + 1) Then tmp = a(j): a(j) = a(j + 1): a(j + 1) = tmp Next jNext iFor i = 1 To 25Print a(i);Next iEnd Sub5、利用随机函数产生50个 [1,6] 之间的整数, 分别统计出1的个数，2的个数，3的个数，4的个数，5的个数和6的个数。

Dim a(1 To 6)Private Sub Form_Click()For i = 1 To 6a(i) = 0Next iFor j = 1 To 50x = Int(Rnd * (6 - 1 + 1) + 1)a(x) = a(x) + 1Next jFor i = 1 To 6Print i & "出现了" & a(i); "次"Next iEnd Sub6、在文本框中输入一些英语单词，统计空格的个数。

Dim n%, x As String, s% Private Sub Form_Click()n = Len(Text1.Text)x = Text1.TextFor i = 1 To nIf Mid(x, i, 1) = " " Then s = s + 1Next iPrint "共出现了" & s & "个空格"End Sub7、编程计算下列公式的值，其中n (<10)为从键盘输入的正整数。

S=1!+3!+5!+……+(2*n-1)!Private Sub Form_Click()n = Val(InputBox("请输入一个不大于10的整数"))s = 0For i = 1 To 2 * n - 1 Step 2p = 1For j = 1 To ip = p * jNext js = s + pNext iPrint sEnd Sub8、编程计算下列公式的值，其中n (<10)为从键盘输入的正整数。

S=2!+4!+6!+……+(2*n)!Private Sub Form_Click()n = Val(InputBox("请输入一个不大于10的整数"))s = 0For i = 2 To 2 * n Step 2p = 1For j = 1 To ip = p * jNext js = s + pNext iPrint sEnd Sub9、用For …Next语句编程，双击窗体后，在屏幕上显示如图：Private Sub Form_Click()a = 0For i = 1 To 3Print Tab(8 - 2 * i - 1);For j = 1 To 2 * i - 1a = a + 1Print Str(a);Next jPrintNext iEnd Sub10、用For …Next语句编程，双击窗体后，在屏幕上显示如图：Private Sub Form_DblClick()For i = 1 To 3Print Tab(11 - 3 * i);For j = 2 To 10 Step 2Print j;Next jPrintNext iEnd Sub11、用For …Next语句编程，双击窗体后，在屏幕上显示如图：Private Sub Form_Click()For i = 1 To 3x = 2 * i + 1Print Tab(10 - 3 * i);For j = 1 To 5Print x;Next jPrintNext i12、从文本框输入一个正整数，判断该数是否为素数。

Dim a As LongPrivate Sub Form_Click()a = Val(Text1.Text)If a = 2 ThenTag = TrueElseIf a Mod 2 = 0 ThenTag = FalseElseTag = TrueFor i = 3 To Sqr(a) Step 2If a Mod i = 0 Then Tag = False: Exit ForNext iEnd IfIf Tag = True ThenPrint a; "是素数"ElsePrint a; "不是素数"End IfEnd Sub13、利用随机函数产生并显示10个3位数的正整数，找出其中的最大数。

Option ExplicitDim i%, max%, loc%Dim a(1 To 10) As IntegerPrivate Sub Form_Click()RandomizeForm1.ClsFor i = 1 To 10a(i) = Int(Rnd * (999 - 100 + 1) + 100)Print a(i)Next imax = a(1): loc = 1 '变量赋值，假设a(1)为最大数For i = 2 To 10If a(i) > max Then max = a(i): loc = iNext iPrint "最大的数是"; maxPrint "在数组中是第"; loc; "个数"End Sub14、利用随机函数产生并显示10个4位数的正整数，找出其中的最小数。

Option ExplicitDim i%, min%, loc%Dim a(1 To 10) As IntegerPrivate Sub Form_Click()Form1.ClsFor i = 1 To 10a(i) = Int(Rnd * (9999 - 1000 + 1) + 1000)Print a(i)Next imin = 9999For i = 1 To 10If a(i) < min Then min = a(i): loc = iNext iPrint "最小的数是"; minPrint "在数组中是第"; loc; "个数"End Sub15、当按下鼠标左键时，窗体的背景色变为红色；松开鼠标左键时，窗体的背景色变为绿色。

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then Form1.BackColor = vbRedEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then Form1.BackColor = vbGreenEnd Sub16、编制一个时钟程序，如下图：Option ExplicitPrivate Sub Form_Load()Label1.BackColor = vbWhiteLabel1.BorderStyle = 1Label1.Alignment = 2Timer1.Enabled = TrueTimer1.Interval = 1000End SubPrivate Sub Timer1_Timer()Label1.Caption = TimeEnd Sub17、从键盘输入10个数，按输入的顺序和按输入顺序相反的顺序输出。

OptionExplicitDim i%Dim a(1 To 10) As SinglePrivate Sub Form_Click()For i = 1 To 10a(i) = Val(InputBox("请输入第" & i & "个数"))Print a(i);Next iPrintFor i = 10 To 1 Step -1Print a(i);Next iEnd Sub18、计算圆面积的程序。

程序运行时，单击窗体，然后在下图所示的输入框中输入圆的半径，即可在窗体上显示计算出的圆面积。

Option ExplicitDim r%, a As SingleConst pi As Single = 3.14159Private Sub Form_Click()r = Val(InputBox("请输入圆半径" & vbCrLf & "（1-9）：", "输入", 5))a = pi * r ^ 2Print "半径为"; r; "的圆面积为"; aEnd Sub19、编写一个时钟程序，当选择“24小时”时，以24小时的方式显示如A，当选择“12小时”时，以12小时的方式显示如B。