查找并删除重复数据的算法是基于顺序查找的优化，主要思路是把待查数据的起点元素设置成查找关键字，然后从后往前查找，通过结束时停留的数据位置来判断查找结果（即结束时若停留在数据序列的起点，表示数据序列中无重复数据；否则，存在重复数据，删除该数据后继续查找）。
编写VB程序，实现上述算法。程序功能如下：运行程序时，在列表框List1中显示数组a中的原始数据；单击“去重”按钮（Command1），查找数组a中的重复数据并删除，即相同的数据仅保留一个，并在列表框List2中输出去重后的数组a中的数据，同时在标签Label1中显示删除的数据总个数，运行效果如图所示。

实现上述功能的VB代码如下，但加框处代码有错，请改正。
Const maxn = 10
Dim a(1 To maxn) As Integer
Private Sub Form_Load()
' maxn个数据存储在数组a中，并在列表框List1中显示
' 代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, n As Integer 'n用于存储当前查找的数组长度
Dim j As Integer, key As Integer   'key用于存储本次查找关键字的数据位置
key = 1: n = maxn
Do While key <= n

i = n

Do While  a(i) <> a(1)   '（1）

i = i - 1
Loop
If i = key Then   '找到重复数据，删除；未找到，设定下一查找关键字
key = key + 1
Else
For j = i To n - 1
a(j) = a(j + 1)
Next j
n = n - 1
End If
Loop
For i = 1 To n
List2.AddItem a(i)
Next i
Label1.Caption = "共删除重复数据：" &  Str(n)  & " 个" '（2）
End Sub

某查找算法的VB程序段如下：
k= Val(Text1.Text)
i=1:j=6:Label1.Caption="":f=False
Do While i<=j And Not f
m=(i+j)\2
If a(m)=k Then f= True
If a(m)>a(i) Then

If a(i)<=k And k<a(m)Then j=m-1 Else i=i+1

Else

If a(m)<k And k<=a(j)Then i=i+1 Else j=j-1

End If
Label1 Caption=Label1 Caption+ Str(a(m))
Loop
数组元素a(1)到a(6)的值依次为“58，66，72，24，35，40”，在文本框Text1中输人的值为35，执行该程序段，标签 Label1中显示的值是（   ）

A．72  35	B．24  35
C．72  24  35	D．72  24  24  35

某对分查找算法的VB程序如下：
c=0:i=1:j=8
key=Val(Text1.Text)
f= False
Do While i<=j And Not f
m=Fix((i+j)/2+0.5)
c=c+1
If key=d(m) Then

f= True

Else If key>d(m) Then

j=m-1

Else

i=m+1

End If
Loop
数组元素d(1)到d(8)的值依次为“97，79，68，48，35，23，18，10”，若运行该程序段后，c的值为2，则文本框Text1中输入的值是（   ）

A．68或18

B．68或23

C．79或23

D．79或18

小明学了排序和查找算法后，编写了一个处理成绩的程序。单击“获取成绩”按钮得到  n 个非降序数保存在数组 a(1)—a(n)中，并显示在 List1 中。在文本框 Text1 中输入成绩 key，单击“查找”按钮，则在标签 label1 中显示共有多少位同学的成绩大于等于该成绩。

（1）加框 1 处的程序代码有错，应改为____。
（2）请在划线处填入合适代码：
Dim a(1000) As Integer, n As Integer Private Sub Command1_Click()
'从数据库获取 n 个成绩存储在 a(1)---a(n)组中，代码略 For i = 2 To n    ‘排序
tmp = a(i) j = 1
Do While tmp > = a(j) j = j + 1
If    __________Then Exit Do Loop
For k = i To j + 1 　Step -1 　a(k) = a(k - 1)
Next k
'改错（１）
Next i
For i = 1 To n List1.AddItem Str(a(i))
Next i
End Sub
Private Sub Command2_Click()
Dim key As Integer, i As Integer, j As Integer, m As Integer key = Val(Text1.Text)
i = 1: j = n
Do While i <= j
m = (i + j) \ 2
If　_________  Then j = m - 1
Else
i = m + 1 End If
Loop
Label1.Caption = "共有" +_________+ "位同学大于等于该成绩。"
End Sub

依照中华人民共和国《机动车驾驶员驾车时血液中酒精含量规定》，血液中酒精含量大于或等0.3mg/ml 驾驶机动车的属酒后驾车；大于或等于1.0mg/ml 驾驶机动车的属醉酒驾车。设计一个程序，帮助交警判定某人属酒后驾车、醉酒驾车还是没有违法。
解决此问题的流程图如图所示，
 
（1）该算法属于  （填：顺序/选择/循环）结构
（2）要在窗体Form1的标题栏内显示字符串“酒精测试”，需要更改的是 属性（填：name/caption/text）

（3）根据流程图编写的VB程序如下：
Private Sub Command1_Click( )
Dim x As Single
x =  Val(Text1.Text)  
If    ①   Then
Label2.Caption = "你属于醉酒驾车!"
 ②  x >=" 0.3" Then
Label2.Caption = "你属于酒后驾车!"
Else 
  ③  
End If   
End Sub
则划线处填入的语句为①  ②     ③ 。