计算机二级VB上机试题及答案
2016年下半年计算机等级考试备考已经拉开大幕了，下面yjbys小编为大家分享最新计算机二级vb试题及解题指导，希望对同学们备考计算机等级考试有帮助!
1. 基本操作(2小题，每小题15分，共计30分)
注意：下面出现的“考生文件夹”均为%USER%
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1，标题为“框架”的窗体上画一个名称为Frame1，且没有标题的框架。框架内含有二个单选按钮，名称分别为Opt1 和Opt2、标题分别为“字体”、“大小”。
注意：
存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
解题思路：
启动Visual Basic系统，创建一个Form1窗体。
在该窗体上画一个框架控件，通过其属性窗口将名称设为Frame1。在框架内画二个单选按钮控件，通过其属性窗口将名称分别为Opt1和Opt2、标题(Caption属性)分别设为“字体”和“大小”。激活Form1窗体，通过其属性窗口将标题(Caption属性)设为“框架”。
参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt1.vbp、sjt1.frm、sjt1.vbw
请把这些文件复制到c:\wexam\26990001中，然后打开sjt1.vbp文件并运行。
(2)考生文件夹下的工程文件sjt2.vbp中有一个由直线Line1、Line2和Line3组成的三角形，直线Line1、Line2和Line3的坐标值如下所示：
名称 X1 Y1 X2 Y2
Line1 600 1200 1600 300
Line2 600 1200 2600 1200
Line3 1600 300 2600 1200
要求画一条直线Line4以构成三角形的高，且该直线的初始状态为不可见。再画二个命令按钮，名称分别是Cmd1、Cmd2，标题分别为“显示高”、“隐藏高”，如图所示。
请编写适当的事件过程使得在运行时，单击“显示高”按钮，则显示三角形的高;单击“隐藏高”按钮，则隐藏三角形的高。
注意：
要求程序中不得使用变量，每个事件过程只能写一条语句。不得修改已经存在的控件，最后将修改后的文件按原文件名存盘。
解题思路：
启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt2.vbp，相应的窗体文件名为sjt2.frm。
由于所提供的窗体控件不完整，需在该窗体上画一根直线控件，通过其属性窗口将名称设为Line4，点X1属性设为1600，点X2属性分别设为1600，点Y1属性设为300，点Y2属性设为1200，Visible属性设为False。画二个命令按钮控件，通过其属性窗口将名称分别设为Cmd1和Cmd2，标题(Caption属性)分别设为“显示高”和“隐藏高”。
单击“显示高”按钮(即运行Click事件过程)，在该Private Sub Cmd1_Click()事件过程中加入语句：
Private Sub Cmd1_Click()
Line4.Visible = True
End Sub
单击“隐藏高”按钮(即运行Click事件过程)，在该Private Sub Cmd2_Click()事件过程中加入语句：
Private Sub Cmd2_Click()
Line4.Visible = False
End Sub
参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt2.vbp、sjt2.frm、sjt2.vbw
请把这些文件复制到c:\wexam\26990001中，然后打开sjt2.vbp文件并运行。
2. 简单应用(2小题，每题20分，计40分)
注意：下面出现的“考生文件夹”均为%USER%
(1)在考生文件夹下有一个工程文件sjt3.vbp，在Form1的窗体中有一个文本框，二个命令按钮和一个计时器。程序的功能是在运行时，单击“开始计数”按钮，就开始计数，每隔1秒，文本框中的数加1;单击“停止计数”按钮，则停止计数(如图所示)。要求：修改适当的控件的属性，并去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件以原来的'文件名存盘。
解题思路：
启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。
由于所提供的窗体控件属性不完整，通过属性窗口将计时器的Enabled属性设为False，Interval属性设为1000。
由于所提供的窗体程序不完整，在命令按钮的Private Sub C1_Click(Index As Integer)事件过程中，有二处地方需要修改。
1) 将语句
'Select Case ?
改为
Select Case Index
2) 将语句
'Case ?
改为
Case 0
由于所提供的窗体程序不完整，在计时器的Private Sub Timer1_Timer()事件过程中，有一处地方需要修改。
1) 将语句
'Text1.Text = Text1.Text ?
改为
Text1.Text = Text1.Text + 1
参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt3.vbp、sjt3.frm、sjt3.vbw
请把这些文件复制到c:\wexam\26990001中，然后打开sjt3.vbp文件并运行。
(2)已知出租车行驶不超过4公里时一律收费10元。超过4公里时分段处理，具体处理方式为：15公里以内每公里加收 1.2元，15公里以上每公里收 1.8元。
在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是：单击“输入”按钮，将弹出一个输入对话框，接收出租车行驶的里程数;单击“计算”按钮，则可根据输入的里程数计算应付的出租车费，并将计算结果显示在名称为Text1的文本框内。
在窗体文件中已经给出了全部控件(如图所示)，但程序不完整，要求去掉程序中的注释符，把程序中的 ?改为正确的内容。