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