vb编程：输出n×n数字方阵

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的随机数
有问题在线联系.....

text1.text=n
for i=1 to n
for j=1 to n
print j
next j
next i

不知是不是这个

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Butt