编写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）请为④、⑤划线处填入合适的代码，④： ，⑤：  。

某 VB 程序段如下：
Private Sub Command1_Click( )
Dim x As Integer
x = Val(Text1.Text)
x = x \ 2 + 1
Text1.Text = Str(x)
End Sub
程序运行时，在文本框 Text1 输入 13 时，连续两次单击命令按钮 Command1 后，文本框 Text1中显示的内容是（  ）

A．6

B．7

C．4

D．5

在 VB 中，表示b²-4ac 的表达式是（ ）

A．b2-4ac	B．b*b-4ac
C．b*b-4*a*c	D．b×b-4×a×c

在VB中，把代数式写成VB表达式，正确的是（  ）

A．a+b/2a

B．(a+b)2a

C．(a+b)2*a

D．(a+b)/（2*a)

下列不属于VB基本运算的是( )

A．函数运算

B．算术运算

C．关系运算

D．逻辑运算