1、VB机试模拟试卷 182及答案与解析 一、基本操作题（ 30分） 1 (1)在 Forml的窗体上画一个名称为 I abell的标签，然后建立一个主菜单，标题为 “命令 ”，名称为 Com，该菜单有两个子菜单，其标题分别为 “输出 ”和 “关闭 ”，其名称分别为 Pri和 Close。编写适当的事件过程，使程序运行后，如果单击 “命令 ”菜单中的 “输出 ”命令，则在标签中显示 “模拟考试 ”；如果单击 “关闭 ”命令，则结束程序运行。程序运行时，单击 “输出 ”命令的效果如图 40-1所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjl vbp，窗体文件名为 sjl Inn。 (
2、2)在窗体上画一个列表框，名称为 Listl，通过 “属性 ”窗口向列表框中添加 5个项目，分别为 “足球 ”、 “篮球 ”、 “排球 ”、 “乒乓球 ”和 “羽毛球 ”，单击列表框中的一项，则该项就从列表框中删除。程序的运行情况如图 40-2和图 40-3所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sj2 vbp，窗体文件名为sj2 frm。 二、简单应用题（ 40分） 2 (1)在名称为 Forml的窗体上画两个图片框，名称分别为 Pl、 P2，高度均为1900，宽度均为 1700。通过 属性窗口把图片文件 picl bmp放入 P1中，把图片文件 pic2： jpg放入 P2
3、中；再画一个命令按钮，名称为 Cl，标题为 “交换图片 ”(如图l-208所示 )。编写适当的事件过程，使得在运行时，如果单击 “交换图片 ”按钮，则在 Pl中显示 pic2 jpg，在 P2中显示 pic1 bmp。程序中不得使用任何变量，也不能使用第三个图片框。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt3 vbp，窗体文件名为 sjl3 frm。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，请在窗体上画两个复选框，名称分别为 Chl、 Ch2，标题分别为 “程序设计 ”、 “数据库原理 ”；然后画一个文本框，名称为 Textl；再画一个命令按钮，名称为 Cl，标题为
4、“确定 ”(如图 1-209所示 )。请编写适当的事件过程，使得在运行时，选中复选框并单击 “确定 ”按钮，就可以按照下表的要求把结果显示在文本框中。存盘时，工程文件名为 sjt4 vbp，窗体文件名为 sjt4 frm。注意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须进行产生表 1-9一个结果的操作。三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 execise39.vbp及窗体文件 execise39.frm。在窗体Form1上给出了所有控件和不完整的程序，请去掉程序中的注释符 “”，把程序中的问号 “?”改为正
5、确的内容。 本程序的功能是：如果单击 “读取 ”按钮，则把考生目录下的 in39.txt文件中的 15个姓名读到数组 a中，并在窗体上显示这些姓名：当在Text1中输入一个姓名，或一个姓氏后，如果单击 “查找 ”按钮，则进行查找，若找到，就把所有与 Text1中相同的姓名或所有具有 Text1中姓氏的姓名显示在 Text2中 (如下图 所示 )：若未找到，则在 Text2中显示 “不存在 !”：若 Text1中没有查找内容，则在 Text2中显示 “未输入查找内容 !”。 注意： 考生不得修改程序的其他部分和控件的属性，最后把修改后的文件按原文件名存盘。 VB机试模拟试卷 182答案与解析 一
6、、基本操作题（ 30分） 1 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，将一个标签添加到窗体中，其名称设为 Labell、 Caption属性为空，按 “Ctrl+E”组台键打开菜单编辑器，在其中添加如下菜单项： 单击 “确定 ”按钮，完成菜单设计，在对应事件窗口中编写如下代码： Private Sub Close_Click() 单击关闭命令的处理函数 Unload Me End Sub Private Sub Pri_Click() 单击输出命令的处理函数 Labell Caption=“模拟考试 “ End Sub 单击 按钮运行程序，并按要求保存。 (2)本题考查用 R
7、emoveItem方法删除列表框中指定的项目。其格式为：列表框 RemoveItem索引值。 RemoveItem方法从列表框中删除以 “索引值 ”为 地址的项目，该方法每次只能删除一个项目。 Listlndex属性是已被选中的表项的位置。如果没有选中任何项， ListIndex的值将设置为 -1。根据题意，新建“标准 EXE”工程，将一个 List控件添加到窗体中，其名称为 Listl，在其 List属性栏中输入元素，每输入一个后按 “Ctrl+enter”组合键换行输入下一个元素，当输入完成后，按回车键。双击 List进入代码编写窗口，编写如下代码： Private Sub Listl_C
8、lick() Listl Removehem Listl ListIndexremoveltem的参数是索引号 End Sub 单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 第 1小题 【操作步骤】 步骤 l：新建一个 “标准 EXE”工程，在窗体 Forml中如表 2-122画出所列控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写命令按钮的 Click事件过程： 参考代码： PriVate Sub C1_Click() Picl Picture=LoadPi cture(App Path+ “ pic2 bmp“) Pic2 Picture=Load
9、Picture(App Path+ “picl bmp“) End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 l：打开考生文件中的本题工程文件 sjt3 vbp，如表 2-123在窗体中画出控件并设置属性。 步骤 2：在代码编辑窗口，编写 “确定 ”按钮的单击事件。 参考代码： Private Sub C1_C1ick() Textl Text=“我选的课是 “ If Chl Value Then Textl Text=Textl Text+Chl Caption End If If Ch2 Value=1 Then Textl Text=Textl
10、Text+Ch2 Caption End If End Sub 步骤 3：按要求将文件保存垒考生文件夹中。 【试题解析】 第 1小题 本题要求在程序运行后，单击 “交换图片 ”命令按钮时，交换两个图片框中的图片。因此可在命令按钮的 Click事件过程中，通过 LoadPicture()函数分别为两个图片框重新加载图片。 App Path可返回当前工程文件所在的文件夹路径，是使用相对路径的一种用法。 第 2小题 为实现 本题所要求的功能可在 “确定 ”按钮的单击事件过程中，先设置文本框的初始内容为 “我选的课是 ”，然后用两个 If语句分别判断两个复选框是否选中，若选中则将其对应信息输入文本框中。 三、综合应用题（ 30分） 3 【正确答案】
