鞍点程序

Option Base 1

Private Sub Command1_Click()

Cls

Me.Font.Size = 30

Dim anma() As Integer

Dim m As Integer, n As Integer

m = 5: n = 6

ReDim anma(m, n)

Dim i As Integer, j As Integer

For i = 1 To m

    For j = 1 To n

        anma(i, j) = 10 + Int(Rnd() * 90)

    Next j

Next i

For i = 1 To m

    For j = 1 To n

        Print anma(i, j); Spc(3);

    Next j

    Print

Next i

Dim row_max As Integer, column_max As Integer

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