鞍点

Option Base 1

 

Dim anma() As Integer

Dim m As Byte, n As Byte

 

 

 

 

 

Private Sub Command1_Click()

Cls

m = 5: n = 6

ReDim anma(m, n)

Dim i As Byte, j As Byte, k As Byte

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