在VB中，设整型变量x、y的值分别是3、6，则下列语句中，能实现在标签Label1中显示“s = 18”的语句是（）
| A．Label1.Caption = "s = x * y" |
| B．Label1.Caption = "s = " + Str(x * y) |
| C．Label1 = "s = " (x + y)＾ 2 |
| D．Label1.Caption = "s = " + Val(x * y) |
某算法的VB程序段如下:
i = 1: j = 7: s = ""
key = 34
Do While i <= j
m = (i + j) \ 2
If key = a(m) Then
s = s + "2": Exit Do 'Exit Do 表示退出循环
ElseIf key < a(m) Then
j = m - 1: s = s + "1"
Else
i = m + 1: s = s + "3"
End If
Loop
Text1.Text = s
数组元素a(1)到a（9）的值依次为“15，26，34，47，53，59，60，72，85”。若该程序段执行后，文本框Text1中显示的内容可能是（）
i = 1: j = 7: s = ""
key = 34
Do While i <= j
m = (i + j) \ 2
If key = a(m) Then
s = s + "2": Exit Do 'Exit Do 表示退出循环
ElseIf key < a(m) Then
j = m - 1: s = s + "1"
Else
i = m + 1: s = s + "3"
End If
Loop
Text1.Text = s
数组元素a(1)到a（9）的值依次为“15，26，34，47，53，59，60，72，85”。若该程序段执行后，文本框Text1中显示的内容可能是（）
| A．31 |
| B．132 |
| C．313 |
| D．1312 |
某VB程序代码如下：
Dim n As Integer，s As String
n = 64 :s = ""
Do While n > 0
s = Str(n Mod 7) + s
n = n \ 7
Loop
执行该程序段后，变量s的值是（）
Dim n As Integer，s As String
n = 64 :s = ""
Do While n > 0
s = Str(n Mod 7) + s
n = n \ 7
Loop
执行该程序段后，变量s的值是（）
| A．"121" |
| B．121 |
| C．"211" |
| D．211 |
在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
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
执行以上程序后，变量ｉ和ｓ的值分别为（）
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的值分别是（）
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程序,回答问题。
(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
(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显示的内容是（ ）
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 |