Option Base 1
Private Sub Command1_Click()
Dim s%(), n%, m%, i%, j%
n = 3
m = 4
ReDim s(n, m)
Randomize
For i = 1 To n
For j = 1 To m
s(i, j) = Int(101 * Rnd)
Print s(i, j);
Next
Print
Next
Dim maxi%, maxj%
maxi = 1: maxj = 1
For i = 1 To n
For j = 1 To m
If s(i, j) > s(maxi, maxj) Then maxi = i: maxj = j
Next
Next
Print "最大数"; s(maxi, maxj); "的行号和列号分别是:"; maxi; maxj
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024