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
'比较直观，哪处不明白的给我信息
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024