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

某对分查找算法的VB程序段如下: 
Dim a(l to 6)As Integer
i=1: j=6: n=0
key= Val(Textl. Text)
Do While i<=j
n=n+1
m=(i+j)\2
If key=a(m) Then Exit Do ＇Exit do为退出do循环
If key<a(m) Then
j=m-1
Else
i=m+1
LOOP
数组元素a(1)到a(6)的值依次为“1921，1927，1949，1998，2008，2019”。在文本框Text1中输入“1998”后运行该程序，则以上程序段运行结束后，下列说法正确的是（   ）

A．变量i的值为3

B．变量j的值为5

C．变量m的值为3

D．变量n的值为3

用对分查找法从数列3，6，7，10，12，16，25，30，75中找到数据10的最少查找次数是（  ）

A．2

B．4

C．3

D．7

数组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

礼品分配问题：某班得到一件精美礼品，由于只有一件礼品，大家决定用下面方法来分配该礼品：n个同学围成一圈，按顺序从1到n进行编号。从第1个人开始报数，报到m的人退出，下一个人继续从1开始报数，报到m的人出圈┈┈，如此依次进行，直到留下的最后一个人得到该礼品。程序运行界面如图所示，单击“开始”按钮，将输出退出圈子的同学编号以及最后获得奖品的编号。

实现上述功能的VB程序如下，请回答下列问题。
(1)当班级总人数n＝15，m＝5的时候，获得礼品的同学编号是__________(填写数字)。
(2)在划线处填入合适的代码。
Private Sub Command1_Click()
Dim i As Integer, n As Integer, m As Integer
Dim num As Integer, t As Integer
Dim a(1 To 100) As Boolean
n = Val(Text1.Text)
m =Val(Text2.Text)
For i = 1 To n

a(i) = True

Next i
_____
Do While t > 1
For i = 1 To n
If a(i) = True Then _____
If num = m Then
_____
t = t -1
num = 0
Text3.Text = Text3.Text +Str(i)
End If
Next i
Loop
For i = 1 To n
If a(i)= TrueThen Label2.Caption = "获得礼品同学编号:" + Str(i)
Next i
End Sub