Option Base 1------通用
Private Sub Command1_Click()
Cls
Dim a() As Integer
Dim m As Byte, n As Byte
n = 5: m = 6
ReDim a(m, n)
Dim i As Byte, j As Byte
For i = 1 To m
For j = 1 To n
a(i, j) = 10 + Int(Rnd * 90)
Print a(i, j); Spc(3);
Next j
Print
Next i
Dim row_max As Byte, column_max As Byte
For i = 1 To m
row_max = a(i, 1)
column_max = 1
For j = 2 To n
If (a(i, j) > row_max) Then
row_max = a(i, j)
column_max = j
End If
Next j
For k = 1 To m------------------------------------------------------------------------------------------------------循环完了是k=m+1
If a(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
Private Sub Command1_Click()
Cls
Dim a() As Integer
Dim m As Byte, n As Byte
n = 5: m = 6
ReDim a(m, n)
Dim i As Byte, j As Byte
For i = 1 To m
For j = 1 To n
a(i, j) = 10 + Int(Rnd * 90)
Print a(i, j); Spc(3);
Next j
Next i
Dim row_max As Byte, column_max As Byte
For i = 1 To m
row_max = a(i, 1)
column_max = 1
For j = 2 To n
If (a(i, j) > row_max) Then
row_max = a(i, j)
column_max = j
End If
Next j
For k = 1 To m------------------------------------------------------------------------------------------------------循环完了是k=m+1
If a(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