查找并刪除重復數據的算法是基于順序查找的優化，主要思路是把待查數據的起點元素設置成查找關鍵字，然后從后往前查找，通過結束時停留的數據位置來判斷查找結果（即結束時若停留在數據序列的起點，表示數據序列中無重復數據；否則，存在重復數據，刪除該數據后繼續查找）．

編寫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.