计算机二级
在窗体上有一个名称为Check1的复选框数组(含4个复选框)，还有一个名称为Textl的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中(见图)。下面能实现此功能的事件过程是? 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(k).Ca
题目
在窗体上有一个名称为Check1的复选框数组(含4个复选框)，还有一个名称为Textl的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中(见图)。下面能实现此功能的事件过程是? 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(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 Check1(Index).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 Check1(k).Value = 1 Then Text1.Text = Text1.Text & Check1(k).Caption & " " '双引号中是空格 Exit For End If Next k End Sub?
相似问题和答案
第1题：
设在一个窗体中已设计了一个文本框Text1，一个命令按钮Comd1和一组复选框Check1，并有如下过程，请写出运行的结果。 
在点击命令按钮后，将用户在复选框中已选择的项目（最多6个）拼接在一起，在Text1框中显示，同时清除已选择的项目。
略
第2题：
窗体上有文本框Text1和若干复选框，以下程序的功能是：当复选框Check1选中时，设置文本框Text1上显示的文本字号20。 
1；FontSize
略
第3题：
在考生文件夹中有工程文件sj4．vbp及其窗体文件sj4．frm，该程序是不完整的。 在窗体上有四个复选框，名称分别为Check1、Check2、Check3和Check4，标题分别为“足球”、“篮球”、“羽毛球”和“排球”。一个标签，名称为Label1，还有一个命令按钮，名称为Command1，标题为“选择结果”。要求程序运行后，如果选中某个复选框，当单击“选择结果”命令按钮时，则显示相应的信息。例如，如果选中“足球”和“羽毛球”复选框，单击“选择结果”命令按钮后，在标签上显示“我喜欢的运动是足球羽毛球”，如图8—4所示。
注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“”’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
单击命令按钮触发Click事件，本题程序中主要是判断复选按钮的状态和在标签上显示复选按钮的Caption属性值，判断复选按钮的状态可以通过Value属性来实现。如果复选按钮被选中，则Value值为1，否则Value值为0。把复选按钮的Caption属性值赋给标签的Caption属性即可显示相应的文字。补充后的代码如下：
Privat(Sub Command1 Click
Dim str As String
str="我喜欢的运动是"
If Cheek1．Value Then
str=str+Check1．Caption
Else
str=str
End If
If Cheek2 Value Then
str=str +Check2．Caption
Else
str=str
End If
If Check3．Value Then
str=str+Check3．Caption
Else
str=Str
End If
If Check4．Value Then
str=str+Check4．Caption
Else
str=str
End If
Label1．Caption=str
End Sub
Private Sub Form_Load
Label1．Caption=""
End Sub
单击
按钮运行程序，并按要求保存。
第4题：
在考生文件夹中有一个工程文件execise77.vbp及窗体文件execise77.frm。在名为Form1的窗体上有两个框架，其中一个框架中有两个单选按钮，另一个框架中有两个复选框，窗体上还有一个标题为“确定”的命令按钮和一个初始内容为空的文本框。所有控件已经全部画出。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，则对文本框中的文字做相应的设置，如下图所示。
窗体上的控件已经绘制出，但没有给出主耍程序内容，请编写适当的事件过程，完成上述功能。
注意：
不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击“确定”按钮；必须通过单击窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，按原文件名并在原文件夹中保存修改后的文件。
第5题：
在考生文件夹中有文件sj3．vbp及其窗体文件sj3．frm，该程序是不完整的。窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Check1和Check2，标题分别为“Item1”和“Item2”；一个按钮，标题为“选择”。要求程序运行后，如果Check1和Check2都不选，单击窗体后，则在文本框中什么都不显示；如果只选中Checkl，单击按钮，则在文本框中显示“选中Item1”；如果只选中Check2，然后单击按钮，则在文本框中显示“选中Item2”；如果同时选中Check1和Check2，单击窗体，则在文本框中显示“不能全选”。程序运行时窗体显示如图1—3所示。
注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“”号)，但不能修改其他部分。存盘时不得改变文件和文件名。
根据题意，将两个名称分别为Check1和Check2的复选按钮、一个名称为Text1的文本框和一个名称为Command1的命令按钮放入到窗体中，复选按钮的Caption属性分别为Item1和Item2，Text1的Text属性为空，命令按钮的Caption属性为“选择”。双击Command1进入代码编写窗口，代码如下：
Private hub Command1 Click
If Check1．Value=1 Then 当选中Check1时
If Check2．Value=1 Then选中Check2
Text1．Text="不能全选"
在Text1中显示不能全选
Else 没有选中Check2
Text1．Text="选中Item1"
在Text1中显示选中Item1
End If
Else当没选中Check1时
IfCheck2．Value=1 Then选中Cheek2
Text1．Text="选中Item2"显示选中Item2
E1se
Text1．Text=""不显示
End If
End If
End Sub
单击
按钮运行程序，并按要求保存。第6题：
在窗体上有一个名称为Check1的复选框数组(含4个复选框)，还有一个名称为Text1的文本哐，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中(如图1所示)。下面能实现此功能的事件过程是（ ）。
A) 【解析】本题考查复选框控件数组。复选框的Value属性，决定了当前复选框的状态，当Value为1时表示选中复选框。按照题目中的要求，首先清空文本框，接下来对复选框控件数组中的所有元素的Value属性一一筛查，判断是否选中，把选中的复选框控件的Caption属性值连接到文本框的字符串中。
第7题：
在名为Form1的窗体上绘制一个标签，名为Lab1，标题为“体育生活”；再绘制一个名为Chk1的复选框数组，含3个复选框，它们的Index属性分别为0、1、2，标题依次为“足球”、“篮球”和“排球”，请设置复选框的属性，使其初始状态如下表所示。
注意：
文件必须存放在考生文件夹中，工程文件名为execise109.vbp，窗体文件名为 exeoiSe109.frm。
第8题：
（12）在程序的每个空白处填写一条适当的语句，使程序相应的操作。程序实现的功能是：窗体上有文本框Textl和若干复选框，其中复选框Checkl用于设置文本框Textl显示的文本是否加下划线。Checkl的单击事件过程如下：Private Sub Check() If Then Then.FontUnderline=True ElseIf _____Then Then.FontUnderline=False End If End Sub
【解析】题目要求通过选中复选框Checkl来设置文本框的文本是否加下划线，因此判断条件需要对复选框是否选中进行判断，因此If语句后面应填“Check1.Value=1”语句，Elself后面应填“Check1.Value=0”语句。
第9题：
设窗体上有一个文本框，名称为Textl，程序运行后，要求该文本框只能显示信息，不能接收输入的信息，以下能实现该操作的语句是( )。
A．Textl.MaxLength=0
B．Textl.Enabled=False
C．Textl.Visible=False
D．Textl.Width=0