二维数组m*n的鞍点

Option Base 1
Dim anma() As Integer
Dim m As Byte, n As Byte
Private Sub Command1_Click()
    Cls
    Me.Font.Size = 30
    m = 5: n = 6
    ReDim anma(m, n)
    Dim i As Byte, j As Byte
    For i = 1 To m
        For j = 1 To n
            anma(i, j) = 10 + Int(Rnd * 90)
        Next j
        Print
    Next i
    For i = 1 To m
       For j = 1 To n
           Print anma(i, j); Space(3);
       Next j
       Print
    Next i
    Dim row_max As Integer, column_max As Byte
    Dim k As Byte
    
    For i = 1 To m
        row_max = anma(i, 1)
        column_max = 1
     For j = 2 To n
        If anma(i, j) > row_max Then
            row_max = anma(i, j)
            column_max = j
            End If
            Next j
     For k = 1 To m
        If anma(k, column_max) < row_max Then
            Exit For
        End If
      Next k
      If k = m + 1 Then
          Print "鞍点:" & i & "," & column_max
      End If
    Next i
End Sub
实验心得

如果k<m,无鞍点；k>m+1,有鞍点