查找并刪除重復(fù)數(shù)據(jù)的算法是依次以數(shù)組a中每個(gè)元素作為關(guān)鍵字進(jìn)行從前往后查找，如果有重復(fù)，刪除該數(shù)據(jù)后繼續(xù)查找。例如，第一次將a（1）作為關(guān)鍵字，從a（2）到a（10）進(jìn)行逐個(gè)查找，如果和a（1）相同，則刪除該數(shù)據(jù)，然后繼續(xù)查找。編寫VB程序，程序運(yùn)行時(shí)，在列表List1中顯示數(shù)組a,單擊“去除重復(fù)”按鈕 Command1實(shí)現(xiàn)如下功能，在列表框Lst2中輸出數(shù)組a去重后的數(shù)據(jù)，同時(shí)在標(biāo)簽 Label1中顯示刪除的數(shù)據(jù)的總
個(gè)數(shù)，運(yùn)行效果如圖所示：

（1）要使程序運(yùn)行時(shí)，窗體顯示“刪除重復(fù)數(shù)據(jù)”，則應(yīng)該修改窗體的

Caption

Caption

屬性。
（2）程序代碼中加框處有錯(cuò)，請(qǐng)更正。
（3）請(qǐng)將劃線部分補(bǔ)充完整：
Const maxn=10
Dim a（1 To maxn） As Integer
Private Sub Form_Load（　　）
'生成數(shù)組a顯示在List1中'
End Sub
Private Sub Command1_Click（　?。?br />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=″共刪除數(shù)據(jù)″+①+″個(gè)″
End Sub
（4）當(dāng)數(shù)組a中的值依次為“1237816687”，單擊按鈕 command1后，標(biāo)簽Labe1上顯示的內(nèi)容是

4

4

。