急用一道VB题

来源：百度知道 编辑：UC知道 时间：2024/06/01 07:50:34
有一个5*6的二维数组，随机取得元素的值，求全部元素的平均值，并把高于平均值的元素的值与它们的位置显示出来。
谢谢谁帮忙写下代码。

Private Sub Form_Click()
Dim A(1 To 5, 1 To 6) As Integer, S As Single
Randomize
Cls
S = 0
For i = 1 To 5
For j = 1 To 6
A(i, j) = Int(Rnd * 90) + 10
S = S + A(i, j)
Next
Next
For i = 1 To 5
For j = 1 To 6
If A(i, j) < S / 30 Then
Form1.ForeColor = vbRed
ElseIf A(i, j) = S / 30 Then
Form1.ForeColor = vbBlack
Else
Form1.ForeColor = vbBlue
End If
Print Tab(j * 4 - 3); A(i, j);
Next
Next
Form1.ForeColor = vbBlack
Print Tab(1); "平均值为:" & S / 30
Print "上面的输出中,红色<平均值,绿色>平均值,黑色=平均值"
End Sub