国家二级VB机试（上机操作）模拟试卷605
基本操作题
1.在名称为Forml，标题为“框架”的窗体上添加一个名称为Framel，且标题为空的框架。框架内含有两个单选按钮，名称分别为Optl和Opt2，其标题分别为“字体”、“大小”。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1．vbp，窗体文件名保存为sjtl．frm。
【操作步骤】
步骤l：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表4．56。
[*]
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
解析：通过窗体的Caption属性设置窗体的标题，通过框架的Name和Caption属性设置框架的名称和标题，通过单选按钮的Name和Caption属性设置单选按钮的名称和标题。
2. 考生文件夹下的工程文件sjt2．vbp中有一个由直线Linel、L,ine2和Line3组成的三角形，直线Linel、Line2和Line3的坐标值如下所示：
名称 X1 Y1 X2 Y2
Linel 600 1200 1600 300
Line2 600 1200 2600 1200
Line3 1600 300 2600 1200
要求添加一条直线Line4以构成三角形的高，且该直线的初始状态为不可见。再添加两个命令按钮，名称分别为Cmdl、Cmd2，标题分别为“显示高”、“隐藏高”。如图所示。
请编写适当的事件过程使得在程序运行时，单击“显示高”按钮，则显示三角形的高；单击“隐藏高”按钮，则隐藏三角形的高。
注意：要求程序中不得使用变量，每个事件过程只能写一条语句。不得修改已经存在的控件，最后将修改后的文件按原文件名存盘。
【操作步骤】
步骤l：打开sjt2工程，按照题目要求建立Line控件并设置其属性，如图4．33所示。
[*]
步骤2：按照步骤l建立其他控件并设置相关属性，程序中涉及的控件及属性见表4．57。
步骤3：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub Cmdl_Click()
Line4．Visible=True′将Line4显示
End Sub
Private Sub Cmd2一Click()
Line4．ViSible=False′将Line4隐藏
End Sub
步骤4：调试并运行程序，关闭程序后按题目要求存盘。
解析：通过对直线Lanel、Line2和Liine3的坐标值的计算，确定线条的xl、X2、Yl和Y2属性的值，画出线段Line4，并将其Visible属性设置为False，使得在初始状态下为不可见。再通过命令按钮的Name和Caption属性设置命令按钮的名称和标题。在Cmdl_Click事件过程中将Line4的Visible属性设置True，则可以显示高，在Cmd2_Click事件过程中把Line4的Visible属性设置False，则可以隐藏高。
简单应用题
3.在考生文件夹下有一个工程文件sjt3．vbp，在Forml的窗体中有一个文本框、一个计时器和两个命令按钮。程序的功能是在运行时，单击“开始计数”按钮，就开始计数(如图所示)，每隔1秒，文本框中的数加l；单击“停止计数”按钮，则停止计数。要求：修改适当的控件的属性，并去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件以原来的文件名存盘。
【操作步骤】
步骤1：打开本题工程文件，设置计时器Interval属性为1000，Enabled属性设置为False。
步骤2：打开代码编辑窗口，去掉程序中的注释符“′”，将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容)
Private Sub Cl_C1ick(Index As Inte-ger)
Select CaseIndex′通过控件下标确定单击哪一个按钮
Case 1
Timerl．Enabled=False
Case0′控制下标从0开始。此处应为0
Timerl．Enabled=True
End Select
End Sub
Private Sub Timerl_Timer()
Textl．Text=Textl．Text+1′
Textl中的内容加1显示
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析：首先打开本题工程文件，设置计时器Interval属性为1000，Enabled属性设置为False，实现开始计数的时间间隔为1秒，计时器不可用。运用Select Case语句，通过命令按钮数组的Index属性值确定是“开始计数”或是“停止计数”按钮，通过设置Timerl的Enabled属性，实现对开始计数和停止计数的操作。Timerl_Timer事件过程用于使文本框中的数值加1。
4. 已知出租车行驶不超过4公里时一律收费10元。超过4公里时分段处理，具体处理方式为：15公里以内每公里加收1．2元，15公里以上每公里收1．8元。
在考生文件夹下有一个工程文件sjt4．vbp。程序的功能是：单击“输入”按钮，将弹出一个输入对话框，接收出租车行驶的里程数；单击“计算”按钮，则可根据输入的里程数计算应付的出租车费，并将计算结果在名称为Textl的文本框内显示。
在窗体文件中已经给出了全部控件(如图所示)，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。
注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。
【操作步骤】
步骤I：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“′”，将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容)
Dim s As Integer
Private Sub Commandl Click()
S=Val(InputBox(＂输入里程数(单位：公里)＂))′S用于存储里程数
End Sub
Private Sub Comma
本文档预览：3600字符，共5905字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
