可以用vb输出一个二维的数字方阵吗

Dim str As String, n As Integer   str = InputBox("", "输入n")   n = CInt(str)   Dim i As Integer, j As Integer, ar(n) As Integer, str1 As String   For j = 1 To n   For i = 0 To n - 1   ar(i) = CInt(Rnd() * 100)   If str1 = "" Then   str1 = ar(0)   Else   str1 = str1 + " " + CStr(ar(i))   End If   Next   If ListBox1.Text = "" Then   'ListBox1.Text = CStr(str1)   ListBox1.Items.Add(CStr(str1))   Else   ListBox1.Text = ListBox1.Text + Chr(13) & Chr(10) + str1   End If   str1 = ""   Next   在ListBox1中输出n个0到100的随机数   有问题在线联系.....