查找并刪除重復數據的算法是依次以數組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

。