Dim a%(4,5)
Private Sub Command1_Click() '产生并输出
For i = 1 To 4
For j = 1 To 5
a(i,j) = Int(Rnd * 100) '[1,100]
Print a(i,j);
Next j
Print '换行
Next i
End Sub
Private Sub Command2_Click() '求最小值
Max = a(1,1) '最大值的初始值为第一个元素
For i = 1 To 4
For j = 1 To 5
If Max < a(i,j) Then
Max = a(i,j)
End If
Next j
Next i
Print "最大值为:"; Max
End Sub
再问: 如果同时显示最大值的坐标怎么办,
再答: Dim a%(4, 5) Dim imax As Integer Dim jmax As Integer Private Sub Command1_Click() '产生并输出 For i = 1 To 4 For J = 1 To 5 a(i, J) = Int(Rnd * 100) '[1,100] Print a(i, J); Next J Print '换行 Next i End Sub Private Sub Command2_Click() '求最小值 Max = a(1, 1) '最大值的初始值为第一个元素 For i = 1 To 4 For J = 1 To 5 If Max < a(i, J) Then Max = a(i, J) imax = i jmax = J End If Next J Next i Print "最大值为:"; Max; ",坐标为(" & imax & "," & jmax & ")" End Sub 坐标加上了