VB设计：有个6*6的矩阵，各元素值由键盘输入，求全部元素的平均值，并输出高于平均值的元素及它们的行列号

VB设计：有个6*6的矩阵，各元素值由键盘输入，求全部元素的平均值，并输出高于平均值的元素及它们的行列号

Private Sub Form_Click()
Dim a!(5, 5)
Dim aver!
Dim sum!
For i = 0 To 5
For j = 0 To 5
a(i, j) = InputBox("请输入第" & i + 1 & "行" & "第" & j + 1 & "列的数字")
sum = sum + a(i, j)
Next j
Next i
aver = sum / 36
Print "平均数为" & aver
Print "大于平均值的数有："
For i = 0 To 5
For j = 0 To 5
If a(i, j) > aver Then
Print a(i, j), "第" & i + 1 & "行" & "第" & j + 1 & "列"
End If
Next j
Next i
End Sub

'比较直观，哪处不明白的给我信息