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