vb的期末考试怎么考，是把那些

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