Question

VB中输出已知矩阵A（）矩阵A是m行n列的矩阵。

Picture1.Print "A: "
For i = 1 To n1
For j = 1 To m1
Picture1.Print Tab(15 * j); A(i, j);
Next j
Picture1.Print
Next i

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

追问

要输出的不是随机的矩阵，输出的矩阵上段程序已经有了是固定的A (i,j) m，n，什么的也不用定义了，在次麻烦了