编写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

一个程序功能如下：单击开始按钮，每隔1秒产生一个1,100的随机数，赋给变量n，对产生的随机数进行判断，如果是偶数就显示在列表框1中，如果是奇数显示在列表框2中。当随机数达到20个时，停止。Timer控件的Enabled属性设置为False，即程序刚运行时不起作用。

程序代码如下：
Dim m As Integer  'm 为模块级变量，用于记录随机数个数
Private Sub Command1_Click()
Randomize
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Dim n As Integer
①
If ②     Then  
List1.AddItem n
Else
List2.AddItem n  
End If
m =" m" + 1  
If m =" 20" Then ③  
End Sub
在程序①、②、③划线处，填入适当的语句或表达式，把程序补充完整:
程序中①划线处应填入___________________。
程序中②划线处应填入___________________。
程序中③划线处应填入___________________。

（加试题）某对分查找算法的 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

该程序的界面如右图所示：
如果要把窗口标题处的“Form1”修改
为“计算团购优惠”，应该选择以下哪个语句？（   ）

A．form1.text=”计算团购优惠”	B．form1.caption=”计算团购优惠”
C．form1.font=”计算团购优惠”	D．form1.coption=”计算团购优惠”

某对分查找算法的VB 程序段如下:
i=l:j=9:n=0
key=Val(Text1,Text)
Do While i<=j
n=n+1
m=Fix((i+j) / 2)
If key=d(m) Then Exit Do    ’Exit Do 表示退出循环
If key<d(m) Then j=m-1 Else i=m+1
Loop
数组元素d(1)到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