第1题没拍全，以下给出第2题解
Dim intArray() As Integer, intM As Integer, intN As Integer
Private Sub Command1_Click()
intM = InputBox("请输入行数", "数组行数", 4)
intN = InputBox("请输入列数", "数组列数", 5)
ReDim intArray(1 To intM, 1 To intN)
For i = 1 To intM
For j = 1 To intN
? intArray(i, j) = Int(Rnd(i * j) * 90 + 10)
? Picture1.Print CStr(intArray(i, j)) + Space
(1);
Next j
Picture1.Print
Next i
End Sub
Private Sub Command2_Click()
Dim singleAverage() As Single
ReDim singleAverage(1 To intM)
For i = 1 To intM
For j = 1 To intN
? singleAverage(i) = singleAverage(i) + intArray(i, j)
Next j
Text1.Text = Text1.Text + CStr(singleAverage(i) / intN) + vbCrLf
Next i
Text2.Text = CStr(Max(singleAverage))
End Sub
Private Function Max(a() As Single) As Single
Dim singleMax As Single
singleMax = a(1)
For i = 2 To intM
If a(i) > singleMax Then
? singleMax = a(i)
End If
Next i
Max = singleMax / intN
End Function
Private Sub Command3_Click()
Picture1.Cls
Text1.Text = ""
Text2.Text = ""
End Sub
