编写VB程序，实现如下功能：窗体装载时随机生成10个1至100的整数，并显示在列表框list1中，单击“分组”按钮command1，将这10个数分为奇数和偶数两组，在list2中显示奇数数字，及其个数，list3中显示偶数数字，及其个数。运行界面如第22题图所示，程序代码如下。
Dim a(1 To 10) As Integer, b(1 To 10) As Integer, c(1 To 10) As Integer
Private Sub
② () '窗体加载时产生10个1~100的整数
Dim i As Integer
Randomize
List1.Clear
For i =" 1" To 10
a(i) =
③ '随机产生1个1~100的整数
List1.AddItem Str(a(i))
Next i
End Sub
Private Sub Command1_Click()
Dim i As Integer, ji As Integer, ou As Integer
List2.Clear
List3.Clear
ji =" 0:" ou = 0
For i =" 1" To 10
If a(i) Mod 2 <> 0 Then
List2.AddItem Str(a(i))
④Else
List3.AddItem Str(a(i))
⑤End If
Next i
List2.AddItem "共有奇数" + Str(ji) + "个"
List3.AddItem "共有偶数" + Str(ou) + "个"
End Sub
（1）观察运行界面，选项中没有用到的控件是
① ( 选项A．
B．
C．
A． )。 |
（2）划线②处应填的事件是
② 。
（3）划线处③的代码应该是：
③ （填选项号）。
A. Int(Rnd()+100)*1 B. Int(Rnd()+1)* 100 C.Int(Rnd() * 100) + 1
（4）请为④、⑤划线处填入合适的代码，④：
，⑤：
。
