找出一个4行5列的二位数组的鞍点，vb编程

Question

如题所述

Answer 1

Dim a()
Private Sub Form_Click()
   Dim m As Integer, n As Integer
   m = Val(InputBox("请输入行数"))
   n = Val(InputBox("请输入列数"))
   ReDim a(m, n)
   Randomize
   Text1.Text = ""
   For i = 1 To m
      For j = 1 To n
         a(i, j) = Int(Rnd * 100 + 1)
         Text1.Text = Text1.Text & Format(a(i, j), "!@@@@")
      Next j
      Text1.Text = Text1.Text & vbCrLf
   Next i
   find = 0
   For i = 1 To m
      big = a(i, 1)
      col = 1
      For j = 1 To n
         If big < a(i, j) Then
            big = a(i, j)
            col = j
         End If
      Next j
      flag = 1
      For k = 1 To m
         If big > a(k, col) Then
            flag = 0
            Exit For
         End If
      Next k
      If flag = 1 Then
         find = 1
         Text2.Text = "鞍点在" & i & "行" & col & "列"
      End If
   Next i
   If find = 0 Then MsgBox "无鞍点"
End Sub