1、VB机试模拟试卷 69及答案与解析 一、基本操作题（ 30分） 1 (1)在窗体上绘制一个名称为 Textl的文本框，然后建立一个主菜单，标题为 “操作 ”，名称为 Op。该菜单有两个子菜单，其标题分别为 “显示 和 “退出 ”，其名称分别为 Dis和 Exit，编写适当的事件过程。程序运行后，如果单击 “操作 ”菜单中的“显示 命令，则在文本框中显示 “计算机考试 ”；如果单击 “退出 ”命令，则程序结束。程序的运行情况如图 41所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sj1 frm，工程文件名为 sj1 vbp。 (2)在名为 Form1的窗体上绘制一个名为 Cmd1、标
2、题为 “显示 ”的命令按钮。编写适当的事件过程，使程序运行后，若单击 “显示 ”命令按钮，则在窗体上显示 “计算机等级考试 Visual Basic课程 ”。程序运行情况如图 42所示。注意：不要使用任何变量，直接显示字符串；文件必须存放在考生文件夹中，窗体文件名为 sj2 frm，工程文件名为sj2 vbp。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有一个工程文件 sj3 vbp，相应的窗体文件为 sj3 frm。其功能是产生 40个 0 800的随机整数 ，放入一个数组中，然后输出其中的最小值。程序运行后，单击名称为 Commandl的命令按钮，标题为 “输出最小值 ”，即可求
3、出其最小值，并在 Textl文本框中显示出来，如图 334所示。这个程序不完整，请把它补充完整，并能正确运行。 注意：去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sj4 vbp，相应的窗体文件为 sj4 frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出 100 800范围内能被 3整除和能被 5整除的整数的个数，并在文本框中显示出来，如图 335所示。在窗体的代码窗口中，已给出了部分程序。注意：请勿改动程序中的其他任何内容，只将
4、“?”处的代码编写完整。最后把修改后的文件按原文件名存盘。 三、综合应用题（ 30分） 3 在考生文件夹下有工程文件 sj5 vbp及窗体文件 sj5 frm。在名为 Forml的窗体上有 5个 Label控件和 2个命令按钮，数据文件 inl3 dat存放学生的编号、姓名、性别和体重，如图 135所示。程序运行后，按 “Begin”按钮后，能从考生文件夹下的 inl3 dat中读出数据并把体重大于平均体重的学生的所有数据写入考生文件夹下的 outl3 dat文件中。执行完毕， “Begin”按钮变成 “完成 ”按钮，且无效。 注意：该程序不完整，请在有问号 “?”的地方填入正确内容，然后删除
5、问号 “?”及所有注释符 “”，但不能修改其他部分。存盘时不得改变文件名和文件夹，相应的数据文件也保存到考生文件夹下，否则没有成绩。 VB机试模拟试卷 69答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)本题主要考查菜单的使用。在 Visual Basic中，菜单也被看作控件，具有属性和事件，菜单在 “菜单逻辑器 ”对话框中建立。通过 End语句结束程序的运行。 建立界面并设置控件属性。菜单及控件属性设置见下表： 编写参考代码如下： Private Sub Dis Click()Text1 Text=“计算机考试 “End SubPrivate Sub Exit Click()
6、EndEnd Sub 调试并运行程序。 按题目要求存盘。 (2) 新建一个名为 Forml的窗体。 单击丁具箱中的 CommandButton控件图标，在窗体上拖拉出一个命令按钮， 在属性窗口设置该命令按钮名称为 Cmdl，标题为 “显示 ”。 打开代码窗口输入如下代码： Private Sub Cmdl_Click()Forml Print“计算机等级考试 Visual Basic课程 “End Sub 按要求保存文件即完成本题。 二、简单应用题（ 40分） 2 【正确答案】 (1)在数组求最小值中，定义一个变量，用来存放数组中的最小值，在数组比较开始前，对变量进行赋初始值。在比较中，使用循
7、环让变量和数组中 的每个元素进行逐个比较，每次比较后变量中保存两个数中最小的数，循环结束后，变量中存放的数即为最小值。 由于要产生随机数，所以要调用 Rnd()函数，Rnd函数返回小于 1，但大于或等于 0的值，其语法格式为： Rnd(number)。number参数是可选的，是 Single或任何有效的数值表达式。 number的值决定了Rnd函数生成随机数的方式。为了生成某个范围内的随机整数，可使用公式：Int(upperbound-lowerbound+1)*Rnd+lowerbound)。这里， upperbound是随机数 范围的上限，而 lowerbound则是随机数范围的下限。具
8、体代码如下： Private Sub Commandl_Click() Dim a(40)As Long Dim i As Integer Dim tmp As Integer For i=1 To 40 a(i)=Rnd()*(8000) 产生 0 800的随机数，放人数组中 Next i tmp=a(1) For i=2 To 40 If tmpa(i)Then tmp=a(i) 获得最小值 End If Next i Textl Text=tmp在 Textl中显示最小值 End Sub 单击 按钮运行程序，并按要求保存。 (2)本题使用 Mod运算符来判断一个数是否可以被另一个数整除，
9、如果计算结果为 0，则表示可以整除，否则不能整除。具体代码如下： Private Sub Commandl_Click() Dim i As Integer Dim num As Integer num=0 For i=100 To 800for循环从 100到 800 If i Mod 3=0 And i Mod 5=0 Then num=num+1 如果能同 时被 3和 5整除，计数加 1 End If Next i Textl Text=num在 Textl中输出个数 End Sub 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 根据题目 1打开题目所
10、给工程文件。 2打开代码窗口输入如下代码： Private Sub Cmdl Click() Dim i As Integer Dim total As Integer Dim aver As Single Dim num(10)， namstring(10)， sexstring(10)， wages(10) MyFile=App Path&“ “&“inl3 dat“ MyFile2=App Path&“ “&“outl3 dat“ Open MyFilel For Input As#1 Open MyFile2 For Output As#2 For i=1 To 10 Input#l， num(i)， namstring(i)， sexstring(i)， wages(i) total=total+wages(i) Next i aver=total 10 For i=1 To 10 If wages(i)aver Then Write#2， num(i)， namstring(i)， sexstring(i)， wages(i) Next i Cmdl Caption=“完成 “ Cmd1 Enabled=False End Sub 3按要求保存文件即完成本题。
