国家二级VB机试（上机操作）模拟试卷435
基本操作题
1.(1)在名称为Form1的窗体上添加一个名称为Framee1、标题为“框架”的框架，在框架内添加两个名称分别为Pption1、Option2的单选按钮，其标题分别为“第一项”、“第二项”。要求通过设置控件的属性将“第二项”初始值设为被选中，框架为不可用。运行程序后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保俘为sjt1．vbp，窗体文件夹保存为sjt1．frm。
(2)在名称为Form1的窗体上添加一个名称为Drvecl的躯动器列表框，一个名称为Dir1的目录列表框，一个名称为Filel的文件列表框，名称为Label1、标题为“文件名”的标签和名称为Label2、BorderStyle为1的标签。将窗体的标题设置为“文件系统控件”，如图所示。请编写适当的程序，使得这三个史件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时．将在Lahel2中显示选中的文件名。
注意：要求程序中不得使用变量，事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。
(1)步骤l：建立界面，添加相应的控件并设置控件的属性。程序中用到的控件及属性见表3．38。
[*]
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
(2)步骤1：新建一个窗体，按照题目要求建立驱动器列表框、目录列表框和文件列表框控件并设置其属性，如图3．28所示。
[*]
程序中用到的控件及属性见表3．39和表3．40。
[*]
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub Dirl Change()
Filel．Path=Dirl．Path’使目录列表框Dirl与文件列表框Filel同步
End Sub
Private Sub Drivel Change()
Dirl．Path=Drivel．Drive’使驱动列表框Drive 1与目录列表框Dirl同步
End Sub
Private Sub Filel C1ick()
Label2=Filel．FileName’显示Filel中的文件名
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析：(1)通过框架的：Name、Caption和Enabled属性设置框架的名称、标签以及是否可用。通过单选按钮的Name、Caption和Value属性设置单选按钮的名称、标签以及是否被选中。
(2)在实际应用中，驱动器列表框、目录列表框和文件列表框通常需要同步操作，这可以通过Path属性的改变引发Change事件来实现。
例如：
Private Sub Dirl_Change()
Filel．Path=Diri．Path
End Sub
该事件过程使窗体上的目录列表框Dirl和文件列表框Filel产生同步。因为目录列表框的Path属性的改变将产生Change事件，所以在Dirl_Change事件过程中，把Dirl．Path赋给Filel．Path即可产生同步效果。
类似地，增加下面的事件过程可使三种列表框同步操作。
例如：
Private Sub Drivel_Change()
Dir1．Path=Drivei．Drive
End Sub
该过程使驱动器列表框与目录列表框同步，前面的过程使目录列表框与文件列表框同步，从而使三种列表框同步。
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3．vbp，其窗体上有一个列表框和一个标题为“选择”的命令按钮，且列表框中已有若干列表项。程序的功能是：当单击”选择”按钮时，如果列表框中没有列表项，则程序不做任何操作。否则，判断列表框中是否有列表项被选中，如果没有，则自动选中首个列表项(呈蓝色光条显示)；如果有，且不是最后一个列表项，则自动选中后一个列表项，如果选中的是最末一项，则自动选中首个列表项。运行时窗体界面如图所示。程序已经给出，但不完整，请将其中的注释符去掉，把?改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序代码，最后程序按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4．vbp，其窗体上有4个标签、1个文本框、1个计时器和1个标题为“开始”的命令按钮。程序的功能是：用户在文本框中输入一个计时时间(单位：分)，并单击“开始”按钮后，系统将开始倒计时，每隔1秒显示1次剩余时间，当到达计时长度时，系统倒计时结束，并弹出信息框显示“时间到!”，程序运行界面如图所示。程序已经给出，但不完整，请将其中的注释符去掉，把?改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序代码，最后程序按原文件名存盘。
(1)步骤1：打开本题项目工程。
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。
参考答案
Private Sub Command1_Click()
If List1．ListCount=0 Then
Exit Sub
End If
If List1．ListIndex=一1 Then
List1．ListIndex=0
Else
If List1．ListIndex < List1．ListCount-1 Then
List1．ListIndex=List1．ListIndex+1
Else
List1．ListIndex=0
End If
End If
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
(2)步骤1：打开本题项目工程。
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。
参考答案
Dim t As Integer
Prirate Sub Command1_Click()
t=60*Val(Text1．Text)
本文档预览：3600字符，共5468字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
