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

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


相关考题:

设窗体上有一个文本框,名称为Textl,程序运行后,要求该文本框只能显示信息,不能接收输入的信息,以下能实现该操作的语句是( )。A.Textl.MaxLength=0B.Textl.Enabled=FalseC.Textl.Visible=FalseD.Textl.Width=0

(12)在程序的每个空白处填写一条适当的语句,使程序相应的操作。程序实现的功能是:窗体上有文本框Textl和若干复选框,其中复选框Checkl用于设置文本框Textl显示的文本是否加下划线。Checkl的单击事件过程如下:Private Sub Check() If Then Then.FontUnderline=True ElseIf _____Then Then.FontUnderline=False End If End Sub

在名为Form1的窗体上绘制一个标签,名为Lab1,标题为“体育生活”;再绘制一个名为Chk1的复选框数组,含3个复选框,它们的Index属性分别为0、1、2,标题依次为“足球”、“篮球”和“排球”,请设置复选框的属性,使其初始状态如下表所示。注意:文件必须存放在考生文件夹中,工程文件名为execise109.vbp,窗体文件名为 exeoiSe109.frm。

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

在考生文件夹中有文件sj3.vbp及其窗体文件sj3.frm,该程序是不完整的。窗体上有一个名称为Text1的文本框;两个复选框,名称分别为Check1和Check2,标题分别为“Item1”和“Item2”;一个按钮,标题为“选择”。要求程序运行后,如果Check1和Check2都不选,单击窗体后,则在文本框中什么都不显示;如果只选中Checkl,单击按钮,则在文本框中显示“选中Item1”;如果只选中Check2,然后单击按钮,则在文本框中显示“选中Item2”;如果同时选中Check1和Check2,单击窗体,则在文本框中显示“不能全选”。程序运行时窗体显示如图1—3所示。注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“”号),但不能修改其他部分。存盘时不得改变文件和文件名。

在考生文件夹中有一个工程文件execise77.vbp及窗体文件execise77.frm。在名为Form1的窗体上有两个框架,其中一个框架中有两个单选按钮,另一个框架中有两个复选框,窗体上还有一个标题为“确定”的命令按钮和一个初始内容为空的文本框。所有控件已经全部画出。程序的功能是:在运行时,如果选中一个单选按钮和一个或两个复选框,则对文本框中的文字做相应的设置,如下图所示。窗体上的控件已经绘制出,但没有给出主耍程序内容,请编写适当的事件过程,完成上述功能。注意:不能修改已经给出的程序部分和已有的控件;在结束程序运行之前,必须选中一个单选按钮和至少一个复选框,并单击“确定”按钮;必须通过单击窗体右上角的“关闭”按钮结束程序,否则无成绩。最后,按原文件名并在原文件夹中保存修改后的文件。

在考生文件夹中有工程文件sj4.vbp及其窗体文件sj4.frm,该程序是不完整的。 在窗体上有四个复选框,名称分别为Check1、Check2、Check3和Check4,标题分别为“足球”、“篮球”、“羽毛球”和“排球”。一个标签,名称为Label1,还有一个命令按钮,名称为Command1,标题为“选择结果”。要求程序运行后,如果选中某个复选框,当单击“选择结果”命令按钮时,则显示相应的信息。例如,如果选中“足球”和“羽毛球”复选框,单击“选择结果”命令按钮后,在标签上显示“我喜欢的运动是足球羽毛球”,如图8—4所示。注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“”’号),但不能修改其他部分。存盘时不得改变文件名和文件夹。

窗体上有文本框Text1和若干复选框,以下程序的功能是:当复选框Check1选中时,设置文本框Text1上显示的文本字号20。

设在一个窗体中已设计了一个文本框Text1,一个命令按钮Comd1和一组复选框Check1,并有如下过程,请写出运行的结果。