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

編寫VB程序，實現(xiàn)上述算法．程序功能如下：運行程序時，在列表框List1中顯示數(shù)組a中的原始數(shù)據(jù)；單擊“去重”按鈕（Command1），查找數(shù)組a中的重復(fù)數(shù)據(jù)并刪除，即相同的數(shù)據(jù)僅保留一個，并在列表框List2中輸出去重后的數(shù)組a中的數(shù)據(jù)，同時在標(biāo)簽Label1中顯示刪除的數(shù)據(jù)總個數(shù)，運行效果如第16題圖所示．
實現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯，請改正．
Const maxn=10
Dim a（1To maxn） As Integer
Private Sub Form_Load （　?。?br />'maxn個數(shù)據(jù)存儲在數(shù)組a中，并在列表框List1中顯示
'代碼略
End Sub
Private Sub Command1_Click （　?。?br />Dim i As Integer,n As Integer'n用于存儲當(dāng)前查找的數(shù)組長度
Dim j As Integer,key As Integer'key用于存儲本次查找關(guān)鍵字的數(shù)據(jù)位置
key=1：n=maxn
Do While key＜=n
i=n
Do While  '（1）
i=i-1
Loop
If i=key Then'找到重復(fù)數(shù)據(jù)，刪除；未找到，設(shè)定下一查找關(guān)鍵字
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=“共刪除重復(fù)數(shù)據(jù)：“&    &“個“'（2）
End Sub.