某VB程序段如下所示：
Dim x As String
Private Sub Form_Load()
x = ""
End Sub
Private Sub Text1_Change()
Dim s As String, k As String
Dim i As Integer
s = "0123456789ABCDEF"
k = Text1.Text
For i = 1 To Len(s)
If Mid(s, i, 1) = k Then x = x + k
Next i
If x = "" Then x = "没有找到！"
Label1.Caption = x
End Sub
若在文本框Text1中依次输入“2”和“9”，则Label1上显示的内容为

A．11

B．2

C．9

D．29

某对分查找算法的 VB 程序段如下：（   ）
i = 1: j = 7
key = Int(Rnd() * 100) Do While i <= j
m = (i + j) \ 2
If a(m) = Key Then
Exit Do
ElseIf a(m) > Key Then
j = m - 1
Else
i = m + 1
End If
数组元素 a(1)到 a(7)的值依次为“25,42,53,66,77,83,98”，运行上述程序段后，下列条件表达式肯定不成立的是

A．j-i=0

B．i-j=2

C．i=8

D．m<=7

（加试题）下列有关查找的说法，不正确的是( ）

A．进行对分查找时，被查找的数据必须是有序的

B．对数据进行顺序查找时，必定比对分查找的查找次数要多

C．某数据序列可以进行对分查找，那么必定也能进行顺序查找

D．进行顺序查找时，被查找的数据可以是有序的，也可以无序的

编写“数字提取”程序，实现如下功能：在文本框 Text1 中输入包含数字和其他非数字字 符混合的原始数据，点击“数字提取”按钮 Command1，将数据中的数字以“，”间隔输出到文本 框 Text2 中。程序运行界面如图所示，VB 代码如下。请回答以下问题：
 
（1）要使程序运行后，窗体 Form1 标题立即自动显示为“数字提取”，可在 (单选，填字 母:

A．Form_Load /

B．Form_Click/

C．Command1_Click）事件过程中添加语句 Form1.Caption="数字 提取"。

（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。 Private Sub Command1_Click()
Dim s As String, ch As String, flag As Boolean
Dim tmp As String, ans As String
s = Text1.Text
s = s + "." 
tmp = "": ans = ""
flag = False
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
tmp =   ①    
flag = True
ElseIf flag = True Then
ans = ans + tmp + ,
②  
flag = False
End If
Next i
Text2.Text = ans End Sub
（3）如图，若删除程序中的语句“s = s + "."”，输入不变，则提取后的数字信息为 。

有序（非降序）数组A有n个元素，用对分查找算法在数组A中查找key值所在的位置，如果有重复的元素，则显示最早出现该key值的位置。相应的VB程序段如下：
key = Val(Text1.Text)
i = 1: j = n
Do While i <= j
m = (i + j) \ 2
If a(m) > key Then
j = m - 1
ElseIf a(m) < key Then
i = m + 1
Else
If ① Then
j = m - 1
Else
Label2.Caption = Str(key) + "的起始位置是" + Str(m)
Exit Do
End If
End If
Loop
If i > j Then
Label2.Caption = "找不到" + Str(key)
End If
要使程序实现上述算法思想，则方框中的语句是

A．a(m - 1) = key

B．a(m) = key

C．m - 1 >= 0 And a(m - 1) = key

D．m - 1 >= 0 And a(m) = key