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

读程序，写出下列程序的输出结果（共6题，每题只有一个正确答案，每题2分，共12分）
s = 1
For j =" 10" To -10 Step -2
s =" s" * j
Next j
MsgBox (s)
上述程序段中s =" s*j" 的执行次数是(    )

A．20

B．10

C．11

D．21

该流程图描述的是求实数a绝对值的算法。

在流程图的空白处应填入_____________。

数组d中的数据存放情况如下表，以下流程图的功能是（    ）  。

d(1)	d(2)	d(3)	d(4)	d(5)	d(6)
15	10	33	11	71	9

 

A．在数组d中顺序查找10，找遍所有数据后，若找到输出”Y”，若没找到则输出”N”。

B．在数组d中顺序查找10，一旦找到则结束查找并输出”Y”；若找遍所有数据后仍没找到则输出”N”。

C．在数组d中顺序查找10，一旦找到则输出其存储位置

D．在数组d中顺序查找、统计10的个数并输出

数组a中有20个正整数，以降序排序。在文本框Text1中输入一个正整数data，寻找数组中是否存在两个元素之差等于给定的数据。若是则输出这两个数（有多对数满足条件，只输出最先找到的数对）。否则输出“not find”。实现此问题的算法程序如下，加框处代码有误，请改正。
①________________________
②________________________
③________________________
Private Sub Command1_Click()
Const n = 20
Dim a(20) As Integer
Dim data As Integer, left As Integer, right As Integer, m As Integer
Dim f As Boolean
f = True
data = Val(Text1.Text)
' 随机产生符合题意的数组a中各元素并按降序排序
For i = 1 To n - 1

①

right = n

Do While ②

m = (left + right) \ 2
If a(i) - a(m) > data Then
right = m - 1
ElseIf a(i) - a(m) < data Then
left = m + 1
Else
Text2.Text = a(i) & a(m)
③
End If
Loop
Next i
If f=True Then Text2.Text = "not find"
End Sub