襪子顏色配對(duì)問(wèn)題?，F(xiàn)有不同顏色的襪子若干（襪子的顏色用數(shù)字編號(hào)1～15表示），顏色相同的襪子才能組成一雙，其中有幾只襪子是落單的，現(xiàn)要求找出落單襪子的顏色以及能夠配對(duì)的襪子數(shù)量。編寫程序解決該問(wèn)題，程序運(yùn)行時(shí)，在文本框Text1中依次輸入襪子的顏色編號(hào)（數(shù)據(jù)都用逗號(hào)分隔并以逗號(hào)結(jié)尾），單擊“查找”按鈕，在列表框List1中輸出落單襪子的顏色編號(hào)，在標(biāo)簽label1中現(xiàn)實(shí)能配對(duì)的襪子數(shù)量。運(yùn)行界面如圖所示，實(shí)現(xiàn)上述功能的VB程序如下。

請(qǐng)回答下列問(wèn)題：
（1）寫出VB代碼中的方法名

AddItem

AddItem

（只需填一個(gè)方法名）；
（2）根據(jù)題意，請(qǐng)?jiān)跈M線處填入合適代碼；
（3）加框處程序代碼有錯(cuò)，請(qǐng)改正。
Const n=15
Private Sub Command1_Click （　?。?br />Dim a（1 To n） As Integer'數(shù)組a存放不同顏色襪子的數(shù)量，默認(rèn)值為0
Dim s As String,ch As String
Dim c As Integer,i As Integer,t As Integer
List1．Clear
s=Text1．Text
t=0：c=0：i=1
Do While i＜=Len（s）
ch=Mid（s,i,1）
If ch＞=“0“And ch＜=″9″Then
t=t*10+Val（ch）
Else
a（t）=

①

①

t=0
End If
i=i+1
Loop
For i=1 To n
If

②

②

 Then List1．AddItem″落單襪子的顏色為″+Str（i）
c=
Next i
Label1．Caption=″能配對(duì)的襪子有″+Str（c）+″雙″
End Sub