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

A、 Private Sub Check1_Click(Indes As Integer)Text1.Text=""For k=0 To 3If Check1(k).value=1 ThenText1.Text=Text1.Text&Check1(k).Capkion&"""双引号中是空格End IfNext kEnd Sub
B、 Private Sub Check1_Click(Index As Integer)For k=0 To 3If Check1(k).Value=1 ThenText1.Text=Text1.Text&Check1(k).Caption&"" "双引号中是空格End IfNext kEnd Sub
C、 Private Sub Check1_Click(tndex AS Integer)Text1.Text=""For k=0 To 3If Check1(k).Value=1 ThenText1.Text=Text1.Text&Check1(Index).Caption&"" "双引号中是空格End IfNext kEnd Sub
D、 Private Sub Check1_Click(Index As Integer)Text1Text=""For k=0 To 3If Check1(k).Value=1 ThenText1.Text=Text1.Text&Checkl(k). Caption&"" "双引号中是空格Exit ForEnd IfNext kEnd Sub

【正确答案】 A

【答案解析】[解析] B中缺少Text1.Text=""语句，按照图中所示的选择，则Text1中显示的结果为语文、语文、历史，与要求不符。C中Text1.Text=Text1.Text&Check1(Index).Caption&""语句，应将Check1(Index)改为Check1(k)。D中由于存在Exit For语句，只要有一个复选框被选中，程序就会退出循环，而不会将所有选中的复选框后面的文字罗列在文本框中。只有A是符合要求的，故选A。