1、国家二级 VB机试（上机操作）模拟试卷 59及答案与解析 一、基本操作题 0 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 1 在名称为 Form1的窗体上建立一个二级下拉菜单 (菜单项见表 3-2)，运行时的窗体如图 3-98所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjt1 frm。 2 在名称为 Form1的窗体上画两个文本框，名称分别为 Text1、 Text2，均无初始内容。要求： 通过属性窗口设置适当的属性，使 Text1、 Text2中显示的文本的字体为 “隶书 ”； 编写适当的事件过程，使得
2、在 Text1中输入每一个字符时，立即在Text2中显示 Text1中的内容，如图 3-99所示。 注意：要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 3 在考生文件夹下有一个工程文件 sjt3 vbp。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，并单击 “确定 ”按钮，则对文本框中的文字做相应的设置，如图 3-100所示。窗体上的控件已经画出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。 注意：不能修改已经给出的程序部分和已有的控件；在结束程序
3、运行之前，必须选中一个单选按钮和至少一个复选框，并单击 “确定 ”按钮；必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。 4 在考生文件夹下有一个工程文件 sjt4 vbp。窗体中已经给出了所有控件。程序运行时，单击 “读入文件 ”按钮，将显示一个 “打开 ”对话框，可以在该对话框中选择考生文件夹下的文本文件 in4 txt， 并把该文件的内容显示到 Text1文本框中。 要求：请去掉程序中的注释符，并把程序中的 ?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。 三、综合应用题 5 在考生
4、文件夹下有一个工程文件 sjt5 vbp，在窗体上给出了所有控件和不完整的程序，请去掉程序中的注释符，把程序中的 ?改为正确的内容。本程序的功能是：如果单击 “取数 ”按钮，则把考生目录下的 in5 txt文件中的 15个姓名读到数组 a中，并在窗体上显示这些姓名；当在 Text1中输入一 个姓名，或一个姓氏后，如果单击 “查找 ”按钮，则进行查找，若找到，就把所有与 Text1中相同的姓名或所有具有 Text1中姓氏的姓名显示在 Text2中 (如图 3-101所示 )；若未找到，则在 Text2中显示 “未找到 !”；若 Text1中没有查找内容，则在 Text2中显示 “未输入查找内容
5、!”。 注意：考生不得修改程序的其他部分和控件的属性，最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 59答案与解析 一、基本操作题 1 【正确答案】 审题分析 本题只需按照要求设计菜单即可。 操作步骤 步骤 1：新建一个 “标准 EXE”工程，打开 VB菜单设计器设计菜单，各菜单项及属性设置如表4-55所示。 步骤 2：按要求将文件保存至考生文件夹中。 考点链接 菜单。 2 【正确答案】 审题分析 本题考查考生对文本框控件常用属性和事件的掌握。要使文本框在初始情况下就没有内容，需在设计时通过属性设置窗口将其 Text属性值设置为空白。要实现程序运行时，在 Text
6、1中输入的任何字符，立即显示在Text2中的功能，可在 Text1的 Change事件过程中，执行将 Text1中显示内容赋值给 Text2的语句。 操作步骤 步骤 1：新建一个 “标准 EXE”工程，在窗体 Form1中画两个文本框，并分别设置它们的相关属性，其属性及值如表 4-56所示。 步骤 2：打开代码编辑窗口，编写Text1的 Change事件过程。 参考代码： prvate Sub Text1_Change() Text2 Text=Text1 Text End Sub 步骤 3：按要求将文件保存至考生文件夹中。 考点链接 文本控件。 二、简单应用题 3 【正确答案】 审题分析 本
7、题其实就是编写 “确定 ”按钮的单击事件过程。设计思路：由于单选按钮数组选择 的唯一性，可用一个 IfThenElse 语句对可能出现的两种情况 (Op1或 Op2被选中 )分别进行处理，为 Text1的 FontName属性设置不同值；对于两个复选框可用两个 IfThenElse 语句依次对其选中情况进行处理，若选中则将对应的FontUnderline属性值或 Fontltalic属性值设置为 True，否则设置为 False。 操作步骤 步骤 1：打开考生文件下的本题工程文件 sjt3 vbp。 步骤 2：打开代码编辑窗口，编写 “确定 ”按钮的 Click事件过程，代码如下。 参考代码：
8、 Private Sub Command1_C1iCk() If Op1 Value Then Text1 FontName=Op1 Caption E1SeIf Op2 ValHe Then Text1 FontName=Op2 Caption End If If Ch1 Value=1 Then Text 1 FontUnderline=True Else Text1 FontUnderline=FalSe End If If Ch2 Value=1 Then Text1 FontItaliC=True ElSe Text1 FontItaliC=False End If End Sub
9、步骤 3：按 键运行程序，选中一个单选按钮和至少一个复选框，并单击 “确定 ”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤 4：按要求将文件保存至考生文件夹中。 特别提示 文本框的 FontUnderline属性值和 Fontltalic属性值一旦设置为 True，将始终有效，直至将该属性值设置为 False。 考点链接 选择控件、字体与字形。 4 【正确答案】 审题分析 根据题目源程序，首先设置通用对话框 CD1的 Filter属性和 FilterIndex属性，然后调用 CD1的 ShowOpen方法，接下来通过 Input方式打开选中的文件，将文件读入后放到文本框 Text1中，最
10、后使用 Close语句关闭文件。 操作步骤 步骤 1：打开 考生文件夹中的本题工程文件 sjt4 vbp。在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Private Sub Command1_C1ick() Dim n As Long CD1 FileName=“ “ CD1 Filter=“所有文件 *.* 文本文件 * txt Word文档 *.doc“ CD1 FilterIndex=2 CD1 Action=1 If CD1 FileName“ “Then Open CD1 FileName For Input As #1 n=LOE(1) T
11、ext1=Input$(n， #1) Close #1 End If End Sub 步骤 2：按要求将文件保存至考生文件夹中。 考点链接 通用对话框、顺序文件。 三、综合应用题 5 【正确答案】 审题分析 由本题程序源代码及要求可知，在程序运行时，首先单击 “取数 ”按钮，使用Open语句打开考生目录下的 in5 txt文件，然后利用 For循环结合 Input语句将 15个姓名读到数组 a中，并在窗体上显示这些姓名，循环结束后使用 Close语句关闭打开的文件。 在 “查找 ”按钮的单击事件中，首先判断 Text1中文本的长度，如果长度大于 0则意味着文本框中有输入，此时利用一个循环依次比较数组中每个元素的开头字符是否等于 Text1中的内容。若相等则意味着是要找的结果，将其连接到变量 c上，直到循环完毕判断变量 c是否为空字符串，若不为空则显示在 Text2中。 操作步骤 步骤 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：按要求将文件保存至考生文件夹中。 考点链接 顺序文件、数组定义与操作。
