1、1 利用随机函数产生 25 个 100 到 999 之间的整数，构成 55 的矩阵，输出该矩阵。Private Sub Form_Click()Dim m%, n%For i = 1 To 25m = Int(Rnd * 900 + 100)Print m;If i Mod 5 = 0 Then PrintNext iEnd Sub2 利用随机函数产生 25 个 10 到 99 之间的整数，求其平均值 (要求保留 3 位小数，第 4 位四舍五入)。Private Sub Form_Click()Dim k#, n%n = 0For i = 1 To 25m = Int(Rnd * 90 + 1
2、0)Print m;n = n + mNext iPrintPrint “25 个数的和为：“, nk = n / 25Print “25 个数的平均值为：“, Format(k, “#.000“)End Sub3 利用随机函数产生 25 个 10 到 99 之间的整数，按从小到大的顺序显示。Private Sub Form_Click()Dim a%(1 To 25)For i = 1 To 25a(i) = Int(Rnd * 90 + 10)Print a(i);Next iPrintFor i = 1 To 24p = iFor j = i + 1 To 25If a(p) a(j)
3、Then p = jNext jt = a(i): a(i) = a(p): a(p) = tNext iPrint “从小到大排序为：“;For i = 1 To 25Print a(i);Next iEnd Sub4 利用随机函数产生 50 个 1,6 之间的整数, 分别统计出 1 的个数，2 的个数，3 的个数，4 的个数，5 的个数和 6 的个数。Private Sub Form_Click()a1 = 0a2 = 0a3 = 0a4 = 0 a5=0 a6=0For i = 1 To 50m = Int(Rnd * 6 + 1)Print m;If m = 1 Then a1 = a
4、1 + 1If m = 2 Then a2 = a2 + 1If m = 3 Then a3 = a3 + 1 If m = 4 Then a4 = a4 + 1If m = 5 Then a5 = a5 + 1If m = 6 Then a6= a6 + 1Next iPrintPrint “1 的个数为：“, a1Print “2 的个数为：“, a2Print “3 的个数为：“, a3 Print “4 的个数为：“, a4Print “5 的个数为：“, a5 Print “6 的个数为：“, a6End Sub5 利用随机函数产生并显示 10 个 3 位数的正整数，找出其中的最大数
5、。Private Sub Form_Click()Dim a%(1 To 10)Dim max%For i = 1 To 10a(i) = Int(Rnd * 900 + 100)Print a(i);If a(i) max Then max = a(i)PrintNext iPrint “最大数为：“; maxEnd Sub6 利用随机函数产生并显示 10 个 4 位数的正整数，找出其中的最小数。Dim a(1 To 10) As IntegerDim min As IntegerPrivate Sub Form_Click()Dim i As IntegerClsFor i = 1 To
6、10a(i) = Int(Rnd * 900 + 1000)Print a(i);Next imin = a(1)For i = 2 To 10If a(i) 0 ThenIf m Mod 2 = 0 ThenPrint MsgBox(m & “是正整数 “ & “并且“ & m & “是偶数“)ElsePrint MsgBox(m & “是正整数 “ & “但是“ & m & “是奇数“)End If End IfIf m “Z“) And (Strnew = “A“ And Strnew 0 ThenCurrentX = 0.7: CurrentY = i + 0.1: Print iLine (0.5, i)-(0, i)End IfNext iCurrentX = 6.283: CurrentY = 0For x = -6.283 To 6.283 Step 0.01y = Sin(x)Line -(x, y)Next xEnd Sub25 .画出如图所示的图形Private Sub Form_Click()Dim i%For i = 0 To 7Me.FillStyle = iMe.Circle (500 + 800 * i, 800), 400Next iEnd Sub
