在窗体上有一个名称为Check1的复选框数组(含4个复选框)，还有一

问题单项选择题

在窗体上有一个名称为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

答案

参考答案：A

解析： Text1.Text表示文本框的文本内容，Check1(k).value=1表示复选框被选中，For循环遍历所有复选框，若Check1(k).value＝1。则Text1.Text＝Text1.Text ＆ Check1(k).Caption ＆" "，将Check1(k)的Caption即复选框后的文字添加到Text1中，每次添加文字后文字之间都由空格隔开。