在窗体上有一个名称为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＆ Check1(k).Caption＆" "
'双引号中是空格
End If
Next k
End Sub
B) Private Sub Check1_Click(Index As Integer)
For k=0 To 3
If Check l(k).Value=1 Then
Text1.Text=Text1.Text＆ Checkl(k)，Caption ＆" "'双引号中是空格
End If
Next k
End Sub
C) Private Sub Check1_Click(Index As Integer)
Text1.Text=" "
For k=0 To 3
If Check1(Index).Value=1 Then
Text1.Text1=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 Check1(k).Value=1 Then
Text1.Text=Text1.Text＆Check1(k).Caption＆" " '双引号中是空格
Exit For
End If
Next k
End Sub
参考答案：A
解析： 复选框的Value属性值决定复选框的选中状态：0为未选；1为选中；2为不可用(即灰色)。根据题意，用For循环逐一检查复选框数组中各元素Check1(k)的Value属性值是否为1，如果是，则把选中的复选框的标题全部显示在文本框中。因每执行一次复选框数组的Click事件过程，系统对所有复选框进行判断，记录了全部选中的复选框的Caption属性值，因此，在赋值前应先清除文本框中原有的内容。