x是大于0小于45的数，用VB表达式表示正确的是（    ）

A．0<=x<45	B．0<=x<=45
C．0<x and x<45	D．0<=x and x<=45

计算结果为0的表达式是（   ）

A．Int(2.4)+Int(-2.8)	B．ABS(-10)+SGN(-10)
C．Fix(2.4)+Int(-2.8)	D．Fix(2.4)+Fix(-2.8)

Visual Basic 表达式 -1 + 4 ^ 2 \ 5 Mod 3 * 2的值是（  ）

A．0

B．1

C．2

D．5

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

NOT ((7>3) OR (5<2)) AND (6>1) 的值和下列哪个表达式的值是相等的_____。

A．6>1 AND 7>3

B．5<2 AND 6>1

C．7>3 or 5<2

D．5<2 OR 6>1