Private Sub andian(a() As Variant)
Dim i As Integer, j As Integer, k As Integer, m As Integer, n As Integer
Dim tmpMax, tmpMin, flag As Boolean
flag = False
n = LBound(a, 2)
For i = LBound(a, 1) To UBound(a, 1)
tmpMax = a(i, LBound(a, 2))
For j = LBound(a, 2) + 1 To UBound(a, 2)
If tmpMax
a(k, n) Then
tmpMin = a(k, n)
m = k
End If
Next k
If a(m, n) = tmpMax Then
Print m & ":" & n & ":" & tmpMax
flag = True
End If
Next i
If Not flag Then Print "无鞍点"
End Sub
|