1、VB 机试模拟试卷 174及答案与解析 一、基本操作题（ 30分） 1 注意：下面出现的 “考生文件夹 ”均为 C:wexam25160002。 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1的窗体上建立 1个名称为 Op1的单选按钮数组，含 3个单选按钮，它们的标题依次为 “选择1”、 “选择 2”和 “选择 3”，其下标分别为 0、 1和 2，初始状态下， “选择 2”为选中状态。运行后的窗体如图 26-1所示。 注意；存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。 (2)在窗
2、体上建立 1个二级菜单，第一级含两个菜单项，标题分别为 “编辑 ”和 “帮助 ”，名称分别为 edit和 help。其中“编辑 ”菜单含有 3个子菜单，其标题依次为 “剪切 ”、 “复制 ”和 “粘贴 ”，名称分别为cut、 copy和 paste，如图 26-2所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。二、简单应用题（ 40分） 2 (1)在名称为 Forml的窗体上添加一个名称为 Textl的文本框，再建立一个名称为Format的弹 出式菜单，含三个菜单项，标题分别为 “加粗 ”、 “斜体 ”、 “下划线 ”，名称分别为 M
3、1、 M2、 M3。请编写适当的事件过程，在程序运行时，当用鼠标右键单击文本框时，弹出菜单，选中一个菜单项后，则按所选菜单标题设置文本框中文本的格式，如图 683所示。注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sj3 vbp，窗体文件名保存为 sj3 frm。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，含有 Forml和Form2两个窗体，将 Forml的标题改为 “注册 ”，将 Form2的标题改为 “确认 ”；设置适当的属 性，使 Form2标题栏右上角的所有按钮消失 (如图 685所示 )；其中Form1为启动窗体，窗体上的控件如图 684所示。程序运行后，在 F
4、orml窗体的文本框中输人有关信息 (“密码 ”文本框中显示 “*”字符 )，然后单击 “提交 ”按钮，则弹出 “确认 ”对话框 (即 Form2窗体 )，并在 Form2 中显示 forml中输入的信息，如图685所示。单击 “确认 ”按钮，则程序结束，单击 “重输 ”按钮，则 Form2消失，回到 Forml窗体。在给出的窗体文件中已经给出了程序，但不完整。注意：去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容。不能修改程序中的其他部分，标题等属性的修改只能在属性窗口中进行。最后将修改后的文件按原文件名存盘。 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 exec
5、ise39.vbp及窗体文件 execise39.frm。在窗体Form1上给出了所有控件和不完整的程序，请去掉程序中的注释符 “”，把程序中的问号 “?”改为正确的内容。 本程序的功能是：如果单击 “读取 ”按钮，则把考生目录下的 in39.txt文件中的 15个姓名读到数组 a中，并在窗体上显示这些姓名：当在Text1中输入一个姓名 ，或一个姓氏后，如果单击 “查找 ”按钮，则进行查找，若找到，就把所有与 Text1中相同的姓名或所有具有 Text1中姓氏的姓名显示在 Text2中 (如下图所示 )：若未找到，则在 Text2中显示 “不存在 !”：若 Text1中没有查找内容，则在 Te
6、xt2中显示 “未输入查找内容 !”。 注意： 考生不得修改程序的其他部分和控件的属性，最后把修改后的文件按原文件名存盘。 VB 机试模拟试卷 174答案与解析 一、基本操作题（ 30分） 1 【正确答案】 在窗体上建立好控件后，设置控件的属性。 建立控件数组由多种方法，考生可以采取任何一种来建立单选按钮数组。要使 “选择 2”为选中状态，则应该将该控件的 Value属性值设置 True。 Value属性用来表示单选按钮的状态，它的值可以是 True或 False，当设置为 True时，该单选按钮为选中，否则没有选中。解题步骤： 第一步：建立界面并设置控件的属性。程序中用到的控件及其属性见表
7、26-1。 第二步：调试并运行程序。 第三步：按题目要求存盘。 (2)在 Visual Basic中，菜单通过 “菜 单编辑器 ”窗口来建立。 解题步骤： 第一步：建立界面并设置对象属性。 程序中用到的控件及其属性见表 26-2。 第二步：调试并运行程序。 第三步：按题目要求存盘。 二、简单应用题（ 40分） 2 【正确答案】 (1)本题主要是考查菜单编辑器的使用。根据题意，新建 “标准EXE”工程，建立菜单并设置菜单属性，如下表：再添加一个文本框控件名称为 Textl，双击进入代码窗口，编写如下代码： Private Sub M1_Click()Textl FontBold=TrueEnd
8、SubPrivate Sub M2_Click() Textl FontItalic=True End Sub Private Sub M3_Click() Textl FontUnderline=True End Sub Private Sub Textl_MouseDown(Button As Integer， Shift As Integer， X As Single， Y As Single) If Button=2 Then Me PopupMenu Format End If End Sub 单击按钮运行程序，并按要求保存。 (2)根据题意，把 Forml窗体 Caption属性为
9、 “注册 ”， Form2窗体 Caption属性为 “确认 ”， ControlBox属性为 False，双击进入代码窗口，编写如下代码： Private Sub C1_Click() Dim k As Integer Form2 Show Form2 Print Forml L1 Caption； Forml Textl Form2 Print Forml L2 Caption； Forml Text2 Form2 Print Forml L3 Caption；Forml Text3 Form2。 Print Forml Framel Caption； “： “； For k=0 To 1 If Forml Opl(k) Value Then Form2 Print Forml Opl(k) Caption End If Next k End Sub Private Sub Form Load() Text2 PasswordChar=“*“ End Sub 需要考生编写的Form2中的代码： Private Sub C1_Click() End End Sub Private Sub C2_Click() Unload Form2 End Sub 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】
