在窗体上有一个名称为Check1的复选框数组(含4个复选框),还有一个名称为Text1的文本框,初始内容为空.程序运行时
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/06 20:12:43
在窗体上有一个名称为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
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
C
在窗体上有一个名称为Check1的复选框数组(含4个复选框),还有一个名称为Text1的文本框,初始内容为空.程序运行时
VB问题 求大神解答题目窗体上有两个复选框,名称分别为chk1,chk2,标题分别为“能被5整除”和“能被6整除”,一个
在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name
设计一个应用程序,其界面如图4.1所示.要求定义一个判断奇偶数的自定义函数过程,程序运行时,在文本框控件Text1中输入
如何用vba在a1:a10每个单元格中生成一个复选框
窗体上有两个文本框和一个按钮
用vb设计一个随即抽取幸运数字的程序,单击"开始"按钮,在文本框中随机产生7为数字,并不断滚动.单击"暂停"按钮,文本框
xiexie在窗体上画两个文本框和一个命令按扭,然后程序如下:Private Sub Command1_Click()D
货币名称为“元”的国家有哪些,要天N多个,填一个算一个
设计栏目名称某班要举办以"抗震救灾"为内容的手抄报,其中一个版面为材料内容,请你为此版面设计一个名称.(不超过6个字)急
VB编写一个程序,实现在文本框内输入一个长度值,单位为“厘米”,点击名利按钮转化为X米X分米X厘米的形式
定义一个长度为20的整型数组,并初始示数组中的所有元素,每行5个元素,并求最大值及其下标,最小值及其下标,平均值