vb代码,急 a) 单击“生成”按钮,生成100个三位随机整数,分别将其中的偶数与奇数显示在二个列表框中 b)

生成按钮代码：
Private Sub Command1_Click()
Randomize
For i = 1 To 100
t = Int(Rnd() * 900 + 100)
If t Mod 2 = 0 Then
List1.AddItem t
Else
List2.AddItem t
End If
Next i
End Sub
我已近法测试过了.
再问： 怎么生成统计啊
再答： 统计： list1.ListCount返回值就是list1里的元素个数 text1.text=list1.ListCount text2.text=list2.ListCount 就行了