1、VB机试模拟试卷 81及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Forml的窗体上建立一个名称为 Commandl、标题为 “输出 ”的命令按钮，再建立一个名称为 Textl的文本框，字体为四号、常规、黑体，编写适当的事件过程，要求程序运行后，如果单击 “输出 ”命令按钮，则在文本框上显示 “模拟考试 ”，如图 311所示。程序中不能使用任何变量，直接显示字符串。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjl frm，工程文件名为 sjl Vbp。 (2)在名称为 Forml的窗体上画一个标签，名称 为 Labell，边框属性为 1；再画一个命令按钮，名称为 C
2、ommandl，标题为 “最右端 ”，运行界面如图 312所示。请编写适当的事件过程，使运行界面在运行时，单击 “最右端 ”按钮，则标签水平移动到窗体的最右端。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 sj2 vbp，窗体文件名为sj2 frm。 二、简单应用题（ 40分） 2 (1)在窗体上建立一个名称为 Labell的标签，然后建立两个主菜单，标题分别为“命令 ”和 “帮助 ”，名称分别为 vbCommand和 vbHelp，其中 “命令 ”菜单包括“Iteml”、 “Item2”和 “Item3”三个子菜单，名称分别为 vbCommandl、 vbComm
3、and2和vbCommand3。要求程序运行后，如果在 “命令 ”菜单中选择 “Iternl”，则在标签上显示 “第一项 ”；如果选择 “Itern2”，则在标签上显示 “第 2项 ”；而 “Item3”不可用，程序运行的效果如图 523所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sj3 frm，工程文件名为 si3 vbp。 (2)在考生文件夹下有工程文件sj4 vbp，窗体文件 sj4 fm，该程序是 不完整的，请在有 “?”的地方填人正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。修改后的工程及窗体文件，均以原名保存在考生文件夹下。 本
4、题描述如下：在窗体上有一个名为 Textl的文本框，有两个命令按钮，名称分别是 Commandl和Command2、标题分别是 “读人数据 ”和 “计算保存 ”，如图 524所示。要求程序运行后，单击 “读人数据 ”按钮，弹出对话框，输入 10个整数，将所有输入的数字保存到数组 a中，并在文本框内显示出来。随后 “读人数据 ”按钮变为无效。单击 “计算保存 ”按钮，求出 以数组 a中的各元素的值为上限的所有数的和，例如，a(2)=3，则令 a(2)=1+2+3=6。把计算后的数组的总和写人考生文件夹下的文本文件out4 txt中，最后 “计算保存 ”按钮也变为无效。注意：去掉程序中的注释符 “
5、”，把程序中的 “?”改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 三、综合应用题（ 30分） 3 在窗体 Forml上建立 3个菜单 (名称分别为 vbRead、 vbCalc和 vbSave，标题分别为 “读数 ”“计算 ”和 “存盘 ”)；然后绘制一个文本框 (名称为 Textl， MultiLine属性设置为 True， ScrollBars属性设置为 2)，如图 615所示。程序运行后，如果执行 “读数 ”命令，则读人in34 txt文件中的 100个整数，放入一个数组中，数组的下界为 1；如果执行 “计算 ”命令，则把该数组中可以被
6、3整除的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果执行 “存盘 ”命令，则把所求得的和存人考生文件夹下的 out34 txt文件中。 在考生文件夹下有一个工程文件 sj5 vbp，考生可以装入该文件。窗体文件 sj5 frm中的 ReadData过程可以把 in34 txt文件中的 100个整数读人 Arr数组中；而 writeData过程可以把指定的整数值写到考生文件夹指定的文件中 (整数值通过计算求得，文件名为 out34 txt)。注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为 sj5 vbp，窗体文件名仍为 sj5 frm。 VB机试
7、模拟试卷 81答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，将一个 Text控件和一个Command控件添加到窗体上。 Text的名称为 Textl， Text属性为空， Font属性为四号、常规、黑体， Command的名称为 Commandl， Caption属性为 “输出 ”。双击Commandl命令按钮，编写如下代码： Private Sub Commandl_Click() Textl Text=“模拟考试 “ End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，新建 “标准 EXE”工程，将一个 Label控件
8、和一个 Command控件添加到窗体上。 Label的名称为 Labell、 Caption属性为空， BorderStyle属性为 1， Command的名称为Commandl， Caption属性为 “最右端 ”。双击 Commandl命令按钮，编写如下代码： Private Sub Command l_Click() Labell Left=Forml Width-Labell Width将 Labell移动到最右端 End Sub 单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)根据题意，新建 “标准 EXE”工程， Visual Basic中的
9、菜单是通过菜单编辑器来设计的。每个菜单项对应一个名称 (不能重复 )和标题；通过菜单编辑器上的箭头可设计多重菜单； “有效 ”复选按钮用于设置该菜单项在程序运行时是否有效。 根据题意，选择 “工具 ”“ 菜单编辑器 ”命令打开菜单编辑器，添加以下菜单项： 然后再添加一个Label控件，名称为 Labell、 Caption属性为空。设置完成后在代码窗口中编写如下代码： Private Sub vbCommandl_Click() 选中 Iteml Labell Caption=“第一项 “ End Sub Private Sub vbCommand2_Click() 选中 Item2 Labe
10、ll Caption=“第二项 “ End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，将两个 Command控件添加到窗体上， Command的名称分别为 Commandl和 Command2， Caption属性分别为“读人数据 ”和 “计算保存 ”。双击 Command控件进入代码窗口，编写如下代码： Dim a(10)As Integer Private Sub Commandl Click() Dim i As Integer For i=1 To 10 利用 For循环将 10个数读入到数组中 a(i)=Val(InputBox(“请输入 “) Next i Com
11、mandl_Enablcd=False End Sub Private Sub Command2_Click() Dim i As Integer Dim j As Integer Dim total As Long Dim trap As Long total=0 For i=1 To 10 tmp=0 For j=1 To a(i) 对每个数都进行一个求与前面数和的操作 tmp=tmp+j Next j total=total+tmp Next i Open”App Path& out4 txt“For Output As#1打开文件准备写入 Print#1， total将结果写入文件 C
12、lose#1 End Sub 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 打开题目所给工程文件。 执行 “工具 菜单中的 “菜单编辑器 ”命 令，打开菜单编辑器；在 “标题 ”栏中输入“读数 ”，在 “名称 ”栏中输人 “vbRead”；单击 “下一个 按钮，在 “标题 栏中输入 “计算 ”，在 “名称 ”栏中输入 “vbCale”；单击 “下一个 ”按钮，在 “标题 ”栏中输入 “存盘 ”，在 “名称 ”栏中输入 “vbSave”。 单击工具箱中的 TextBox控件图标，在窗体上拖拉出一个文本框，在属性窗口设置其名称为 Textl， Multiline
13、属性设置为 True， ScrollBars属性设置为 2。 打开代码窗口输入如下代码： Private Sub vbCalc_Click() Textl Text=“ Fori=1Tol00 If Arr(i)Mod3=0Then Textl Text=Textl Text & Arr(i)&Space(5) temp=temp+Arr(i) End If Nexti Printtemp End Sub Private Sub vbRead_Click() ReadData End Sub Private Sub vbSave_Click() WriteData“out txt“， temp End Sub 按要求保存文件即完成本题。
