VB上机操作题

第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