请帮我写下这道VB题代码,谢谢!

来源：百度知道 编辑：UC知道 时间：2024/05/26 11:31:23
有一个nxm的矩阵,单击按钮编写程序找出最大元素所在的行和列,并显示最大值和行号,列号(其中n=3,m=4,取0-100内的数!)

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

我也不会 来看看