[计算机类试卷]VB机试模拟试卷6及答案与解析.doc

1、VB机试模拟试卷 6及答案与解析 一、基本操作题（ 30分） 1 注意：下面出现的 “考生文件夹 ”均为 c： wexam25160001。 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上建立一个名称为 Cmd1，标题为 “显示 ”的命令按钮，编写适当的事件过程。程序运行后，如果单击 “显示 ”命令按钮，则在窗体上显示 “等级考试 ”，如图 6-1所示。程序中不能使用任何变量，直接显示字符串。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt1.frm，工 程文件名为 sjt1.vbp。 (2)在名称为Form1

2、的窗体上建立一个名称为 L1的标签，两个名称为 Cmd1和 Cmd2，标题分别为 “显示 1”和 “显示 2”的命令按钮。编写适当的事件过程，要求程序运行后，如果单击 “显示 1”命令按钮，则在标签上显示字符串 “aaa”；如果单击 “显示 2”命令按钮，则在标签上显示字符串 “bbb”。程序中不能使用任何变量，直接显示字符串。如图 6-2所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt2.frm，工程文件名为 sjt2.vbp。 二、简单应用题（ 40分） 2 注 意：下面出现的 “考生文件夹 ”均为 c： wexam25160001。 (1)在窗体上建立一个名称为 Text

3、1的文本框，然后建立两个主菜单，标题分别为 “销售业态 ”和 “帮助 ”，名称分别为 vbMenu和 vbHelp，其中 “销售业态 ”菜单包括 “大型百货 ”、 “连锁超市 ”和 “前店后厂 ”三个子菜单，名称分别为 vbMenu1、 vbMenu2和 vbMenu3。要求程序运行后，在 “销售业态 ”的下拉菜单中选择 “大型百货 ”，则在文本框内显示“百货大楼 ”；如果选择 “连锁超市 ”，则在文本框内显示 “利客隆 ”：如果选择 “前店后厂 ”则在文本 框内显示 “稻香村 ”。程序运行界面如图 8-3所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt3.frm，工程文件名为

4、 sjt3.vbp。 (2)在考生文件夹中有文件 sjt4.vbp及其窗体文件 sjt4.frm，该程序是不完整的，请在有 ?号的地方填入正确内容，然后删除？及所有注释符 (即 号 )，但不能修改其他部分。存盘时不得改变文件夹和文件名。 本题描述如下： 窗体上有一个名称为 Text1的文本框；两个复选框，名称分别为 Ch1和 Ch2，标题分别为 “羽毛球 ”和 “乒乓球 ”；一个名称为 C1，标题为 “确定 ”的 命令按钮。要求程序运行后，如果只选中 Ch1，单击 “确定 ”命令按钮，则在文本框中显示 “报名参加羽毛球比赛 ”；如果只选中 Ch2，然后单击 “确定 ”命令按钮，则在文本框中显示

5、 “报名参加乒乓球比赛 ”；如果同时选中 Ch1和 Ch2，单击 “确定 ”命令按钮，则在文本框中显示 “报名参加羽毛球和乓乓球比赛 ”；如果 Ch1和 Ch2都不选，然后单击 “确定 ”命令按钮，则在文本框中什么都不显示。程序运行界面如图 8-4所示。三、综合应用题（ 30分） 3 下面出现的 “考生文件夹 ”均为 c： wexam25160001。 在考生文 件夹中有工程文件 sjt5.vbp及其窗体文件 sjt5.frm，该程序是不完整的，请在有 ?号的地方填入正确内容，然后删除 ?及所有注释符 (即 号 )但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在名称为 F

6、orml的窗体上有一个文本框，名称为Textl， MultiLine属性为 Tree， ScrollBars属性为 2；两个命令按钮，名称分别为Cmdl和 Cmd2，标题分别为 “读入数据 ”和 “计算保存 ”，如图 7-6所示。要求程序运行后，如果单击 “读入数据 ”，按钮，则读入 “in mt”文件中的 100个整 数，放入一个数组中 (数组下界为 1)，同时在文本框中显示出来；如果单击 “计算保存 ”按钮，则计算数组中前 30个数的平均值 (结果四舍五入为整数 )，并把结果在文本框 Text1中显示出来，同时把结果存入考生文件夹中的文件 “out.txt”中。 (在考生的文件夹下有标准模

7、块 mode.bas，其中的 putdata过程可以把结果存入指定的文件 )。 注意：文件必须存放在考生文件夹下，窗体文件名为 sjt5.frm，工程文件名为 sjt5.vbp，计算结果存入 out.txt文件，否则没有成绩。 VB机试模拟试卷 6答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)在窗体上建立好控件后，先设置控件属性，再编写事件过程。 命令按钮的标题通过 Caption属性设置，单击命令按钮触发 Click事件；在窗体上打印显示内容使用 Print方法。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 6-1。第二步：编写程序代码。 参考代

8、码： Private Sub Cmdl Click() Print”等级考试 ” End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 (2)在窗体上建立好控件后 ，先设置控件属性，再编写事件过程。 命令按钮的标题由 Caption属性设置，单击命令按钮触发 Click事件；标签上显示的内容通过 Caption属性设置。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 6-2。第二步：编写程序代码。 参考代码： Private Sub Cmd1_Click() L1.Caption=“aaa“ End Sub Private Sub Cmd2_Click(

9、) L1.Caption=“bbb“ End Sub 第三步：调试并运行程序。 第四步：按题目 要求存盘。 二、简单应用题（ 40分） 2 【正确答案】 (1)在窗体上建立好控件后，先设置控件属性，再编写事件过程。 在 Visual Basic中，菜单也被看作控件，具有属性和事件。菜单的建立在菜单编辑器中完成，菜单的级数通过内缩符号来表示，第一级菜单没有内缩符号，第二级菜单的内缩符号为 1；文本框内容用 Text属性来设置。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 8-3。 第二步：编写程序代码。 参考代码： Private Sub vbMenul Click(

10、) Text1.Text = “百货大楼 “ End Sub Private Sub vbMenu2 Click() Text1.Text = “利客隆 “ End Sub Private Sub vbMenu3 Click() Text1.Text = “稻香村 “ End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 (2)复选框用来表示状态，在程序运行期间可以改变其状态。复选框标题由 Caption属性来设置，复选框的 Value属性用来表示复选框的状态，其取值有： 0：表示复选框未被选中； 1：表示复选框被 选中； 2：表示复选框被禁止使用 (灰色 )。 解题步骤： 第一

11、步：编写程序代码。 程序提供的代码： Option Explicit Private Sub C1_Click() Text1.Text=“ 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_

12、Click() Text1.Text=“ If Ch1.Value And Not Ch2.Value Then Text1.Text=“报名参加羽毛球比赛 ” If Ch1.Value=0 And Ch2.Value Then Text1.Text=“报名参加乒乓球比赛 ” If Ch1.Value And Ch2.Value=1 Then Text1.Text=“报名参加羽毛球和乒乓球比赛 ” End Sub 第二步：调试并运行程序。 第三步：按题目要求存盘。 三、综合应用题（ 30分） 3 【正确答案】 在窗体上建立好控件后，先设置控件属性，再编写事件过程。 文本框显示的内容由 Text

13、属性设置， Multiline属性决定文本框是否可多行显示；按钮的标题由 Caption属性设置，单击命令按钮触发 Click事件。题中涉及到文件的操作，读入顺序文件以顺序的方式打开，用 input#语句读取数据。另外需要注意的是对文件操作完后，一定要关闭文件。解题步骤： 第一步：建立界面并 设置属性。程序中用到的控件及其属性见表 7-4。第二步：编写程序代码。 程序提供的代码： Option Explicit Dim i(1 To 100) As Integer Private Sub Cmdl Click() Dim ? As Integer Open “in.txt“ For Input

14、 As #1 For j = 1 To 100 Input #1, i(j) Text1.Text = Text1.Text & i(j) & Space(5) Next ? #1 End Sub Private Sub Cmd2 Click() Dim temp As Long Dim j As Integer For j = 1 To 30 temp = temp + i(j) ? temp = temp / 30 Text1.Text = temp putdata “out.txt“, temp End Sub 参考代码： Option Explicit Dim i(1 To 100)

15、As Integer Private Sub Cmdl Click() Dim j As Integer Open “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 91 End Sub Private Sub Cmd2 Click() Dim temp As Long Dim j As Integer For j = 1 To 30 temp = temp + i(j) Next temp = temp / 30 Text1.Text = temp putdata “out.txt“, temp End Sub 标准模块 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 Str Close #1 End Sub 第三步：调试并运行程序。 第四步：按题 目要求存盘。