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