1利用随机函数产生25个100到999之间的整数，构成5?5的矩阵，输出该矩阵。
Private Sub Form_Click() Dim m%, n% For i = 1 To 25
m = Int(Rnd * 900 + 100) Print m;
If i Mod 5 = 0 Then Print Next i End Sub
2 利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4位四舍五入)。
Private Sub Form_Click() Dim k#, n% n = 0
For i = 1 To 25 m = Int(Rnd * 90 + 10) Print m; n = n + m Next i
Print \个数的和为：\
k = n / 25
Print \个数的平均值为：\End Sub
3 利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。
Private Sub Form_Click() Dim a%(1 To 25) For i = 1 To 25
a(i) = Int(Rnd * 90 + 10) Print a(i); Next i Print
For i = 1 To 24 p = i
For j = i + 1 To 25 If a(p) > a(j) Then p = j Next j
t = a(i): a(i) = a(p): a(p) = t Next i
Print \从小到大排序为：\For i = 1 To 25 Print a(i); Next i
End Sub
4 利用随机函数产生50个 [1,6] 之间的整数, 分别统计出1的个数，2的个数，3的个数，4的个数，5的个数和6的个数。
Private Sub Form_Click() a1 = 0 a2 = 0 a3 = 0 a4 = 0 a5=0 a6=0
For i = 1 To 50
m = Int(Rnd * 6 + 1) Print m;
If m = 1 Then a1 = a1 + 1 If m = 2 Then a2 = a2 + 1 If m = 3 Then a3 = a3 + 1 If m = 4 Then a4 = a4 + 1 If m = 5 Then a5 = a5 + 1 If m = 6 Then a6= a6 + 1 Next i
Print \的个数为：\Print \的个数为：\Print \的个数为：\ Print \的个数为：\Print \的个数为：\ Print \的个数为：\End Sub
5 利用随机函数产生并显示10个3位数的正整数，找出其中的最大数。
Private Sub Form_Click() Dim a%(1 To 10) Dim max%
For i = 1 To 10
a(i) = Int(Rnd * 900 + 100) Print a(i);
If a(i) > max Then max = a(i) Print
Next i
Print \最大数为：\End Sub
6 利用随机函数产生并显示10个4位数的正整数，找出其中的最小数。
Dim a(1 To 10) As Integer Dim min As Integer
Private Sub Form_Click() Dim i As Integer Cls
For i = 1 To 10
a(i) = Int(Rnd * 900 + 1000) Print a(i); Next i min = a(1) For i = 2 To 10
If a(i) < min Then min = a(i) Next i
Print \最小数为：\End Sub
7 从键盘输入10个数，按输入的顺序和按输入顺序相反的顺序输出。
Private Sub Form_Click() Dim a%(1 To 10) Print \顺序显示\
For i = 1 To 10
a(i) = InputBox(\请输入第\个数\Print a(i); Next i Print
Print \反序输入\For i = 10 To 1 Step -1 Print a(i); Next i End Sub
8 运行时单击窗口，调用Inputbox函数输入一个数，判断其是否为正整数，如果为正整数判断其奇偶性，把结果信息显示在MsgBox对话框上 Private Sub Form_Click()
Dim m% m = Val(InputBox(\请输入一个数\ If m > 0 Then
If m Mod 2 = 0 Then
Print MsgBox(m & \是正整数\并且\是偶数\ Else
Print MsgBox(m & \是正整数\但是\是奇数\ End If
End If
If m < 0 Then
MsgBox (m & \不是正整数，因此不判断奇偶性\ End If End Sub
9 输入一个整数，编写一函数判断该数是否是偶数
Private Sub Form_Click() Dim m% m = Val(InputBox(\请输入一个整数\If m Mod 2 = 0 Then Print m; \是偶数\Else
Print m; \不是偶数\End If End Sub
10 从文本框输入一个正整数，判断该数是否为素数。
建立一个Text和CommandButton Private Sub Command1_Click() Dim N As Long, Flags As Boolean N = Val(Text1.Text) Flags = True
For i = 2 To Sqr(N) If N Mod i = 0 Then Flags = False Exit For
End If Next
MsgBox N & IIf(Flags, \不\是一个素数\
End Sub
另外一个方法 建立一个命令 1个Text，1个Label 1个CommandButton Private Sub Command1_Click() Dim x%, i%
x = Val(Text1.Text) Tag = True
For i = 2 To x - 1 If x Mod i = 0 Then Tag = False Exit For End If
Next i
If Tag = True Then
Label1.Caption = Text1.Text & \是素数\
