Question

VB题： 有一个n*m的矩阵，编写程序，找出其中最大的那个元素所在的行和列，并输出其值及行号和列号。

我的代码如下，求高人看看错在哪了：
Option Base 1
Private Sub Command1_Click()
Dim a%(), b%()
n = InputBox("列数n=")
m = InputBox("行数m=")
ReDim a%(m, n)
For i = 1 To m
For j = 1 To n
a(i, j) = Int(Rnd * 100)
Next j
Next i
For i = 1 To m
For j = 1 To n
Print Tab(6 * (k Mod n) + 3); a(i, j);
k = k + 1
Next j
Next i
Print
ReDim b%(m, n)
x = 1: y = 1
For i = 1 To m
For j = 1 To n
If b(x, y) < a(i, j) Then
x = i: y = j
End If
Next j
Next i

Print "最大的数是" & a(x, y) & "它在第" & y & "列，第" & x & "行"
End Sub
（没分了，抱歉……）

Answer 1

Option Base 1
Private Sub Command1_Click()
Dim a%(), b%()
n = InputBox("列数n=")
m = InputBox("行数m=")
ReDim a%(m, n)
For i = 1 To m
For j = 1 To n
a(i, j) = Int(Rnd * 100)
Next j
Next i
For i = 1 To m
For j = 1 To n
Print Tab(6 * (k Mod n) + 3); a(i, j);
k = k + 1
Next j
Next i
Print
ReDim b%(m, n)
x = 1: y = 1
For i = 1 To m
For j = 1 To n
If b(x, y) < a(i, j) Then
x = i: y = j
b(x, y) = a(i, j) '添加这一行代码
End If
Next j
Next i

Print "最大的数是" & a(x, y) & "它在第" & y & "列，第" & x & "行"
End Sub