【计算机类职业资格】国家二级VB机试（上机操作）-试卷102及答案解析.doc

1、国家二级 VB 机试（上机操作）-试卷 102 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Ft)Filll，标题为“框架”的窗体上添加一个名称为 Frame1，且标题为空的框架。框架内含有两个单选按钮，名称分别为 Opt1 和 Opt2，其标题分别为“字体”、“人小”。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1vbp，窗体文件名保存为 sjt1frm。 (2)考生文件夹下的工程文件 sjt2vbp 中有一个由直线 Line1、Line2 和 Line3 组成的三角形，直线 Line1、Line2和 L

2、ine3 的坐标值如下所示： 名称 X1 Y1 X2 Y2 Line1 600 1200 1600 300 Line2 600 1200 2600 1200 Line3 1600 300 2600 1200 要求添加一条直线 Line4 以构成三角形的高，且该直线的初始状态为不可见。再添加两个命令按钮，名称分别为 Cmd1、Cmd2，标题分别为“显示高”、“隐藏高”，如图所示。（分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件央下有一个工程文件 sjt3vbp，在 Form1 的窗体中有一个文本框、一个计时器和两个命令按钮。稗序的功能是在运行时，单击“开始计数

3、”按钮，就开始计数(如图所示)，每隔 1 秒，文本框中的数加 1；单击“停止计数”按钮，则停止计数。要求：修改适当的控什的属性，并去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但小能修改程序中的其他部分。最后将修改后的文件以原来的文件名存盘。 (2)已知出租乍行驶不超过 4 公里时一律收费 10 元。超过 4 公里时分段处理，具体处理方式为：15 公里以内每公里加收 12 元，15 公里以上每公里收 18 元。 在考生文件夹下有一个工程文件 sjt4vbp。程序的功能是：单击“输入”按钮，将弹出一个输入对话框，接收出租车行驶的里程数；单击“计算”按钮，则可根据输入的里程数计

4、算应付的出租车费，并将计算结果在名称为Text1 的文本框内显示。 在窗体文件中已经给出了全部控件(如图所示)，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在学生文件夹下有一个工程文件 sjt5vbp，窗体上有两个命令按钮，标题分别是“读数据”和“统计”，请添加两个标签，名称分别为 Label1 和 Label2，标题分别为“出现次数最多的字母是”和“它出现的次数为”；再添加两个名称分别为 Text1 和 Text2，初始内容为

5、空的文本框，如图所示。 程序功能女如下： 单击“读数据”按钮，则将学生文件夹下 in5dat 文件的内容读到变量 s 中(此过程已给出)。 单击“统计”按钮，自动统计 insdat 文件中所含各字母(不区分大小写)出现的次数，并统计次数最多的字母显示在 Text1 文本框内，它所出现的次数显示在在 Text2 文本框内。 “读数据”按钮的 Click事件过程已经给出，请为“统计”按钮编写适当的事件过程实现上述功能。 （分数：2.00）_国家二级 VB 机试（上机操作）-试卷 102 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为

6、Ft)Filll，标题为“框架”的窗体上添加一个名称为 Frame1，且标题为空的框架。框架内含有两个单选按钮，名称分别为 Opt1 和 Opt2，其标题分别为“字体”、“人小”。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1vbp，窗体文件名保存为 sjt1frm。 (2)考生文件夹下的工程文件 sjt2vbp 中有一个由直线 Line1、Line2 和 Line3 组成的三角形，直线 Line1、Line2和 Line3 的坐标值如下所示： 名称 X1 Y1 X2 Y2 Line1 600 1200 1600 300 Line2 600 1200 2600 1200 Li

7、ne3 1600 300 2600 1200 要求添加一条直线 Line4 以构成三角形的高，且该直线的初始状态为不可见。再添加两个命令按钮，名称分别为 Cmd1、Cmd2，标题分别为“显示高”、“隐藏高”，如图所示。（分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：建立界面，添加相应的控什并设置控什的属性。程序中涉及的控件及属性见表 356。 步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：打开 sjf2 工程，按照题目要求建市 Line 控件并设置其属性，如图 333 所示。步骤 2：按照步骤 1 建立其他控件并设置相关属性，程序

8、中涉及的控件及属性见表 357。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件央下有一个工程文件 sjt3vbp，在 Form1 的窗体中有一个文本框、一个计时器和两个命令按钮。稗序的功能是在运行时，单击“开始计数”按钮，就开始计数(如图所示)，每隔 1 秒，文本框中的数加 1；单击“停止计数”按钮，则停止计数。要求：修改适当的控什的属性，并去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但小能修改程序中的其他部分。最后将修改后的文件以原来的文件名存盘。 (2)已知出租乍行驶不超过 4 公里时一律收费 10 元。超过 4 公里时分段处理，具体处理方

9、式为：15 公里以内每公里加收 12 元，15 公里以上每公里收 18 元。 在考生文件夹下有一个工程文件 sjt4vbp。程序的功能是：单击“输入”按钮，将弹出一个输入对话框，接收出租车行驶的里程数；单击“计算”按钮，则可根据输入的里程数计算应付的出租车费，并将计算结果在名称为Text1 的文本框内显示。 在窗体文件中已经给出了全部控件(如图所示)，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：打开本题工程文件，设置计时器

10、Interval 属性为1000Enabled 属性设置为 False。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 参考答案 Private Sub C1_C1ick(Index As Integer) Select Case Index通过控件下标确定单击哪一个按钮 Case 1 Timer1EnabledFalse Case 0控制下标从 0 开始，此处应为 0 Timer1EnabledTrue End Select End Sub Private Sub Timer1 Timer() Text1TextText1Text1Text1 中的内容加 1 显

11、示 End Sub 步骤 3：凋试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：打丌本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 参考答案 Dim s As Integer Private Sub Command1_Click() sVal(InputBox(“输入里程数(单位：公里)“)s 用于存储里程教 End Sub Private Sub Command2_Click() If s0 Then Select Case s对 s 进行判断 Case Is4 f10根据题意s4 时 f10 Case Is15 f10(s

12、4)*12同理 Case Is15 f1011*12(s15)*18同理 End Select Text1Textf在 Text1 中显示结果 Else MsgBox“请单击“输入“按钮输入里程数!“ End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存柱。)解析：三、综合应用题(总题数：1，分数：2.00)3.在学生文件夹下有一个工程文件 sjt5vbp，窗体上有两个命令按钮，标题分别是“读数据”和“统计”，请添加两个标签，名称分别为 Label1 和 Label2，标题分别为“出现次数最多的字母是”和“它出现的次数为”；再添加两个名称分别为 Text1 和 Tex

13、t2，初始内容为空的文本框，如图所示。 程序功能女如下： 单击“读数据”按钮，则将学生文件夹下 in5dat 文件的内容读到变量 s 中(此过程已给出)。 单击“统计”按钮，自动统计 insdat 文件中所含各字母(不区分大小写)出现的次数，并统计次数最多的字母显示在 Text1 文本框内，它所出现的次数显示在在 Text2 文本框内。 “读数据”按钮的 Click事件过程已经给出，请为“统计”按钮编写适当的事件过程实现上述功能。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开本题工程文件，添加两个标签控件，名称分别为Label1 和 Labe12，标题分别为“出现次数

14、最多的字母是”和“它出现的次数为”；再添加两个名称分别为 Text1 和 Text2，初始值为空的文本框。 步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Dim a(1 To 26)As Integer定文数组 a 用于存放字母出现个数 Dim max As Integer nLen(s)Len 的功能是求字符串的长度 For i1 To n kAsc(Mid$(s，i，1)依次获取字符 If(k65 And k90)Then a(k64)a(k64)1当为大写字母时，满足条件则计数 End If If(k97 And k122)Then a(k96)a(k96)1当为小写字母时，满足条件则计数 End If Next i max0 For m1 To 26循环查找出现次数最多的值 If max解析：