回复 6# 的帖子
帮你修改了下,你是直接写出来的吧,大虾来的,呵呵!!!
Dim a(1 To 6, 1 To 6) As Integer
Private Sub Command1_Click()
Dim aver As Single
dim sum as single
For i = 1 To 6
For j = 1 To 6
Sum = Sum + a(i, j)
Next
Next
aver = Sum / 36
Label1.Caption = "平均值为:" & aver
For i = 1 To 6
For j = 1 To 6
If a(i, j) > aver Then
s = "元素为: " & a(i, j) & " 行数 :" & i & " 列数 :" & j
List1.AddItem s
End If
Next
Next
End Sub
Private Sub Form_Activate()
For i = 1 To 6
For j = 1 To 6
a(i, j) = Val(InputBox("请输入第" & i & "行" & j & "列个元素"))
Picture1.Print Format(a(i, j), "@@@@");
Next
Picture1.Print
Next
End Sub