在窗体上有一个名称为Check1的复选框数组(含4个复选框)，还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的方字罗列在文本框中(如下图所示)。下面能实现此功能的事件过程是( )
A．Private Sub Check1_Click(Index As Integer)
Text1.Text=" "
For k=0 To 3
If Checkl(k).value=1 Then
Text1.Text=Text1.Text ＆ Cheek1(k).Caption ＆" "双引号中是空格
End If
Next k
End Sub
B．Private Sub Check1_Click(Index As Integer)
For k=0 To 3
If Check1(k).Value=1 Then
Text1.Text=Text1.Text ＆ Check1(k).Caption ＆" "双引号中是空格
End If
Next k
End Sub
C．Private Sub Check1_Click(Index As Integer)
Text1.Text=" "
For k=0 To 3
If Checkl(k).Value=1 Then
Text1.Text=Text1.Text ＆ Check1(Index).Caption ＆" "双引号中是空格
End If
Next k
End Sub
D．Private Sub Check1_Click(Index As Integer)
Text1.Text=" "
For k=0 To 3
If Cheekl(k).Value=1 Then
Text1.Text=Text1.Text ＆ Check1(k).Caption ＆ " "双引号中是空格
Exit For
End If
Next k
End Sub