vb编程，关于二维数组

Private Sub Form_Click()
Dim A() As Integer, NA As Integer
Dim B() As Integer, NB As Integer

Dim I As Integer, N As Integer

Randomize
For I = 1 To 100
N = Int(90 * Rnd) + 10
If N Mod 2 = 0 Then
NA = NA + 1
ReDim Preserve A(NA)
A(NA) = N
Else
NB = NB + 1
ReDim Preserve B(NB)
B(NB) = N
End If
Next I

Print "偶数组：(" & NA & "个)"
For I = 1 To NA
Print A(I);
If I Mod 10 = 0 Then Print
Next I
Print

Me.ForeColor = vbRed
Print "奇数组：(" & NB & "个)"
For I = 1 To NB
Print B(I);
If I Mod 10 = 0 Then Print
Next I

End Sub