计算机程序设计
假设有一复选框控件，名为Check1，在程序中，我们用“check1.value=1”语句设置Value属性的值，则该程序执行后，复选框处于（）状态。
题目
假设有一复选框控件，名为Check1，在程序中，我们用“check1.value=1”语句设置Value属性的值，则该程序执行后，复选框处于（）状态。
相似问题和答案
第1题：
在名为From1的窗体上绘制一个名为Drive1的DriveListBox控件，一个名为Dir1的 DirListBox控件和一个名为File1的FileListBox控件。编写适当的事件过程，使程序运行时，可以对系统中的文件进行浏览；当双击File1中的文件名时，用MsgBox显示文件名(不显示路径名)。如下图所示。
注意：
程序中不得使用任何变量；文件必须存放在考生文件夹中， 窗体文件名为 execise11.frm，工程文件名为execise11.vbp。
第2题：
“表单控件”工具栏用于在表单中添加______。
A．控件
B．命令
C．文本
D．复选框
第3题：
建立一个表单，表单文件名和表单控件名均为myform2，表单标题为“数据浏览及维护”，表单基本功能要求如下：
①用选项按钮组(Optiongroup1)控件选择“职工”表(Option1)或“订单”表(Option2)。
②用复选框(Check1)控件确定显示的表是否需要存盘。单击“确定”(Command1)命令按钮，若“保存记录”复选框被选中，则用SQL语句将选项组指定的表的内容存入表“temp”中，否则用SQL语句显示该表内容。
③单击“关闭”(Command2)命令按钮，关闭并释放表单。
步骤1：单击工具栏的[新建]按钮，打开[新建]对话框。在[文件类型]中选择“表单”，单击[新建文件]，打开表单设计器新建表单。单击[表单控件]窗口中的“选项按钮组”，再单击表单，添加“选项按钮组”控件。用同样的方式添加“复选框”和两个“命令按钮”。 步骤2：单击表单，在[属性]窗口中设置“Name”为“myform2”，“Caption”为“数据浏览及维护”。右击选项按钮组选择“编辑”，单击“option1”，在[属性]窗口中设置“Caption”为“职工”；单击“option2”，在[属性]窗口中设置“Caption”为“订单”。再单击复选框按钮，在[属性]窗口中设置“Caption”为“保存记录”。单击第一个按钮(Command1)，在[属性]窗口中设置“Caption”为“确定”。单击第二个按钮(Command2)，在[属性]窗口中设置“Caption”为“关闭”。 步骤3：右击[确定]按钮，编写命令按钮的Click事件代码。 IF ThisForm.CheCk1.Value=1 IF ThisForm.OptionGroup1.Value=1 SELECT *FROM 职工 INTO TABLE TEMP.DEF ELSE SELECT *FROM 订单 INTO TABLE TEMP.DBF ENDIF ELSE IF ThisForm.OPTIONGROUP1.VALUE=1 SELECT *FROM 职工 ELSE SELECT *FROM 订单 ENDIF ENDIF 右击[关闭]按钮，编写命令按钮的Click事件代码 ThisForm.ReleaSe 步骤4：单击工具栏的[保存]按钮，将其命名为myform2，右击表单选择“执行表单”，运行表单即可。
第4题：
在窗体上有一个名称为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?
第5题：
在窗体上画一个单选按钮和一个复选框，其名称分别为Option1和Check1，然后编写如下事件过程： Private Sub Option1_Click() Check1.Value = Option1.Value End Sub 程序运行后，如果单击单选按钮，其结果为______。
A．单选按钮与复选框的选中情况一致
B．出错
C．如果选中单选按钮Option1，则复选框Check1也被选中
D．如果不选中单选按钮Option1，则复选框Check1也不被选中
第6题：
在表单中设计一组复选框(CheckBox)控件是为了可以选择【 】个或【 】个选项。
零、多 解析：复选框控件用于标记一个两值状态，选中或不选中。可以将多个复选框都选中，也可以一个都不选中。
第7题：
在窗体上有一个名称为Check1的复选框数组(含4个复选框)，还有一个名称为Text1的文本哐，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中(如图1所示)。下面能实现此功能的事件过程是（ ）。
A) 【解析】本题考查复选框控件数组。复选框的Value属性，决定了当前复选框的状态，当Value为1时表示选中复选框。按照题目中的要求，首先清空文本框，接下来对复选框控件数组中的所有元素的Value属性一一筛查，判断是否选中，把选中的复选框控件的Caption属性值连接到文本框的字符串中。
第8题：
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
1．在名称为Form1的窗体上放置一个名称为Drive1的DriveListBox控件，一个名称为Dir1的DirListBox控件和一个名称为File1的FileListBox控件。程序运行时，可以对系统中的文件进行浏览；当双击File1中的文件名时，用MsgBox显示文件名(不显示路径名)。
注意：程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文件名为Sjt1. frm，工程文件名为sjt1.vbp。
2．在名称为Form1的窗体上放置一个名为Text1的文本框控件和一个名为Timer1的计时器控件，程序运行后，文本框中显示的是当前的时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变。
注意：程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文件名为sjt2. frm，工程文件名为sjt2.vbp，如图1—1所示。
DriveListBox Name Drive1
DirListBox Name Dir1
FileListBox Name File1
第二步：编写程序代码。
参考代码：
Option Explicit
Private Sub Dir1_Change()
File1.Path＝Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path＝Drive1.Drive
End Sub
Private Sub File1_dblclick()
MsgBox File1.FileName
End Sub
Private Sub Form_Load()
Dir1.Path＝Drive1.Drive
File1.Path＝Dir1.Path
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
2．① 在窗体上建立好控件后先设置控件的属性再编写事件过程。
② 时钟控件作用是以一定的时间间隔激发计时器事件(Timer)而执行相应的程序代码其Interval属性决定时间间隔的长短以毫秒为单位所以要实现
每一秒文本框的时间改变只要使该属性设置为1000即可要使程序运行后取得当前时间可用Time函数取得程序用到的Str函数将其中的内容转化为字符串。
③ 解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表2。
表 2
标 题 属 性 设 置 值
Text Name Text1
Timer Name
Interval Timer1
1000
第二步：编写程序代码。
参考代码：
Private Sub Form_Load()
Text1.Text＝Str(Time)
End Sub
Private sub Timer1_Timer()
Text1.Text＝Str(Time)
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。① 在窗体上建立好控件后，先设置控件属性，再编写事件过程。 ② 文件系统控件有3种：驱动器列表框(DriveListBox)，目录列表框(DirListBox)和文件列表框(FileListBox)。3个文件系统控件必须协调工作才能构成一个文件管理系统，当用户在驱动器列表框中选择一个新的列表框或在当目录列表框Path的属性改变都触发Change事件，将三者(利用本题中3个对象的名称)实现同步的代码为：File1.Path＝Dir1.Path，Dir1. Path＝Drive1.Drive。双击触发 DblClick事件弹出MsgBox显示文件名，其格式为：MsgBox提示[,按钮][,标题]。 ③ 解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表1。 表 1标题 属性 设置值
DriveListBox Name Drive1
DirListBox Name Dir1
FileListBox Name File1
第二步：编写程序代码。
参考代码：
Option Explicit
Private Sub Dir1_Change()
File1.Path＝Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path＝Drive1.Drive
End Sub
Private Sub File1_dblclick()
MsgBox File1.FileName
End Sub
Private Sub Form_Load()
Dir1.Path＝Drive1.Drive
File1.Path＝Dir1.Path
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
2．① 在窗体上建立好控件后，先设置控件的属性，再编写事件过程。
② 时钟控件作用是以一定的时间间隔激发计时器事件(Timer)而执行相应的程序代码，其Interval属性决定时间间隔的长短，以毫秒为单位，所以要实现
每一秒文本框的时间改变只要使该属性设置为1000即可，要使程序运行后取得当前时间可用Time函数取得，程序用到的Str函数将其中的内容转化为字符串。
③ 解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表2。
表 2
标 题 属 性 设 置 值
Text Name Text1
Timer Name
Interval Timer1
1000
第二步：编写程序代码。
参考代码：
Private Sub Form_Load()
Text1.Text＝Str(Time)
End Sub
Private sub Timer1_Timer()
Text1.Text＝Str(Time)
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
第9题：
在名为Form1的窗体上绘制一个名为Text1的文本框控件和一个名为Timer1的计时器控件。程序运行后，文本框中显示的是当前的时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变(如下图所示)。
注意：
程序中不得使用任何变量： 文件必须存放在考生文件夹中，窗体文件名为 execise116.frm，工程文件名为execise116.Vbp。
第10题：
在名为Form1标题为“选课”的窗体上绘制一个复选框数组；名为Chk1，共有4个复选框，按顺序其标题分别是“音乐”、“美术”、“体育”和“政治”，其中“体育”和“政治”复选框处在选中状态下。请绘制控件并设置相应属性，使运行时的窗体如下图所示。
注意：
文件必须存放在考生文件夹中，工程文件名为execise23.vbp，窗体文件名为 execise23.frm。
