1、国家二级 VB机试（上机操作）模拟试卷 25及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。在名称为Forml的窗体上建立一个二级下拉菜单 (菜单项见表 2-2)，运行时的窗体如图 2-138所示。 2 在名称为 Forml的窗体上画两个文本框，名称分别为 Textl、 Text2，均无初始内容。要求： 通过属性窗口设置适当的属性，使 Textl、 Text2中显示的文本的字体为 ”隶书 ”； 编写适当的事件过程，使得在 Textl中输入每一个字符时，立即在Text2中显示 Textl中的内容，如图 2-139所示。注意：要
2、求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 3 在考生文件夹下有一个工程文件 sjt3 vbp。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，并单击 ”确定 ”按钮，则对文本框中的文字做相应的设置，如图 2-140所示。窗体上的控件已经画出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。注意：不能修改已经给出 的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击 ”确定 ”按钮：必须通过单击窗体右上角的关闭按钮结束
3、程序，否则无成绩。最后把修改后的文件按原文件名存盘。 4 在考生文件夹下有一个工程文件 sjt4 vbp。窗体中已经给出了所有控件。程序运行时，单击 ”读入文件 ”按钮，将显示一个 ”打开 ”对话框，可以在该对话框中选择考生文件夹下的文本文件 in4 txt，并把该文件的内容显示到 Textl文本框中。 要求：请去掉程序中的注释符，并把程序中的 ?改为正确的内容，使其能正确运行，但 不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。 三、综合应用题 5 在考生文件夹下有一个工程文件 sjt5 vbp，在窗体上给出了所有控件和不完整的程序，请去掉程序中的注释符，把程序
4、中的 ?改为正确的内容。本程序的功能是：如果单击 ”取数 ”按钮，则把考生目录下的 in5 txt文件中的 15个姓名读到数组 a中，并在窗体上显示这些姓名；当在 Textl中输入一个姓名，或一个姓氏后，如果单击 ”查找 ”按钮，则进行查找，若找到，就把所有与 Textl中相同的姓名或所有具有 Textl中姓氏的姓名 显示在 Text2中 (如图 2-141所示 )；若未找到，则在 Text2中显示 ”未找到 !”；若 Textl中没有查找内容，则在 Text2中显示 ”未输入查找内容 !”。注意：考生不得修改程序的其他部分和控件的属性，最后把修改后的文件按原文件名存盘。 国家二级 VB机试（
5、上机操作）模拟试卷 25答案与解析 一、基本操作题 1 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，打开 VB菜单设计器设计菜单，各菜单项及属性设置如表 3-77所示。步骤 2：按要求将文件保存至考生文件夹中。 2 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，在窗体。 Forml中画两个文本框，并分别设置它们的相关属性，其属性及值如表 3-78所示。步骤 2：打开代码编辑窗口，编写 Textl的 Change事件过程。参考代码： Prvate Sub Text1_Change( )Text2 Text=Text 1 TextEnd Sub步骤 3：按要求将文件保存至考生
6、文件夹中。 二、简单应用题 3 【正确答案】 步骤 1：打开考生文件下的本题工程文件 sjt3 vbp。 步骤 2：打开代码编辑窗口，编写 ”确定 ”按钮的 Click事件过程，代码如下。 参考代码： Private Sub Commandl_Click( ) If Opl Value Then Textl FontName=Opl Caption ElseIf Op2 Value Then Textl FontName=Op2 CaptiOn EndIf If Ch1 Value=1 Then Textl FontUnderline=True Else Textl FontUnderline
7、=False EndIf If Ch2 Value=1 Then Textl FontItalic=Trtle Else Textl FontItalic=False EndIf End Sub 步骤 3：按要求将文件保存至考生文件夹中。 步骤 4：按 F5键运行程序，选中一个单选按钮和至少一个复选框，并单击 ”确定 ”按钮，最后单击窗体右上角的关闭按钮结束程序。 4 【正确答案】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： Private Sub Commandl_Click( ) Dim n
8、 As Long CDl FileName=“ CD1 Filter=“所有文件 *.*文本文件 * txt Word文档 * doc” CD1 FilterIndex=2 CD1 ACtion=1 If CD1 FileName “Then Open CD1 FileName For Input As#1 n=LOF(1) Textl=Input$(n， #1) ClOse #1 EndIf End Sub 步骤 2，按要求将文件保存至考生文件夹中。 三、综 合应用题 5 【正确答案】 步骤 1：打开考生文件夹中的本题工程文件 sjt5 vbp，打开代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： Close #1 n=Len(Text1 Text) If Left(a(k)， n) =Text1 Text Then c=c+” “+a(k) Text2 Text=c 步骤 2：按要求将文件保存至考生文件夹中。
