vb.Net关于一维数组的问题.

VB6做的不知道行不行?VB.net没用过.
Private Sub Command2_Click() '新建一个按键和两个文本框
Dim i, j, n, m1, m2, a(1 To 20), b(1 To 20) As Integer
Text3.Text = "": Text4.Text = ""
For i = 1 To 20
a(i) = Int(Rnd(10) * 100 + 1)
For j = 1 To i - 1
If a(i) = a(j) Then
j = j - 1
i = i - 1
End If
Next
Next
'以上是获得不重复随机数
For n = 1 To 20
Text3.Text = Text3.Text & " " & a(n)
If n Mod 5 = 0 Then
Text3.Text = Text3.Text & vbCrLf
End If
Next
For m1 = 2 To 20
For m2 = 1 To m1 - 1
If a(m1) Mod a(m2) <> 0 Then
b(m1) = a(m1)
Else
b(m1) = 0
Exit For
End If
Next
Text4.Text = Text4.Text & " " & b(m1)
If b(m1) = 0 Then
Text4.Text = Replace(Text4.Text, " 0", "") '将带有空格和0( 0)的字符去掉
End If
If m1 Mod 5 = 0 Then
Text4.Text = Text4.Text & vbCrLf
End If
Next
End Sub
以上运行正确.