Question

vb 怎么在文本框输出7*7的矩阵，下面是我编写的代码，单击command1在文本框输出该矩阵

为什么我下面的代码不行啊？
Private Sub Command1_Click()
Dim a(1 To 7, 1 To 7) As Integer, p As String
Randomize
Text1.Text = ""
p = ""
For i = 1 To 7
For j = 1 To 7
a(i, j) = Int(100 * Rnd)
p = p & Str(a(i, j))
Text1.Text = p & vbCrLf
Next
Next
End Sub

Answer 1

Private Sub Command1_Click()
    Dim a(1 To 7, 1 To 7) As Integer, p As String
    Randomize
    Text1.Text = ""
    p = ""
    For i = 1 To 7
        For j = 1 To 7
            a(i, j) = Int(100 * Rnd)
            p = p & Str(a(i, j))
        Next
        p = p & vbCrLf'这里是这样子的
    Next
    Text1.Text = p'这里是这样子的
End Sub