下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是(　　)，文本框Text2中显示的内容是（  ）　
Private Sub Command1_Click( )
Dim i As Integer，c As Integer，n As Integer
c＝0:n＝10
For i＝1 To 10
If n Mod i＝0 Then c＝c+1
Next i
Text1.Text＝Str(n)
Text2.Text＝Str(c)
End Sub

A．10　4

B．3　10

C．4　10

D．10　3

有如下Visual Basic程序段：
　　Dim i As Integer, s As Integer
　　  s ＝ 0
　　  i ＝ 1
n ＝ 5
　　Do While i <＝20
　　  s ＝ s ＋ i ＋ n
　　  i ＝ i * 5
　　Loop
　　该程序段运行后，变量i的值是________，变量s的值为________。

下列程序段的执行结果为:（ ）
 Dim M(10)  as  integer
 For i = 0 To 10
 M(i) = 2*i
 Next i
 Print M(M(3）


A．12

B．6

C．0

D．4

素数是指除了1和本身不能被任何数整除的数。请将3到100间的素数添加到LIST1中。
PRIVATE   SUB    FORMCLICK
FOR  I = 3  TO 　________1
F=0
FOR  J= 2  TO  I-1
IF ________2 THEN
F=1
EXIT  FOR
END   IF
NEXT  J
IF   F=0   THEN  ________3
________4
END  SUB

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

请回答下列问题：
（1）写出VB代码中的方法名____________（只需填一个方法名）；
（2）根据题意，请在划线处填入合适代码；
（3）加框处程序代码有错，请改正。
Const n = 15
Private Sub Command1_Click()
Dim a(1 To n) As Integer  '数组a存放不同颜色袜子的数量，默认值为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 = "能配对的袜子有" + Str(c) + "双"
End Sub