查找并删除重复数据的算法是基于顺序查找的优化，主要思路是把待查数据的起点元素设置成查找关键字，然后从后往前查找，通过结束时停留的数据位置来判断查找结果（即结束时若停留在数据序列的起点，表示数据序列中无重复数据；否则，存在重复数据，删除该数据后继续查找）．

编写VB程序，实现上述算法．程序功能如下：运行程序时，在列表框List1中显示数组a中的原始数据；单击“去重”按钮（Command1），查找数组a中的重复数据并删除，即相同的数据仅保留一个，并在列表框List2中输出去重后的数组a中的数据，同时在标签Label1中显示删除的数据总个数，运行效果如第16题图所示．
实现上述功能的VB代码如下，但加框处代码有错，请改正．
Const maxn=10
Dim a（1To 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  '（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=1To n
List2．AddItem a（i）
Next i
Label1．Caption=“共删除重复数据：“&    &“个“'（2）
End Sub.