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

A、 Private Sub Checkl_Click(Index As Integer) TeXtl．Text="" For k=0 To 3 If Checkl(k)．Value=1 Then Text1．Text=Text1．Text& Checkl(k)．Caption&" " '双引号中是空格 End If Next k End Sub
B、 Private Sub Checkl Click(Index As Integer) For k=0 To 3 If Checkl(k)．Value=1 Then Text1．Text=Text1．Text& Checkl(k)．Caption＆" " '双引号中是空格 End If Next k End Sub
C、 Pfivme Sub Checkl Click(Index As Integer) Text1．Text="" For k=0 To 3 If Check l(Index)．Value=1 Then Text1．Text=Text1．Text&Check1 (Index)．Caption&" " '双引号中是空格 End If Next k End Sub
D、 Private Sub Checkl_Click(Index As Integer) Text1．Text="" For k=0 To 3 If Checkl(k)．Value=1 Then Text1．Text=Text1．Text&Checkl (k)．Caption&" " '双引号中是空格 Exit For End If Next k End Sub

【正确答案】 A

【答案解析】解析：本题考查复选框控件数组。复选框的Value属性，决定了当前复选框的状态，当Value为1时表示选中复选框。按照题目中的要求，首先清空文本框，接下来对复选框控件数组中的所有元素的Value属性一一筛查，判断是否选中，把选中的复选框控件的Caption属性值连接到文本框的字符串中。