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

某对分査找算法的VB程序段如下：
i=" 1" :  j =9  :  n ="0"
key="Val(" Textl.Text)
Do While i <= j[ZXXK]
m="(i" + j) \ 2
If  key = d(m)  Then
Exit Do

j=" m" - 1
Else
i=m+1
End If
Loop
方框中的正确代码应为

A．End If	B．If key < d(m) Then
C．ElseIf key < d(m) Then	D．If key > d(m) Then

有如下Visual Basic程序段：
Dim a(1 To 7) As Integer, i As Integer, j As Integer, k As Integer, c As Integer
a(1) =" 3:" a(2) =" 9:" a(3) =" 1:" a(4) =" 5:" a(5) =" 8:" a(6) =" 6:" a(2) = 2
s = ""
For i =" 1" To 3
For j =" i" + 1 To 7
If a(j) < a(i) Then
k =" a(j):" a(j) =" a(i):" a(i) = k
c =" c" + 1
End If
Next j
s =" Str(a(i))" + s
Next i
text1.Text =" Str(c)" & “:” & s
该程序段运行后,文本框Text1中显示的内容是

A．5:6 8 9

B．3: 9 8 6

C．3:1 2 3

D．5:3 2 1

“水仙花数”就是一个 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

某地一户一表居民实施阶梯式水价方案。阶梯水价计量分三级，第一级为18立方米以下，每立方米按2.4元计价；第二级为18至31立方米，每立方米按3.35元计价；第三级为31立方米及以上，每立方米按4.30元计价。如图2-1-38所示算法用于根据用水量V（立方米）计算水价s(元)。
流程图如图所示，①中应入填写的是 ，③中应该填入的是 。

用解析方法计算一元二次方程的根时，使用的计算公式之一是，下列用于表述该公式的VB表达式中，正确的是（    ）

A．x1= (-b+)/2*a

B．x1= [-b+sqr(b*b-4*a*c)]/2a

C．x1= (-b+sqr(b*b-4*a*c))/2/a

D．x1= (-b+sqr(b^2-4*a*c))/2*a

在VB中，给变量a,b,c均赋值为1，下列语句正确的是（  ）

A．a=1,b=1,c=1

B．a=1:b=1:c=1

C．a=1;b=1;c=1

D．a=b=c=1

某VB程序如下：
Private Sub Command1_Click()
Dim i As Integer
Dim a(1 To 10) As Integer
For i =" 1" To 10
a(i) =" i" * 2
Next i
Text1.Text = Str(a(i))
End Sub
运行程序，单击命令按钮Command1后弹出右图所示的出错提示，引起该错误的语句是（  ）

A．Dim a(1 To 10) As Integer	B．a(i) =" i" * 2
C．Text1.Text = Str(a(i))	D．For i =" 1" To 10

写出下列表达式的值
(1) “20”+str(15) =_____________
(2) Len(“-100”)+100 =__________
(3) 103\10/5 mod 10=_____________
(4) Not (1>2) and (5<3)=____________