高考问答客家菜招牌菜有哪些:VB设计：有个6*6的矩阵，各元素值由键盘输入，求全部元素的平均值，并输出高于平均值的元素及它们的行列号
来源：百度文库 编辑：高考问答 时间：2024/05/04 06:55:17
请高手详细作答，并且你会为你的付出得到应有的回报！！！！！！！！！！！！
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
'比较直观，哪处不明白的给我信息