1、VB机试模拟试卷 1及答案与解析 一、基本操作题（ 30分） 1 注意：下面出现的 “考生文件夹 ”均为 c;wexam25160001。 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在窗体上建立一个二级菜单，该菜单含有 “文件 ”和 “帮助 ” (名称分别为 vbFile和 vbHelp)两个主菜单项，其中“文件 ”菜单包括 “打开 ”、 “关闭 ”和 “退出 ”三个子菜单项 (名称分别为 vbOpen、 vbClose和 vbExit)，如图 1-1所示。只建立菜单，不必定义其事件过程。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sj
2、t1.frm，工程文件名为 sjt1.vbp。 (2)在名为 Form1的窗体上画一个框架，名称为 Frm1，标题为 “框架 ”，高度为 2500，宽度为 4000，框架内建立一文本框，距左边框 600，距框架的上边框 1200，文本框中的初始内容设置为 “文本框 ”。如图 1-2所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt2.frm，工程文件名为 sjt2.vbp。二、简单应用题（ 40分） 2 注意：下面出现的 “考生文件夹 ”均为 c:wexam25160001。 (1)在名称为 Form1的窗体上建立两个主菜单，其标题分别为 “文件 ”和 “帮助 ”，名称分别为 v
3、bFile和vbHelp，在 “文件 ”菜单下有 3个子菜单项，标题分别为 “新建 ”、 “打开 ”和 “存盘 ”，名称分别为 vbNew、 vbOpen和 vbSave。要求程序运行后，如果选中 “文件 ”下的某个菜单项，则通过 MsgBox对话框显示该菜单项的标题，如图 3-3所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt3.frm，工程文件名为 sjt3.vbp。 (2)在窗体上建立一个名称为 Text1的文本框，再建立一个 名称为 Cmd1，标题为 “计算 ”的命令按钮，如图 3-4所示。要求程序运行后，单击命令按钮，将计算 100-200之间所有素数之和，在文本框中
4、显示结果，同时把结果存入文件 out.txt中。 (在考生文件夹中有标准模块 mode.bas,其中的 putdata过程可以把结果存入文件，而isprime函数可以判断整数 x是否为素数，如果是素数，则函数返回 True，否则返回 False，考生可以把该模块文件添加到自己的工程中。 ) 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt4.frm，工程文件名为 sjt4.vbp， 结果存入 out.txt文件。 三、综合应用题（ 30分） 3 在考生文件夹中有工程文件 sjt5.vbp及其窗体文件 sjt5.frm，该程序是不完整的，请在有 ?号的地方填入正确内容，然后删除 ?及所有
5、注释符 (即 号 )但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在名称为 Form1的窗体上有一个文本框，名称为 Text1， MultiLine属性为 True， ScrollBars属性为 2；两个命令按钮，名称分别为 Cmd1和 Cmd2，标题分别为 “读入数据 ”和 “计算保存 ”，如图 2-6所示。要求程序 运行后，如果单击 “读入数据 ”按钮，则读入 “in.txt”文件中的100个整数，放入一个数组中 (数组下界为 1)，同时在文本框中显示出来；如果单击 “计算保存 ”按钮，则计算数组中大于或等于 400并且小于 800的所有数之和，把求和结果在文本框 T
6、ext1中显示出来，同时把结果存入考生文件夹中的文件 result.txt中。 (在 prog.bas中的 putdata过程可以把结果存入 result.txt文件 )。 注意：文件必须存放在考生文件夹下，窗体文件名为 sjt5.frm，工程文件名为sjt5.vbp，计算结果存入 result,txt文件中，否则没有成绩。VB机试模拟试卷 1答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)在 Visual Basic中，菜单项通过菜单编辑器来建立。解题步骤： 第一步：打开 “菜单编辑器 ”窗口，建立菜单项。用到的菜单项及其属性见表 1-1。第二步：调试并运行程序。 第三步：按
7、题目要求存盘。 (2)在窗体上建立好控件后，再按题目要求设置各自的属性即可。需要指出的是在框架里的控件需要画出框架后，单击工具箱里的控件然后在框架里拖动画出所需控件，不可以用双击的方法，否则所需的 控件放不到框架里。窗体中的控件的具体位置由控件的 Top、 Left属性设置，大小由属性 Height Width设置。解题步骤： 第一步：设置框架的 Height、 Width属性分别为 2500，4000；文本框的 Left、 Top属性值分别为 600， 1200。 (以上均可在属性栏里没置 ) 第二步：调试并运行程序。 第三步：按题目要求存盘。 二、简单应用题（ 40分） 2 【正确答案】
8、(1)在 Visual Basic中，菜单项通过菜单编辑器来建立；选择菜单则是触发其 Click事件。 MsgBox函数在对话框中显示消 息，等待用户单击按钮，并返回 1个 Integer告诉用户单击哪一个按钮。 语法 ： MsgBox(prompt， buttons，title， helpfile， context) MsgBox函数的语法具有以下几个命名参数： Prompt必需的。字符串表达式，作为显示在对话框中的消息。 Buttons可选的。数值表达式是值的总和，指定显示按钮的数目及形式。 Title可选的。在对话框标题栏中显示的字符串表达式。如果省略 title，则将应用程序名放在标题
9、栏中。 Helpfile可选的。字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。 Context可选的。数值表达式，由 帮助文件的作者指定给适当的帮助主题的帮助上下文编号。解题步骤： 第一步：建立菜单项。程序中用到的菜单项及其属性见表 3-2。第二步：编写程序代码。 参考代码： Private Sub vbNew_Click() MsgBox“新建 ”， vbOKOnly End Sub Private Sub vbOpen_Click() MsgBox“打开 ”， vbOKOnly End Sub Private Sub vbSave_Click() MsgBox“存盘 ”， v
10、bOKOnly End Sub 第三步：调试并运行程序 。 第四步：按题目要求存盘。 (2)在窗体上建立好控件后，先设置控件的属性值，再编写事件过程。 文本框中显示的内容由 Text属性设置，命令按钮的标题由 Caption属性设置，单击命令按钮触发 Click事件。解题步骤：第一步：建立菜单项。程序中用到的控件及其属性见表 3-3。 第二步：编写程序代码。 参考代码： Private Sub Cmd1_Click() Dim i As Integer Dim temp As Long temp = 0 For i = 100 To 200 If isprime(i) Then temp =
11、temp + i End If Next Text1.Text = temp putdata “out.txt“， temp End Sub 标准模块代码： Option Explicit Sub putdata(t_FileName As String， T Str As Variant) Dim sFile As String sFile = “ Close #1 End Sub 参考代码： Dim i(1 To 100) As Integer Private Sub Cmd1_Click() Dim j As Integer j = 0 Open App. Path& “in.txt“
12、For Input As #1 For j = 1 To 100 Input #1, i(j) Next Close #1 For j = 1 To 100 Text1.Text = Text1.Text & i(j) & Space(5) Next End Sub Private Sub Cmd2_Click() Dim temp As Long Dim j As Integer For j = 1 To 100 If i(j) = 400 And i(j) 800 Then temp = temp + i(j) End If Next Text1.Text = temp putdata temp End Sub 第三步：调度并运行程序。 第四步：按题目要求存盘。
