二维数组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,有鞍点