vb怎么用二维数组编写一个程序确定一个矩阵中的最大值以及最大值的位...

Question

vb怎么用二维数组编写一个程序确定一个矩阵中的最大值以及最大值的位置？ 急。。。谢了。。。

Answer 1

不用任何控件，点击窗口即可运行，代码如下：
Dim a(5, 5) As Integer
Private Sub form_click()
Cls
AutoRedraw = True
Dim i As Integer, j As Integer
Dim b(2) As Integer
Print "自动产生的数组是："
Randomize
For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(Rnd * 100)
If a(i, j) > b(0) Then
b(0) = a(i, j)
b(1) = i
b(2) = j
End If
Print a(i, j);
Next
Print
Next
Print "最大的数是"; b(0); "，它位于第"; b(1); "行，第"; b(2); "列。"
Print "点击窗口继续......"
End Sub

已经运行过。