编写“提取数字”程序，实现如下功能：在文本框Text1中输入文本信息，点击“提取”按钮Command1，将文本信息中的数字以“，”间隔输出到文本框Text2中。程序运行界面如图所示。

（1）观察界面，程序中未使用到的控件是_____（填字母：

A．/

B．/

C．/

D．  ）

（2）根据题意，请将划线处代码补充完整。

Private Sub Command1_Click()

  Dim zf As String, tmp As String
Dim s As String, i As Integer, ch As String
__________________
tmp = ""
s = ""
For i = 1 To Len(zf)
ch = Mid(zf, i, 1)
If ch >= "0" And ch <= "9" Then
_______________
ElseIf tmp <> "" Then
s = s + tmp + ,
tmp = ""
End If
Next i

Text2.Text = s

End Sub

（3）当输入的文本信息如图所示，若删除加框代码，则文本框Text2中显示的内容为______。

杭州市民卡是由杭州市人民政府授权发放给市民用于办理个人相关事务和享受公共服务的集成电路卡（IC卡），具有信息储存、身份识别、电子支付等功能。每位市民卡的卡号是唯一的，卡内会记录每位市民的姓名、住址、金额等信息。
假设共有1000个市民，市民的相关信息都存储在“information.accdb”的data表中，查询程序界面如图所示。工作人员在文本框Text1中输入卡号，单击“开始查询”按钮，如果找到，就在Label1中显示卡内市民姓名和卡内余额；否则显示“查无此人”。请按要求将下列程序补充完整。

Private Sub command1_click()
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
Dim strSQL As String
Dim a,b as string ‘分别定义姓名、余额
Dim n as integer
conn.ConnectionString = "Provider="Microsoft.ACE.OLEDB.12.0;Data" Source=" + App.Path + "\information.accdb" '打开到数据库的链接
conn.Open
strSQL ="select xh,xm from data where '卡号=&(Text1.Text) & '" '设置查询的SQL语句
Set rs.ActiveConnection = conn    '设置rs的ActiveConnection属性，指定与其关联的数据库链接
rs.Open strSQL   '打开记录集，将从表information中读取的结果保存到记录集rs中
Label1.Caption = ""
n=0
Do while not rs.EOF
①
a=rs.Fields("姓名")
b=rs.Fields("余额")
rs.movenext
loop
rs.Close
conn.close
set rs=nothing
set conn=nothing
②
if n="0" then Label1.caption="查无此人"
End Sub
（1）程序中①划线处应填入___________________。
（2）程序中②划线处应填入___________________。

编写VB程序，实现如下功能：在文本框Text1中输入一个整数，单击“查找删除”按钮Command1，采用对分查找法在数组A(从小到大排列，并显示在标签Label1中)中查找该数。若找到，则从数组A中删除该数(该数后面的数组元素都前移一位)，并在标签Label2中显示删除后的结果(运行效果如图所示)；否则，在标签Label2中显示“该数没有找到”。

实现上述功能的VB代码如下，但加框处代码有错，请改正。
Dim A(1 To 10) As Integer ’用于保存10个按从小到大顺序排列的整数
’Form_Load事件过程产生10个整数，按升序保存在数组A中，并在标签Label1中显示Private Sub Form_Load()
’代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer，j As Integer，m As Integer，k As Integer
Dim x As Integer，f As Boolean  ’变量f用于标记是否在数组中找到x
x＝Val(Text1.Text)
i＝1：j＝10
f＝False
Do While(i＜＝j)And (f＝False)
m＝Int((i＋j)/2)
If A(m)＝x Then f＝True
If Then i＝m＋1 Else j＝m－1’(1)
Loop
If f＝True Then
For k＝m To 9
’(2)
Next k
Label2.Caption＝“”
For k＝1 To 9
Label2.Caption＝Label2.Caption＋Str(A(k))＋“”
Next k
Else
Label2.Caption＝“该数没有找到”
End If
End Sub

以下算法中，需要通过多重循环一一列举出解决问题的所有可能解，并在逐一列举的过程中，检验每个可能解是否是问题的真正解；而需要从实际问题中归纳出数学表达式，就此求出解；这两个算法分别是（ ）

A．穷举法、公式法	B．循环法、递归法
C．查找法、函数法	D．枚举法、解析法

某对分查找算法的VB程序如下：
c=0:i=1:j=8
key=Val(Text1.Text)
f= False
Do While i<=j And Not f
m=Fix((i+j)/2+0.5)
c=c+1
If key=d(m) Then

f= True

Else If key>d(m) Then

j=m-1

Else

i=m+1

End If
Loop
数组元素d(1)到d(8)的值依次为“97，79，68，48，35，23，18，10”，若运行该程序段后，c的值为2，则文本框Text1中输入的值是（   ）

A．68或18

B．68或23

C．79或23

D．79或18