VB高手大人狂入!

Question

有一个取二维数组第2维最大值的方法,如下
Public Function max(x As Integer, n() As Integer) As Integer '取最大值的方法
Dim i As Integer
Dim lngMaxIndex As IntegerlngMaxIndex = LBound(n, 2)
For i = LBound(n, 2) + 1 To UBound(n, 2)
If n(x, i) > n(x, lngMaxIndex) Then
lngMaxIndex = i
End If
  Next i
max = n(x, lngMaxIndex)End Function
为什么当执行一个过程时,却没有变化?是不是我写错了?
tp(2, n) = 120 - n
Label8.Caption = CStr(tp(2, n))
Label10.Caption = CStr(tp(2, max(2, tp())))

Answer 1

Max()函数没有错，能得到最大值，注意，是最大值，不是最大值所在的数组的位置。你调用时用的tp(2,max(2,tp()))就没有道理了。