在我国古代《孙子算经》中曾经提出这样一个问题，原文是这样的：“今有物，不知其数，三三数之，剩二；五五数之，剩三；七七数之，剩二；问物几何？”试用枚举算法来解决这一个问题。现分析如下，所寻找之数为满足如下条件的自然数：以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）程序中①划线处应填入___________,程序中②处一句话中有错误，应更改为______________。

7位学生的身高(单位:cm)从高到低依次为:178,177,175,172,170,165,162｡用对分查找法找到178 的过程中,依次被访问到的数据是(  )

A．178

B．172,175,178

C．172,177,178

D．172,175,177,178

设计VB程序，该程序将输入的字符串中小写字母转换成大写字母后输出。在文本框Text1中输入一串字符（数字、字母均可），单击“转换”按钮Command1，在标签Label2中输出结果。（提示：Asc（x）：将字符x转换为ASCII码值；Chr（x）：将ASCII代码x转换为所对应的字符）该程序的设计界面如图所示,请根据算法将下列程序补充完整。

Private Sub Command1_Click()
Dim ch As String, s As String
Dim i As Integer, j As Integer
ch = Text1.Text
For i =" 1" To   （1） 
j =" Asc(Mid(ch," i, 1))
If j > 96 And j < 123 Then
s =" s" + Chr(j - 32)
Else
s =" s" + Chr(j)
End If
Next
    （2）    
End Sub

在以下数组a中，采用对分查找思想查找数据"all"，则以下说法正确的是(    )。

a(1)	a(2)	a(3)	a(4)	a(5)	a(6)	a(7)
all	bro	car	due	eve	fre	geo

 

A．只需查找1次就能找到数据"all"

B．第2次查找的范围是a(1)——a(4)

C．查找过程中依次被访问到的数据是"due"、"bro"、"all"

D．该数组中存放的都是字符型数据，无法使用对分查找

某对分査找算法的VB程序段如下：
i= 1 ： j =9 ： n =0
key=Val( Textl.Text)
Do While i<= j

N=n+1

M=Fix((i + j) / 2)

If key = d(m) Then Exit Do

If key<d(m) Then j= m - 1 Else i=m+1

Loop
数组元素d(l)到d（9）的值依次为“7，12,18,25,39,58,61，72，86”。若该程序段运行结束后，n的值为2，则key的值是（   ）

A．39	B．18或61
C．18或72	D．12或61