国家二级VB机试（上机操作）模拟试卷427
基本操作题
1.(1)在名称为Form1，标题为“框架”的窗体上添加一个名称为Frame1，且标题为空的框架。框架内含有两个单选按钮，名称分别为Opt1和Opt2，其标题分别为“字体”、“大小”。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。
(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，标题分别为“显示高”、“隐藏高”，如图所示。
(1)【操作步骤】
步骤1：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表3．56。
[*]
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
(2)【操作步骤】
步骤1：打开sjt2工程，按照题目要求建立Line控件并设置其属性，如图3．33所示。
[*]
步骤2：按照步骤1建立其他控件并设置相关属性，程序中涉及的控件及属性见表3．57。
[*]
步骤3：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub Cmd1_Click()
Line4．Visible＝True ’将Line4显示
End Sub
Private Sub Cmd2_Click()
Line4．Visible＝False ’将Line4隐藏
End Sub
步骤4：调试并运行程序，关闭程序后按题目要求存盘。
解析：
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3．vbp，在Form1的窗体中有一个文本框、一个计时器和两个命令按钮。程序的功能是在运行时，单击“开始计数”按钮，就开始计数(如图所示)，每隔1秒，文本框中的数加1；单击“停止计数”按钮，则停止计数。要求：修改适当的控件的属性，并去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件以原来的文件名存盘。
(2)已知出租车行驶不超过4公里时一律收费10元。超过4公里时分段处理，具体处理方式为：15公里以内每公里加收1．2元，15公里以上每公里收1．8元。
在考生文件夹下有一个工程文件sjt4．vbp。程序的功能是：单击“输入”按钮，将弹出一个输入对话框，接收出租车行驶的里程数；单击“计算”按钮，则可根据输入的里程数计算应付的出租车费，并将计算结果在名称为Text1的文本框内显示。
在窗体文件中已经给出了全部控件(如图所示)，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。
注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。
(1)【操作步骤】
步骤1：打开本题工程文件，设置计时器Interval属性为1000，Enabled属性设置为False。
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。
参考答案
Private Sub C1_Click(Index As Integer)
Select Case Index ’通过控件下标确定单击哪一个按钮
Case 1
Timer1．Enabled＝Fal se
Case 0 ’控制下标从0开始，此处应为0
Timer1．Enabled＝True
End Select
End Sub
Private Sub Timer1 Timer()
Text1．Text＝Text1．Text ＋1’Text1中的内容加1显示
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
(2)【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。
参考答案
Dim s As Integer
Private Sub Command1_Click()
s＝Val(InputBox(\\
解析：
综合应用题
3.在考生文件夹下有一个工程文件sjt5．vbp，窗体上有两个命令按钮，标题分别是“读数据”和“统计”，请添加两个标签，名称分别为Label1和Labe12，标题分别为“出现次数最多的字母是”和“它出现的次数为”；再添加两个名称分别为Text1和Text2，初始内容为空的文本框，如图所示。
程序功能如下：
①单击“读数据”按钮，则将考生文件夹下in5．dat文件的内容读到变量s中(此过程已给出)。
②单击“统计”按钮，自动统计in5．dat文件中所含各字母(不区分大小写)出现的次数，并统计次数最多的字母显示在Text1文本框内，它所出现的次数显示在Text2文本框内。
“读数据”按钮的Click事件过程已经给出，请为“统计”按钮编写适当的事件过程实现上述功能。
【操作步骤】
步骤1：打开本题工程文件，添加两个标签控件，名称分别为Labe11和Labb12，标题分别为“出现次数最多的字母是”和“它出现的次数为”；再添加两个名称分别为Text1和Text2，初始值为空的文本框。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Dim a(1 To 26)As Integer ’定义数组a用于存放字母出现个数
Dim max As Integer
n
本文档预览：3600字符，共4304字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
