1、VB机试模拟试卷 170及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在Forml的窗体上画一个名称为 Pl的图片框，然后建立一个主菜单，标题为 “操作 ”，名称为 op，该菜单有两个子菜单，其标题分别为 “显示 ”和 “清除 ”，名称分别为 Dis和 Clear。，编写适当的事件过程。程序运行后，如果单击 “操作 ”菜单中的 “显示 ”命令，则在图片框中显示 “等级考试 ”；如果单击 “清除 ”命令，则清除图片框中的信息。程序的运行情况如图 1-15l所示。注意 ：存盘时必须存放在考生文件夹下，工程文件
2、名为 sjtl vbp，窗体文件名为 sjtl frm。程序中不得使用任何变量。(2)在 Forml的窗体上画一个列表框，名称为 Ll，通过属性窗口向列表框中添加 4个项目，分别为 “AAAA”、 “BBBB”、 “CCCC”和 “DDDD”，编写适当的事件过程，过程中只能使用一条命令。程序运行后，如果双击列表框中的某一项，则把该项添加到列表框中。程序的运行情况如图 1-152所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2.frm。二 、简单应用题（ 40分） 2 (1)在名称为 Forml的窗体上画一个名称为 Textl的文本框，再建立一个名
3、称为Format的弹出式菜单，含三个菜单项，标题分别为 “加粗 ”、 “斜体 ”、 “下划线 ”，名称分别为 M1、 M2、 M3。请编写适当的事件过程，在运行时当用鼠标右键单击窗体时，弹出此菜单，选中一个菜单项后，则按所选菜单标题设置文本框中文本的格式，如图 1-88所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt3 vbp，窗体文件名为 sjt3 frm。 (2)在考生文件夹下有一个工程文件 sjt4.vbp， 含有 Forml和 Form2两个窗体， Forml为启动窗体，窗体上的控件如图 1-89(a)所示。程序运行后，在 Forml窗体的文本框中输入有关信息 (“密码 ”
4、框中显示 “*”字符 )，然后单击 “提交 ”按钮则弹出 “确认 ”对话框 (即 Form2窗体 )，并在 Form2中显示输入的信息，如图 1-89(b)所示。单击 “确认 ”按钮则程序结束，单击 “重输 ”按钮，则 Form2消失，回到 Forml窗体。在给出的窗体文件中已经给出了程序，但不完整。要求： 把 Form1的标题改为 “注册 ”，把 Form2的标题改为“确认 ”； 设置适当的属性， 使 Form2标题栏上的所有按钮消失 (如图 1-89(b)所示 )； 去掉程序中的注释符，把程序中的 ?改为正确的内容注意：不能修改程序中的其他部分，标题等属性的修改只能在属性窗口中进行。最后把
5、修改后的文件按原文件名存盘。 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sjt5 vbp，相应的窗体文件为 sjt5 frm，此外还有一个名为 datain txt的文本文件，其内容如下：32437658281298573142536475869713243546576879805937程序运行后单击窗体，将把文件 datain txt中的数据输入到二维数数组 Mat中，在窗体上按 5行、 5列的矩阵形式显示出来，然后交换矩阵第二列和第四列的数据，并在窗体上输出交换后的矩阵，如图 1-15所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运
6、行。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容 (可以是多行 )，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 VB机试模拟试卷 170答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 l小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体 Forml中画一个图片框，在属性设置窗口中将其 Name属性值设置为 Pl。 步骤2：选择【工具】 【菜单编辑器】命令，打开菜单设计器，如表 2-84中的设置建立菜单项。 步骤 3：打开代码编辑窗口，编写以下事件过程： 参考代码： PriVate Sub Clea_Click()
7、P1 Cls End Sub PriVate Sub Dis_Click() P1 Print“等级考试 “ End Sub 步骤 4：按要求将文件保存至考生文件夹中。 第 2小题 【操 作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体 Forml中加入一个列表框，在属性设置窗口中将其 Name属性设置为 L1，在其List属性中添加四个项目，依次为 “AAAA”、 “BBBB”、 “CCCC”和 “DDDD”。注意：每输入完一项后按键换行再输入下一项。 步骤 2：打开代码编辑窗口，编写列表框的 DblClick事件过程： 参考代码： PriVate Sub L1_DblClick(
8、) L1 AddItem L1 Text End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 l小题 本题需用菜单设计器建立菜单，并编写 “显示 ”和 “清除 ”菜单项的单击事件过程。 第 2小题 列表框控件 (ListBox)用于显示可供单一或多个选择的列表项，给列表框添加列表项既可以在设计阶段通过其 List属性设置加入，也可在程序运行时使用Addltem方法加入。 双击列表框中的某个项目，将触发其 DblClick事件。要实现双击列表框中的某一项，就把当前中的内容加入列表框，只需在 DblClick事件过程中编写添加项目的语句即可。 二、简单应用题（ 40分）
9、2 【正确答案】 第 l小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，选择【工具】 【菜单编辑器】命令，打开菜单设计器，如表 2-46中的设置建立菜单项。 步骤 2：在窗体中画一个文本框，取名为 Textl。 步骤 3：打开代码编辑窗口，分别编写 “加粗 ”、 “斜体 ”和 “下划线 ”菜单项的事件过程。 参考代码： PriVate Sub Form_MouseDown(Button As Integer， Shift As Integer， X As Single， Y As Single) If Button=2 Then PopupMenu format End If E
10、nd Sub PriVate Sub m1_Cl ick() Textl Font Bold=True End Sub PriVate Sub m3_Click() Textl Font Underline=True End Sub PriVate Sub m2_Click() Textl Font Italic=True End Sub 步骤 4：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1:打开考生 文件夹下的本题工程文件sjl4 vbp。 步骤 2：设置两个窗体的相关属性，其属性及值如表 2-47所示。步骤 3：打开 Forml的代码编辑窗口，去掉程序中的注释符
11、“”，将问号 “?”改为正确的内容。 参考代码： Form2 Show Form2 Print Forml Frame1 Caption； “： “； If Forml Opl(k) Value then Text2 PasswordChar=“*“ 步骤 4：按要求将文件保存至考生文件夹中。 【试题解析】 第 l小题 鼠标事件分点击 事件和状态事件。点击事件有单击事件 (Click)和双击事件(DblClick)，不区分左、右键；状态事件有按下事件 (mousedown)、移动事件(mousemove)和弹起事件 (mouseup)。 状态事件涉及 Button、 Shift两个参数：But
12、ton参数是一个整数，值可能为 l(左键 )、 2(右键 )或 4(中间键 )； Shift参数也是一个整数，用来代表用户是否按下 键 (值为 1)、 键 (值为 2)、 键(值为 4)或这些键的组合。 弹出式菜单是显示于窗体之上，独立于菜单 栏的浮动式菜单。 PopupMvnu方法可在对象上的当前鼠标位置或指定的坐标位置显示弹出式菜单。 要创建本题的弹出式菜单需先用菜单编辑器来建立菜单，并将其主菜单项的可见 (即 Visible)属性值设置为 False，然后在窗体的 MouseDown(或 MouseUp)事件过程中，判断该事件的 Button参数值是否为 2，若是则执行窗体的 Popup
13、Menu方法来显示菜单。 在相应菜单项的 Click事件过程中，通过设置文本框的 FontBold属性值、Fontlmlic属性值、 FontStrikethru属 性值和 FontUnderline属性值为 True，可分别将文本框中文本样式显示为加粗、斜体、删除线和下划线。 第 2小题 在实际应用中，较为复杂的应用程序通常由多个窗体组成，且可设置其中一个为启动窗体，只有启动窗体才能在运行程序时自动加载并显示出来。 在多个窗体组成的程序中，可以在一个窗体中读取另一个窗体中控件的属性值，其语法格式为：窗体名称控件名称属性名称。 标准模块 (文件扩展名为 BAS)是应用程序内其他模块可访问的过程
14、和声明的容器。它们可以包含变量、常数、类型、外部过程和全局过程的全局 (在整个应用程序范围内有效的 )声明或模块级声明。 在 Forml的单击事件中，首先显示出 Form2，然后按照要求在 Form2上先后显示出 Forml中的信息，其中单选按钮组需要使用 If语句判断是哪个按钮被选中。文本框的 PasswordChar属性可以设置文本框中显示的密码形式。 三、综合应用题（ 30分） 3 【正确答案】 【操作步骤】 步骤 1：打开本题对应工程文件 sjt5 vhp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参 考代码： Dim Mat (M， N)
15、 AsInteger Open App Path&” ”&”datain txt”For Input As #1 Input#1， Mat(i， j) Mat(i， 4)=t 步骤 3：按要求将文件保存在考生文件夹中。 【试题解析】 数组是一组具有相同类型和名称的变量的集合。这些变量称为数组的元素，每个数组元素都有一个编号，这个编号叫做下标，我们可以通过下标来区别这些元素。数组元素的个数有时也称为数组的长度。数组定义；定长 数组的长度是在定义时就确定的，在程序运行过程中是固定不变的。其定义格式为： Dim数组名 (【下界 To】上界 )【 As类型名】 其中， “下界 ”和 “类型名 ”是可选
16、的。所谓下界和上界，就是数组下标的最小值和最大值。缺省下界时，默认下界为 0。注意：当程序中有 Option Base 1语句时，它的作用 是限定数组下标的下限默认为 1。 本题原程序的大致设计思路是：程序运行后单击窗体，则打开数据文件datain txt并从中读取数据，并依次存入二维数组 Mat(下界为 l，上界为 5)的各元素中，故第一个 ?处 是定义数组，应改为： Mat(M， N)AsInteger第两个 ?处是指明打开文件的方式，应改为： ForInput：第三个 ?处是将数据文件中的数据读入并赋值给数组元素，应改为： Input#1， Mxc(i， j)；然后用一个嵌套的 For循环将数组 Mat中的数据在窗体上按 5行、 5列的矩阵形式显示出来，接着再用一个 For循环将数组 Mat中第 2维下标为 2和第 2维下标为 4的元素对应 (即第 l维下标一致 )交换值，交换值时引入一个中间变量 t，故第 4个 ?处是将中间变量 t的值赋给数组元素 Mat(i， 4)，应改为： Mat(i， 4)=t。最后将交换后的数组 Mat中的数据，再按 5行、 5列的矩阵形式在窗体上显示出来。
