对于实数ｘ，保留2位小数且第3位四舍五入的ＶＢ表达式是（）

A．Int(x*100)/100

B．Int(x*1000)/100

C．Int(x*100+0.5)/100

D．(x*1000+5)\100

某算法的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中显示的内容可能是（）

A．31

B．132

C．313

D．1312

用VB编写“提取字符串”的程序，实现如下功能：在文本框Text1中输入字符串，单击“提取”按钮Command1,程序将字符串中连续最长的大写字母提取出来，并显示在文本框Text2中。程序运行界面如图所示。

（1）程序运行时，要使按钮Command1标题显示“提取”，可在Form_Load()事件处理过程中添加语句_______(单选，填字母:

A．Command1 ="提取"/

B．Command1.Text="提取"/

C．Command1.Caption = "提取"）。

（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim s As String, d As Integer, i As Integer
Dim max As Integer, c As String, ans As String
s = Text1.Text
d = 0 : max =0
For i = 1 To Len(s)
c = Mid(s, i, 1)
If c >= "A" And c <= "Z" Then
d = d + 1
Else
If d > max Then
ans= Mid(s, i - d, d)

①________________

   End If
d = 0
End If
Next i
Text2. Text= ②___________
End Sub
（3）若文本框Text1中输入内容为：“Is it JUNE or JULY?”，单击“提取”按钮后，文本框Text2中显示的内容是_________。

（加试题）若数组元素d(1)到d(8)的值依次为“86,75,58,46,20,18,12,5”，查找某Key值的VB程序段如下：
n = 0 : i = 1 : j = 8
Key = Val(Text1.Text)
Do While i <= j
m = (i + j) \ 2     
If Key = d(m) Then  Exit Do   'Exit Do表示退出循环
If Key > d(m) Then
j = m - 1 : n = n - 1
Else
i = m + 1 : n = n + 1
End If
Loop
Label1.Caption = Str(n)
当输入不同的Key值，运行该程序段后，在标签Label1中显示的不同结果共有

A．5种

B．6种

C．7种

D．8种

有如下VB 程序段:
m = Val(Text1.Text)
Do While m <> 0
x = m Mod 8
m = m \ 8
a(x) = a(x) + 1
If a(x) = 1 Then n = n + 1
Loop
数组a 各元素的初始值都为0,在文本框Text1中输入“529”,执行程序后,变量n的值为（）

A．1

B．2

C．3

D．4