为什麽要判断k<m和K>m+1

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 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 Byte

For i = 1 To m

row_msx = anma(i, 1)

column_max = 1

For j = 2 To n

If anma(i, j) > row_man 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