单选题

在窗体上有一个名称为Check1的复选框数组（含4个复选框），还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的方字罗列在文本框中（见图）。下面能实现此功能的事件过程是（ ）。

Question

A. Private Sub Check1＿Click（Index As Integer）
Text1．Text ＝＂＂
For k ＝0To 3
If Check1（k）．value ＝1Then
Text1．Text ＝Text1．Text ＆Check1（k）．Caption ＆＂＂双引号中是空格 End If Next k
End Sub

B. Private Sub Check1＿Click（Index As Integer）
For k ＝0To 3
If Check1（k）．Value ＝1Then
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 ＝0To 3 If Check1（k）．Value ＝1Then
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 ＝0To 3
If Check1（k）．Value ＝1Then
Text1．Text ＝Text1．Text ＆Check1（k）．Caption ＆＂＂双引号中是空格
Exit For
End If
Next k
End Sub