vb期末考试是怎么考的

Question

如题所述

Answer 1

请问你需要什么帮助？我对vb比较熟悉<pre t="code" l="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