1、VB机试模拟试卷 5及答案与解析 一、基本操作题（ 30分） 1 注意：下面出现的 “考生文件夹 ”均为 c:wexam25160001。 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1的窗体上建立一个水平滚动条，请在属性窗口中把它的名称设置为 HS1， Max属性设置为100， Min属性设置为 0， Value属性设置为 100。程序运行后，滚动框位于滚动条最右端，如图 5-1所示，如果单击滚动条之外的窗体部分，则滚动框跳到最左端。 注意：只能直接为相应的属性赋 值，不得使用变量。保存时必须存放在考生文件夹下，窗体文件名为
2、sjt1.frm，工程文件名为 sjt1.vbp。 (2)在名称为 Form1的窗体中建立 1个标签，名称为 L1，在标签上显示 “选课 ”，其字号大小为四号；再建立 3个复选框，名称分别为 Chk1、 Chk2和 Chk3，标题分别为 “操作系统 ”、 “数据库原理 ”和 “概率论 ”，字体大小均为 14，其中 “概率论 ”被禁用，如图 5-2所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt2.frm，工程文件名为 sjt2.vbp。二、简单应用题（ 40分） 2 注意：下面出现的 “考生文件夹 ”均为 c： wexam25160001。 (1)在窗体上建立一个名称为 Tex
3、t1的文本框，然后建立两个主菜单，标题分别为 “学分等级 ”和 “帮助 ”，名称分别为 vbMenu和 vbHelp，其中 “学分等级 ”菜单包括标题为 “等级 A”、“等级 B”和 “等级 C”三个子菜单，名称分别为 vbMenu1、 vbMenu2和 vbMenu3。要求程序运行后，如果在 “学分等级 ”的下拉菜单中选择 “等级 A”，则在文本框内显示 “85分以上 ”：如果选择 “等级 B”，则在文本框内显示 “75分至 85分 ”；如果选择“等级 C”，则在文本框内显示 “60分至 75分 ”。程序中不能使用任何变量，直接显示字符串。程序运行界面如图 7-4所示。 注意：保存时必须存放
4、在考生文件夹 下，窗体文件名为小 3 rrm，工程文件名为 s社 3 vbp。 (2)在考生文件夹中有文件 sjt4.vbp及其窗体文件 sjt4.frm，该程序是不完整的，请在有 ?号的地方填入正确内容，然后删除 ?及所有注释符 (即 号 )，但不能修改其他部分。存盘时不得改变文件夹和文件名。 本题描述如下： 窗体上有一个名称为 Text1的文本框；两个复选框，名称分别为 Ch1和 Ch2，标 题分别为 “足球 ”和 “乒乓球 ”；一个名称为 C1，标题为 “确定 ”命令按钮。要求程序运行后，如果只选中 Ch1，单击 “确定 ”命令按钮，则在文本框中显示 “我喜欢足球 ”；如果只选中 Ch2
5、，单击 “确定 ”命令按钮，则在文本框中显示 “我喜欢乒乓球 ”；如果同时选中 Ch1和 Ch2，然后单击 “确定 ”命令按钮，则在文本框中显示 “我喜欢足球和乒乓球 ”：如果 Ch1和 Ch2都不选，然后单击 “确定 ”命令按钮，则在文本框中什么都不显示。程序运行界面如图 7-5所示。三、综合应用题（ 30分） 3 下面出现的 “考生文件夹 ”均为 c： wexam25160001。 在考生文件夹中有工程文件 sjt5.vbp及其窗体文件 sjt5.frm，该程序是不完整的，请在有 ? 号的地方填入正确内容，然后删除 ?及所有注释符 (即，号 )但不能修改其他部分。存盘时不得改变文件名和文件
6、夹。 本题描述如下： 在名称为 Form1的窗体上有一个文本框，名称为Text1， MultiLine属性为 True， ScrollBars属性为 2：两个命令按钮名称分别为Cmd1和 Cmd2，标题分别为 “读入数据 ”和 “计算保存 ”，如图 6-5所示。要求程序运行后，如果单击 “读入数据 ”按钮，则读 入 “in.txt”文件中的 100个整数，放入 个数组中 (数组下界为 1)，同时在文本框中显示出来：如果单击 “计算保存 ”按钮，则计算其中前 50个数之和，并把求和结果在文本框 Text1中显示出来，同时把结果存入考生文件夹中的文件 “out.txt”中。 (在考生的文件夹下有标
7、准模块 mode.bas，其中的 putdata过程可以把结果存入指定的文件 )。 注意：文件必须存放在考生文件夹下，窗体文件名为 sjt5.frm，工程文件名为 sjt5.vbp，计算结果存入 out.txt文件，否则没有成绩。 VB机试模拟试卷 5答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)在窗体上建立好控件后，先设置控件属性，再编写事件过程。 单击窗体触发窗体的 Click事件；滚动条的最大刻度由 Max属性来表示，最小刻度由 Min属性设置，滚动条上的位置由 Value属性来表示。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 5-1。第二
8、步：编写程序代码。 参考代码： Private Sub Form_Click() HS1.Value = 0 End Sub 第三步：调试并运行程序。 第四步：按题目要 求存盘。 (2)在窗体上建立好控件后，设置控件属性。 标签上显示内容通过标签的 Caption属性设置；复选框标题也是通过其 Caption属性来设置，控件的禁用与否是通过 Enabled属性设置。若 Enabled属性设置为 True，则控件可用，若设置为 False，则控件被禁用。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 5-2。第二步：调试并运行程序。 第三步：按题目要求存盘。 二、简单应
9、用题（ 40分） 2 【正确答案】 (1)在窗体上建立好控件后，先设置控件属性，再编写事件过程。 在 Visual Basic中，菜单也被看作控件，具有属性和事件。菜单的建立在菜单编辑器中完成，菜单的级数通过内缩符号来表示，第一级菜单没有内缩符号，第二级菜单的内缩符号为 1：文本框内容用 Text属性来设置。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 7-3。第二步：编写程序代码。 参考代码： Private Sub vbMenul Click() Text1.Text = “85分以上 “ End Sub Private Sub vbMenu2 Click()
10、Text1.Text = “75分至 85分 “ End Sub Private Sub vbMenu3 Click() Text1.Text = “60分至 75分 “ End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 (2)复选框用来表示状态，在程序运行期间可以改变其状态。复选框标题由 Caption属性来设置，复选框的 Value属性用来表示复选框的状态，其取值有： 0：表示复选框未被选中： 1：表示复选框被选中； 2：表示复选框被 禁止使用 (灰色 )。解题步骤： 第一步：编写程序代码。 程序提供的代码： Option Explicit Private Sub C1
11、Click() ? = “ If Ch1.Value And Not Ch2.Value Then Text1.Text = “我喜欢足球 “ If Ch1.Value = ? And Ch2.Value Then Text1.Text = “我喜欢乒乓球 “ If Ch1.Value And Ch2.Value Then Text1.Text = “我喜欢足球和乒乓球 “ End Sub 参考代码： Option Explicit Private Sub C1_Click() Text1.Text = “ If Ch1.Value And Not Ch2.Value Then Textl.T
12、ext = “我喜欢足球 “ If Ch1.Value = 0 And Ch2.Value Then Text1.Text = “我喜欢乒乓球 “ If Ch1.Value And Ch2.Value Then Text1.Text = “我喜欢足球和乒乓球 “ End Sub 第二步：调试 并运行程序。 第三步：按题目要求存盘。 三、综合应用题（ 30分） 3 【正确答案】 在窗体上建立好控件后，先设置控件属性，再编写事件过程。 文本框显示的内容由 Text属性设置， Multiline属性决定文本框是否可多行显示；按钮的标题由 Caption属性设置，单击命令按钮触发 Click事件。题中
13、涉及到文件的操作，读入顺序文件以顺序的方式打开，用 input#语句读取数据。另外需要注意的是对文件操作完后，一定要关闭文件。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性值见表 6-5。第 二步：编写程序代码。 程序提供的代码。 mode.bas代码： Option Explicit Sub putdata(t_FileName As String， t_Str As Variant) Dim sFile As String sFile=“ & t FileName Open App.Path & sFile For Output As #1 Print #1， t S
14、tr Close #1 End Sub 窗体代码： Option Explicit Dim ?(1 To 100) As Integer Private Sub Cmd1 Click() Dim j As Integer Open App. Path& “in.txt“ For Input As #1 For j = 1 To 100 Input #1, i(j) Text1.Text = Text1.Text & i(j) & Space(5) Next Close #1 End Sub Private Sub Cmd2_Click() Dim ? As Integer Dim temp A
15、s Long For j = 1 To 50 temp = temp + i(j) Next Textl.? = temp putdata “out.txt“, temp End Sub 参考代码： Option Explicit Dim i(1 To 100) As Integer Private Sub Cmd1 Click() Dim j As Integer Open App. Path & “in.txt“ For Input As #1 For j = 1 To 100 Input #1, i(j) Text1.Text = Text1.Text & i(j) & Space(5) Next Close #1 End Sub Private Sub Cmd2 Click() Dim j As Integer Dim temp As Long For j = 1 To 50 temp = temp + i(j) Next Text1.Text = temp putdata “out.txt“, temp End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。
