请教下VB编程题

来源：百度知道 编辑：UC知道 时间：2024/05/19 07:19:16
有一个的矩阵，编写程序，找出其中的最大元素所在的行和列，并输出其值及行号和列号。
高手帮帮忙啊，分数不多，只有这些了，拜托。。。

新建一个窗体Form1,上面加一个Command1控件,
加入以下代码:
Dim a(3, 4) As Integer '存放矩阵的数组
Dim b(1) As Integer '用来存入最大值的下标
Dim i As Integer
Dim j As Integer
Private Sub Command1_Click()

Dim max As Integer
max = 0

For i = 0 To 3
For j = 0 To 4
If a(i, j) > max Then
max = a(i, j)
b(0) = i + 1
b(1) = j + 1
End If
Next
Next

Print max
Print "所在行是：": Print b(0)
Print "所在列是：": Print b(1)

End Sub

Private Sub Form_Load()
For i = 0 To 3
For j = 0 To 4
a(i, j) = InputBox("请输入矩阵中的元素", "数据输入")
Next
Next
End Sub