输入一个4×5矩阵,求最大值所在行数和列数

Question

输入一个4×5矩阵,求最大值所在行数和列数

Answer 1

Private Sub Form_Click()
Dim a(4, 5) As Integer
Randomize
For i = 1 To 3
For j = 1 To 4
a(i, j) = Int(Rnd() * 10) + 40
Print a(i, j);
Next j
Print
Next i
Max = a(1, 1)
For i = 2 To 3
For j = 1 To 4
If Max < a(i, j) Then Max = a(i, j): s = i: t = j
Next j
Next i
Print "最大值为：" & Max; "在第" & s & "行" & "第" & t & "列"
End Sub