如何获得二维数组当前位置的第二个下标

[rero]

假设定义了一个二维数组A(3,5),其中A(1,3)=6 。请问我怎样才能获得A(1,2)中的第二个下标的值2？谢谢！

[zwnylsf]

不知道你的意思啊，说具体点

[rero]

我的意思是：
假设定义了一个二维数组A(3,5),其中A(1,1)=5, A(1,2)=6, A(1,3)=4。我要从这3个数组变量中找到最大的那个值(在这里是“6”)，找到这个值后，我还想得到这个值所对应二维数组变量的第二个下标(在这里是“2”)。
不知道这样说，是否能让你理解我的意思了。谢谢！

[yanlongwuhui]

循环比对的时候记录下来不就可以了？

[zwnylsf]

有点明白了，我以前也写过这样的代码，代码有通用性，可以求解此类问题：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim A(3, 5) As Integer
A(1, 1) = 5
A(1, 2) = 6
A(1, 3) = 4
Dim intMaxInt As Integer = intMax(A(1, 1), A(1, 2))
Dim i As Integer
For i = 1 To 3
intMaxInt = intMax(intMaxInt, A(1, i))
Next
MessageBox.Show("数组最大值为" & intMaxInt.ToString)
For i = 1 To 3
If A(1, i) = intMaxInt Then
MessageBox.Show("最大值所对应的二维下标是" & i.ToString)
End If
Next
End Sub
Private Function intMax(ByVal intA As Integer, ByVal intB As Integer)
If intA >= intB Then
Return intA
Else
Return intB
End If
End Function

你在窗体上加个Button就行了