在Visual Basic中，能随机产生一个小写字母的表达式是（）

A．Asc(Int(Rnd()*25+97)

B．Chr(Int(Rnd()*25+65)

C．Chr(Int(Rnd()*26+97)

D．Asc(Int(Rnd()*26+65)

运行如下ＶＢ程序，单击命令按钮Command1，出现如图所示的出错信息。发生“下标越界”错误时所执行的语句是（）

Private Sub Command1_Click()
Dim a（0 To 7） As Integer
Dim i As Integer＇①
a（0）=1 
For  i = 1 To 7   ＇②
a（i）= 2 * a（i-1）+ 1   ＇③
Next i
Text1.Text = Str(a(i))＇④
End Sub

A．①

B．②

C．③

D．④

有如下VB程序段：
S = 0
i = 5
Do While i < 12
If s <6  Then s = s+i  else  s = s-3
i = i+1
Loop
执行以上程序后，变量ｉ和ｓ的值分别为（）

A．11  5

B．11  8

C．12  8

D．12  5

某VB程序段如下：
Private Sub Command1_Click()
Dim a As Integer
Dim b As Boolean
a = (a + 1) * 2
b = a - 1
print a:print b
End Sub
程序运行时，单击命令按钮Command1后，变量a和b的值分别是（）

A．2   1

B．2  true

C．4  -1

D．4   False

在VB中，下列表达式的值为5的是（）

A．Sqr(5.2)

B．Abs(5.2)

C．Fix(5.2)

D．Len("5.2")

分析VB程序,回答问题。
(1) 下列程序运行后，在标签Lab上显示的是 _____________。
Private Sub Command1_Click()
Dim a As String, b As String, c As String
a = "印象西湖"
b = "中国"
c = b + Mid(a, 1, 2)
Lab.Caption = c
End Sub
(2) 下列程序运行后，在标签Label1上显示的是_____________。
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, w As Single
w = 6: a = 60: b = 50: c = 30
If w <= 10 And a + b + c <= 115 Then
Label1.Caption = "携带"
Else
Label1.Caption = "托运"
End If
End Sub
(3) 下列程序运行后，数组元素d(3)的值是_____________。
Private Sub Command1_Click()
Dim d(1 To 8) As Integer
Dim i As Integer
For i = 1 To 8
d(i) = 2 * i
List1.AddItem Str(d(i))
Next i
End Sub

（加试题）有如下VB程序段：
Dim a(1 To 6) As String
Text1.Text = ""
For i = 1 To 3
For j = 1 To 6 - i
If a(j) < a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t
Next j
Text1.Text = Text1.Text + a(j)
Next i
数组元素a(1)到a(6)的值依次是“231”，“123”，“12”，“59”，“41”，“33”。若该程序段执 行后，文本框Text1显示的内容是（   ）

A．123341

B．23112359

C．12123231

D．594133

（加试题）有如下VB程序段：
i=1:j=10:n=0:Key=Val(Text1.Text)
Do While i<=j
m=(i+j)\2
If a(m)<Key Then
i=m+1:n=n+1
Else
j=m-1:n=n-1
EndIf
Loop
数组元素a(1)到a(10)依次是33，42，48，57，69，71，75，89，91，96，在文本框Text1输入89，则变量n的最终值为（）

A．2

B．1

C．0

D．-2

（加试题）双调序列：指的是有n个整数进行排序，在序列中第一个数是n个数当中最大数，第二 个数是n个数中最小数，第三个数是n个数中的第二大数，第四个是n个数中的第二小数……取过的数字 不能再取，依次类推，直到结束。
小明根据上述概念制作了VB应用程序，功能如下：程序运行后，点击“生成”按钮Command1随机生成10个不重复的[0,99]内的整数，列表框List1中显示排序之前数据；单击“排序”按钮Command2，在列 表框List2中显示这些数据的双调序列结果。其程序界面如图所示。 实现上述功能的VB代码如下，但加框处代码有错，请改正。

Const n = 10
Dim a(1 To n) As Integer Dim b(0 To 99) As Integer Private Sub Command1_Click()
‘随机生成10个不重复的[0，99]之间的整数，存储在a数组中，代码略。
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, k As Integer k = 0
For i = 1 To n
b(i) = b(i) + 1    '①________
Next i
For j = 0 To 99
If b(j) = 1 Then k = k + 1
a(k) = j
End If
Next j
For i = 1 To n \ 2
List2.AddItem Str(a(n - i))    '②________
List2.AddItem Str(a(i))
Next i
End Sub

请统计某个给定范围[L, R]的所有整数中，数字2出现的次数。比如给定范围为[2, 22]，数字2在数2 中出现了1次，在数12中出现1次，在数20中出现1次，在数21中出现1次，在数22中出现2次，所以数字2 在该范围内一共出现了6次。 小明编写如下图所示VB应用程序，在文本框Text1中输入区间左边界，在文本框Text2中输入区间右边 界，单击“统计数字”按钮Command1后，在标签框Label1中输出给定区间内所有整数中出现“2”的次 数。

（1）要使程序运行时，窗体Form1标题显示“统计数字”，则需在Form_Load事件过程中添加语句________
（单选，填字母：

A．Form1.Text="统计数字"/

B．Form1.Caption="统计数字"/

C．Form1.AddItem "统计数字"）

（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim left As Integer, right As Integer, s As String
Dim i As Integer, j As Integer, k As Integer, ch As String left = Val(Text1.Text)
right = Val(Text2.Text)
s = ""
k = 0
①________
Do While i <= right
s = s + Str(i)
i = i + 1
Loop
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch = "2" Then ②_____ 
Next i
Label1.Caption = Str(left) + "到" + Str(right) + "之间出现2的次数为" + Str(k) End Sub
（3）若在文本框Text1中输入300，在Text2中输入400，单击“统计数字”按钮后，标签Label1中显示的 内容是________。