随机产生100-200之内的60个整数，偶数与奇数分别输出在两个窗口里 VB编程急求~

Dim a(1 To 60) As Integer

Private Sub Command1_Click()
For i = 1 To 60
If a(i) Mod 2 = 0 Then
Print a(i)
Else
Form2.Print a(i)
End If
Next
End Sub

Private Sub Form_load()
Form2.Show
Randomize
For i = 1 To 60
a(i) = Int(101 * Rnd) + 100
Next
End Sub

新建窗体, 添加一个按钮command1，2个文本框,text1和text2
在command1_click中写代码如下:
Private Sub Command1_Click()
Randomize
Dim i As Integer '60个数字
Dim x As Integer '随机数
While (i <= 60)
x = Rnd * 200
If x > 99 Then '大于100
i = i + 1 '计算到60
If x Mod 2 = 0 Then '偶数
Text1.Text = Text1.Text & x & ","
Else '奇数
Text2.Text = Text2.Text & x & ","
End If
End If
Wend
End Sub