VB 二维数组找最大元素位置,要求先设第一行第一列为最大元素,option base 1 求代码
Option Base 1
Private Sub Command1_Click()
Dim a(4, 5) As Integer
Dim i As Integer
Dim j As Integer
Dim v As Integer
Dim h As Integer
Picture1.Cls
For i = 1 To 4
For j = 1 To 5
a(i, j) = Int(Rnd * 90) + 10
Picture1.Print a(i, j);
Next j
Picture1.Print
Next i
Picture1.Print
a(h, v) = a(1, 1)
For i = 1 To 4
For j = 1 To 5
If a(h, v) < a(i, j) Then a(h, v) = a(i, j): h = i: v = j
Next j
Next i
Picture1.Print "数组中最大元素为第" & h & "行" & "第" & v & "列的" & a(h, v)
End Sub
Private Sub Command2_Click()
End
End Sub
我写的会溢出