6.2

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