学进去

筷子颜色配对问题。现有不同颜色的筷子若干（筷子的颜色用数字编号1～10表示），颜色相同的筷子才能组成一双，其中有几根筷子是落单的，现要求找出落单筷子的颜色以及能够配对的筷子数量。编写程序解决该问题，程序运行时，在文本框Text1中依次输入筷子的颜色编号（数据都用逗号分隔开，并以逗号结尾），单击“查找”按钮，在列表框List1中输出落单筷子的颜色编号，在标签Label1中显示能够配对的筷子数量，运行界面如图所示。
                                
实现题中所述功能的 VB程序如下：
Private Sub Cmd1_Click()

Dim a(1 To 10)As Integer

'数组a存放不同颜色筷子的数量,各元素默认初值为0

Dim s As String,ch As String

Dim n As Integer,i As Integer,h As Integer

__________:n=0

For i=1 To Len(s)

If Mid(s,i,1)="," Then
h=Val(ch)
____________
ch=""
Else
ch=ch+Mid(s,i,1)
End If

Next i

For i=1 To 10

If______________Then
Listl.Addltem〞落单筷子的颜色为〞+Str(i)
End If
n=

Next i

Label1.Caption=〞能够配对的筷子有〞+Str(n)+〞双〞

End Sub
请回答下列问题：
（1）由程序代码可知，命令按钮“查找”的对象名是______________。
（2）加框处程序代码有错，应改为______________。
（3）请在划线处填入合适代码。
（4）运行该程序，若文本框Text1中输入的内容是“2，5，2，3，4，3，6，3，”，单击“查找”按钮，标签Label1中显示的内容是__________。