国家二级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版点下载