在窗体上有一个名称为Check1的复选框数组(含4个复选框),还有一个名称为Text1的文本框,初始内容为空.程序运行时,单击任何复选框,则把所有选中的复选框后面的文字罗列在文本框中.下面能
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/30 11:20:17
在窗体上有一个名称为Check1的复选框数组(含4个复选框),还有一个名称为Text1的文本框,初始内容为空.程序运行时,单击任何复选框,则把所有选中的复选框后面的文字罗列在文本框中.下面能
在窗体上有一个名称为Check1的复选框数组(含4个复选框),还有一个名称为Text1的文本框,初始内容为空.程序运行时,单击任何复选框,则把所有选中的复选框后面的文字罗列在文本框中.下面能实现此功能的事件过程是.
A: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(Index).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 Check1(k).value = 1 Then
Text1.Text = Text1.Text & Check1(k).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
在窗体上有一个名称为Check1的复选框数组(含4个复选框),还有一个名称为Text1的文本框,初始内容为空.程序运行时,单击任何复选框,则把所有选中的复选框后面的文字罗列在文本框中.下面能
C