1、VB机试模拟试卷 57及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上建立一个名称为 Commandl，标题为 “输出 ”的命令按钮，编写适当的事件过程。程序运行后，如果单击 “输出 ”按钮，则在 Forml窗体上显示 “模拟试题 ”，如图 461所示。程序中不能使用任何变量，直接显示字符串。注意：保存时必须存放在考生文件夹下，窗体文件名为 sjl frm，工程文件名为sjl vbp。 (2)在名称为 Forml的窗体 上建立两个名称分别为 Commandl和Command2、
2、标题分别为 “按钮 l”和 “按钮 2”的按钮，一个名称为 Labell的标签。编写适当的事件过程，要求程序运行后，如果单击 “按钮 1”按钮，则在标签上显示字符串 “显示 1”；如果单击 “按钮 2”按钮，则在标签上显示字符串 “显示 2”。程序中不能使用任何变量，直接显示字符串，如图 462所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sj2 frm，工程文件名为 sj2 Vbp。 二、简单应用题（ 40分） 2 (1)在窗体上绘制一个名称为 Textl的文本框 ，然后建立两个主菜单，标题分别为“系别 ”和 “帮助 ”，名称分别为 vbMenu和 vbHelp，其中 “系别 ”菜
3、单包括 “工商管理 ”、 “信息科学与工程 ”、 “机械工程与自动化 ”3个子菜单，名称分别为 vbMenul、vbMenu2、 vbMenu3。要求程序运行后，如果在 “系别 ”的下拉菜单中选择 “工商管理 ”，则在文本框内显示 “金融学、国际贸易学 ”；如果选择 “信息科学与工程 ”，则在文本框内显示 “系统工程、计算机应用技术 ”；如果选择 “机械工程与自动化 ”，则在文本框内显示 “机械工程、车辆电子工程 ”(要求：不能使用任何变量，直接显 示字符串 )。程序运行时，选择 “工商管理 ”选项，程序运行窗体显示如图 293所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sj3
4、frm，工程文件名为 sj3 Vbp。 (2)在考生文件夹中有文件 sj4 vbp及其窗体文件 sj4 frm，该程序是不完整的。窗体上面有两个名称分别为 Commandl和 Command2、标题分别为“输入维数 ”和 “计算 ”的命令按钮。程序运行后，如果单击 “输人维数 ”命令按钮，则对数组 a的维数进行赋值，初始化数组 (通过等式 a(i， j)=i*j计算 )；如果单击 “计算 ”命令按钮，则求 出二维数组 a(i， j)的各元素之和，并在文本框中显示出来。请设置相应的控件并编写程序实现该功能。程序运行效果如图 294所示。注意：请在有 “?”的地方填入正确内容，然后删除 “?”及代
5、码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件和文件名。考生完成程序编写后，将工程文件与窗体文件保存到考生文件夹下，文件名分别为 sj4 vbp与sj4 frm。 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sj5 vbp，程序代码中已经写入部分代码，要求根据下面的描述在窗体模块中定义 3个名称分别为 readdatal、 readdata2和 writedata的 Sub过程。 请先装入工程文件 sj5 vbp，然后完成以下操作： 在名称为 Forml的窗体上画 3个命令的按钮，其名称为 Commandl、 Command2和 Command3，
6、标题分别为 “读取数据 ”、 “计算 ”和 “存盘 ”。程序运行后，如果单击 “读取数据 ”按钮，则读入 inl txt和 in2 txt文件中的各 25个整数，分别放人 a1和 a2两个数组中：如果单击 “计算 ”按钮，则把两个数组中对应下标的元素相加，其结果放人第 3个数组中 (即：第一个数组的 第 n个元素加上第 2个数组的第 n个元素，其结果作为第 3个数组的第 n个元素。这里的 n为 1， 2， ， 25)，然后计算第 3个数组各元素之和，并把所求得的和在窗体上显示出来；如果单击 “存盘 ”按钮，则把所求得的和存人考生文件夹的 out5 txt文件中。程序运行时的窗体界面如图 275
7、所示。注意：考生只需添加必要的控件，并将程序代码补充完整，使其实现上述功能即可。考生不得修改窗体文件中已经存在的程序，必须把求得的结果用 “存盘 ”按钮存入考生文件文件夹下的 out5 txt文件中，否则没有成绩。存盘时，工程文件名仍为 sj5 vbp，窗体文件名仍为 sj5 frm。 VB机试模拟试卷 57答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)命令按钮的标题通过 Caption属性设置，单击命令按钮触发Click事件；在窗体上打印显示内容使用 Print方法。根据题意，将一个命令按钮添加到窗体中，将其名称设为 Commandl、 Caption属性为 “输出 ”。双
8、击命令按钮进入代码窗口，编写如下代码： Private Sub Commandl_Click() Print”模拟试题 ” End Sub 单击 按钮运行程序，并按要求 保存。 (2)根据题意，将两个命令按钮和一个标签添加到窗体中，将两个命令按钮 的名称分别设为 Commandl和 Command2，Caption属性分别设为 “按钮 1”和 “按钮 2”，标签的名称为 Labell、 Caption属性为空，设置完成后双击 Commandl进入代码窗口，编写如下代码： Private Sub Commandl_Click() Labell Caption=“显示 1“ End Sub Pri
9、vate Sub Command2 Click() Labell Caption=“显示 2“ End Sub 单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，单击窗体空白处，在弹出的快捷菜单中选择 “菜单编辑器 ”命令，打开菜单编辑器，输入以下菜单项： 编写如下代码： Private Sub vbMenul Click() Textl Text=“金融学、国际贸易学 “ End Sub Private Sub vbMenu2 Click() Textl Text=“系统工程、计算机应用技术 “ End Sub Pr
10、ivate Sub vbMenu3 Click() Textl Text=“机械工程、车辆电子工程 “ End Sub 单击 按钮运行程序，并按要求保存。 (2)本题主要通过 InputBox函数给变量 a、 b赋值，然后利用 a(i，j)=i*j对数组进行初始化，即求出 a(i， j)中各元素，最后再对各元素进行求和。补充后的代码如下： Dim a As Integer Dim b As Integer Private Sub Commandl Click() a=Val(InputBox(“输入维数： “) 利用输入对话框输入维数 b=Val(InputBox(“输入维数： “) End
11、Sub Private Sub Command2 Click() Dim total As Long total=0 Dim i As Integer Dim j As Integer For i=1 To a利用双层循环遍历所有数组的数 For j=1 To b total=total+i*j 求和 Next j Next i Textl Text=total将结果显示在 Textl中 End Sub 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 Visual Basic中要对文件操作， 首先要先打开一个文件，然后对此文件进行读或写的操作，操作完成后，关闭
12、文件。打开文件的基本格式为： Open FileName For Mode As#FileNumber。打开方式主要有 Output、 Append、 Input、Random等几种方式。以 Output、 Append、 Input方式打开的文件进行的读写操作都是以顺序方式进行的。其中 Output、 Append打开的文件主要用来输出数据，与Print#、 Write#等方法配合使用；以 Input方式打开的文件主要用来输入数据，它与Input#、 LineInput#语句配合使用。以 Random方式打开的文件主要用于随机文件的读与写，它不分 Output与 Input，统一使用 Ran
13、dom标识。本题原程序三个命令按钮的 Click事件过程已给出，要求考生定义三个读或写文件的过程。文本文件是顺序文件，三个过程都用 Open语句打开文件。其中 WriteDate过程以 Output的方式打开文件，并使用 Print#语句输出数据； readdatal与 readdata2以 Input的方式打开文件，并使用 Input#语句读入数据。 Close#语句用于关闭打开的文件。 App Path用于取得当前工程文件所在的文件夹路径， App Path&“ “&Filename指明了文件的物理位置。语句： Option Base l用于修改数组的下标默认从 1开始编号。 题目给出的源
14、程序如下： Option Base 1 Dim al(25)As Integer Dim a2(25)As Integer Dim Sum As Integer Private Sub Commandl_Click() readdatal readdata2 End Sub Private Sub Command2 Click() Dim a3(25)As Integer Sum=0 For i=1 To 25 a3(i)=al(i)+a2(i) Sum=Sum+a3(i) Next i Print“Sum=“； Sum End Sub Private Sub Command3 Click()
15、 writedata“out5 txt“， Sum End Sub根据题意， readdatal、 readdata2和 writedata过程的参考代码如下： Sub readdatal() Open App Path&“ inl txt“For Input As#1 For i=1 To 25 Input#1， al(i) Next i Close#1 End Sub Sub readdata2() Open App Path&“in2 txt“For Input As#1 For i=1 TO 25 Input#1， a2(i) Next i Close#1 End Sub Sub writedata(FName As String， data As Integer) Open App Path&“ out5 txt“For Output As#1 Print#1， data End Sub单击 按钮运行程序，并按要求保存。
