.有如下VB程序段：
x=-3
Do While x<0
x=x+2
Loop
该程序段运行后，变量x的值是：

A．-3

B．-1

C．1

D．3

VB表达式  len(mid(“happy new year 2016!”,6,4)的计算结果（   ）

A．4

B．5

C．6

D．10

Visual Basic中，如果变量p需要存储一首古诗，那么变量p的数据类型应该定义为（   ）

A．Single

B．Boolean

C．String

D．Integer

下列VB表达式，只能产生-100到100之间（包括-100和100）随机数的是（    ）

A．int(rnd*101)

B．int(rnd*1-100)+100

C．int(rnd*200)-100

D．int(rnd*201)-100

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

“水仙花数”就是一个 n（n≥3）位的自然数，它的每个位上的数字的 n 次幂之和等于
它本身。如 153=1³+5³+3³。在编写 VB 程序验证某个三位数 x 是否是“水仙花数”的
过程中要提取出这个数的个位、十位、百位分别存储在变量 a、b、c 中，以下语句能
够用来提取十位上的数的是

A．b="x\10" mod 10	B．b=x\100
C．b="x/100" mod 10	D．b="x" mod 10

下列程序执行后，整型变量s的值为（ ）
s=0
For i=" 1" To 5
s =" s" + i
Next i

A．5

B．15

C．20

D．9

在Visual Basic中，语句x=Val(number.Text)中的number是（   ）

A．对象名	B．类名
C．属性名	D．属性值

想产生区间[10,50]的随机整数，以下函数正确的是（   ）

A．Int(Rnd()*40+10)	B．Int(Rnd()*40+11)
C．Int(Rnd()*41+10)	D．Int(Rnd()*41+9)

下列可以作为 Visual Basic 的变量名的是（  ）

A．2Loveme

B．Love_me

C．Love@#me

D．While