查找并删除重复数据的算法是依次以数组a中每个元素作为关键字进行从前往后查找，如果有重复，删除该数据后继续查找。例如，第一次将a（1）作为关键字，从a（2）到a（10）进行逐个查找，如果和a（1）相同，则删除该数据，然后继续查找。编写VB程序，程序运行时，在列表List1中显示数组a,单击“去除重复”按钮 Command1实现如下功能，在列表框Lst2中输出数组a去重后的数据，同时在标签 Label1中显示删除的数据的总
个数，运行效果如图所示：

（1）要使程序运行时，窗体显示“删除重复数据”，则应该修改窗体的

Caption

Caption

属性。
（2）程序代码中加框处有错，请更正。
（3）请将划线部分补充完整：
Const maxn=10
Dim a（1 To maxn） As Integer
Private Sub Form_Load（　　）
'生成数组a显示在List1中'
End Sub
Private Sub Command1_Click（　　）
Dim i As Integer,j As Integer,n As Integer,key As Integer
key=1：n=maxn
Do While key＜=n
i key+1
Do While i＜=n
If a（i）＜＞a（key）Then
i=i+1
Else
For j=i To n-1

a（j-1）=a（j）

Next j
n=n-1
End If
Loop
key=key+1
Loop
For i=1 To n
List2．AddItem Str（a（ i））
Next i
Label1．Caption=″共删除数据″+①+″个″
End Sub
（4）当数组a中的值依次为“1237816687”，单击按钮 command1后，标签Labe1上显示的内容是

4

4

。