谁能帮我用VB语言编写一个程序，这个程序要求是随机产生5行5列的二维数组判断是否有鞍点？

用rnd 函数

Dim a(5, 5) As Integer

Private Sub Command1_Click()
Dim i%, j%, max%, imax%
For i = 1 To 5
For j = 1 To 5
a(i, j) = InputBox("plaese input data:")
'a(i, j) = Int(Rnd * 100)
Picture1.Print a(i, j);
Next
Picture1.Print
Next

For i = 1 To 5
max = 0
For j = 1 To 5
If a(i, j) > max Then
max = a(i, j)
imax = j
End If
Next
flag = True
For k = 1 To 5
If a(k, imax) < max Then
flag = False
Exit For
End If
Next
If flag Then
Text1 = "a(" & i & "," & j & ")=" & a(i, imax)
Exit For
Else
Text1 = "none"
End If
Next

End Sub