UC知道VB问题 ~帮帮忙~
来源：百度知道 编辑：UC知道 时间：2024/06/15 08:31:39
有一个n*m的矩阵，编写程序，找出其中最大的那个元素所在的行和列，并输出其值及行号和列号。
矩阵：
73 58 62 36 37
79 11 78 93 73
14 47 87 81 43
96 88 15 95 42
谢谢啦``
矩阵：
73 58 62 36 37
79 11 78 93 73
14 47 87 81 43
96 88 15 95 42
谢谢啦``
没有下标限制
Private Sub Form_Load()
Dim Nums() As Integer
Dim MaxIndex As Integer
Dim N As Integer
Dim M As Integer
Dim i As Integer
N = InputBox("请输入N")
M = InputBox("请输入M")
ReDim Nums(0 To N * M - 1)
For i = 0 To N * M - 1
Nums(i) = InputBox("请输入(" & (i Mod N) & "," & Int(i / N) & "):=")
Next i
For i = 1 To N * M
If Nums(N) > Nums(MaxIndex) Then MaxIndex = i
Next i
MsgBox "最大数在:(" & (i Mod N) & "," & Int(i / N) & "):"
End Sub