有如下程序段：
s = "defghiabc"
key = Text1.Text
i = 1: j = Len(s)
Do While i <= j

m = (i + j) \ 2

c = Mid(s, m, 1)

If c = key Then Exit Do

If Mid(s, i, 1) < c Then

If key >= Mid(s, i, 1) And key < c Then j = m - 1 Else i = m + 1

Else

If key > c And key <= Mid(s, j, 1) Then i = m + 1 Else j = m - 1

End If

ans = ans + Str(m)

Loop
运行程序后，若在文本框 Text1 中输入字符"b"，则变量 ans 的值是（）

A．5

B．5 7 8

C．5 3

D．5 7

   在我国古代《孙子算经》中曾经提出这样一个问题，原文是这样的：“今有物，不知其数，三三数之，剩二；五五数之，剩三；七七数之，剩二；问物几何？”试用枚举算法来解决这一个问题。现分析如下，所寻找之数为满足如下条件的自然数：以3除余2，以5除余3，以7除余2。程序将从自然数1开始依次寻找，逐一判断某一自然数是否满足全部条件，直至在指定范围内找到满足条件的所有自然数。程序代码如下，请补充完整。

Private Sub Command1_Click()
Dim p As Integer    'sum 用来统计符合条件的自然数个数'
Dim n As Integer
Dim max As Integer   '指定查找范围的最大自然数
List1.Clear
p = 0
max = Val(Text1.Text)   'Text1文本框中输入
n = 0
Do While n <= max
n = n + 1    '从自然数1开始不断往上寻找
If ①   Then
List1.AddItem Str(n)    '找到后在List1中显示结果
p=p+1
End If
Loop
List1.AddItem ("共计" + Str(n) + "个")   ②
End Sub
应用程序界面设计时，为添加“ Text1”对象，应使用下图图所示的“控件工具箱”中的_________（填写相应编号），为了让文本框中的内容没有输入前显示为空，则可将_________属性值设置为空。

（2）程序中①划线处应填入___________,程序中②处一句话中有错误，应更改为______________。

（加试题）使用VB程序研究“回文素数在素数表中的位置”，程序运行界面如下图所示。程序将10000以内的全部素数按顺序保存到数组a中，在文本框中输入需要查找的回文数，单击“查找”按钮command1，在标签label1中显示该回文素数在全部素数中的位置。

实现上述功能的程序如下，加框处的代码有错，请改正。
Dim a(1 To 10000) As Integer
Dim n As Integer
Private Sub Form_Load()
‘将1000以内的素数从小到大依次存入数组a中
‘将素数的个数存入变量n中
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, mid As Integer
Dim key As Integer, flag As Boolean
key = Val(Text1.Text)
If key > 10000 Or Not hws(key) Then
MsgBox "输入的数据不是10000以内的回文数"
Else
i = 1   :   j = n
flag = False
Do While flag = False   
mid = (i + j) \ 2
If key > a(mid) Then
i = mid + 1
ElseIf key < a(mid) Then
j = mid - 1
Else
flag = True
End If
Loop
If Not flag Then
Label1.Caption = "该回文数不是素数"
Else
Label1.Caption = "回文素数" + Str(key) + "是第" + Str(mid) + "个素数"
End If
End If
End Sub
‘自定义函数 hws（y）用于判断y是否是回文数
Function hws(y As Integer) As Boolean
Dim x As Integer, k As Integer
x = 0: k = y
hws = True
Do While k > 0
x = x + k Mod 10
k = k \ 10
Loop
If x <> y Then hws = False
End Function

（加试题）某对分查找算法的 VB 程序段如下：
Key = val(text1.text) 
N=0
i = 1: j = 7
flag = False
Do While i <= j And flag = False
n = n + 1
m = Fix((i + j) / 2)
If a(m) = Key Then flag = True
If Key < a(m) Then i = m + 1 Else j = m – 1  

Loop

If flag = True Then
Text2.Text = "在第" & Str(m) & "个，"
Else
Text2.Text = "未找到，"
End If
数组元素 a(1)到 a(7)的值依次为“89，72，68，45，23，19，17”。文本框 Text1 中输入 17，执 行该程序段后，下列变量的值不．正．确．的是（   ）

A．n=2

B．m=7

C．i=7

D．j=6

关于查找，下列叙述正确的是（  ）

A．顺序查找就是按照从大到小的顺序逐一查找

B．二分查找就是按照从大到小顺序逐一查找

C．顺序查找一定比二分查找搜索速度慢

D．二分查找要求数据是有序的