网友您好， 请在下方输入框内输入要搜索的题目：

题目内容 （请给出正确答案）

在窗体上有一个名称为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，并有如下过程，请写出运行的结果。
查看答案
热门标签
最新试卷