1、国家二级 VB机试（上机操作）模拟试卷 390及答案解析(总分：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所示。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，并单击“确定”按钮，则对文本框中的文字做相应的设置，如图 3100所示。窗体上的控件已经画出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sil5vbp，在
3、窗体上给出了所有控件和不完整的程序，请去掉程序中的注释符，把程序中的“?”改为正确的内容。本程序的功能是：如果单击“取数”按钮，则把考生目录下的 in5txt 文件中的 15个姓名读到数组 a中，并在窗体上显示这些姓名；当在 Text1中输入一个姓名，或一个姓氏后，如果单击“查找”按钮，则进行查找，若找到，就把所有与 Text1中相同的姓名或所有具有 Text1中姓氏的姓名显示在 Text2中(如图 3101所示)；若未找到，则在 Text2中显示“未找到!”；若 Text1中没有查找内容，则在 Text2中显示“未输入查找内容!”。 （分数：2.00）_国家二级 VB机试（上机操作）模拟试卷
4、 390答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic应用程序(包括界面和代码)。 (1)在名称为 Form1的窗体上建立一个二级下拉菜单(菜单项见表 32)，运行时的窗体如图 398所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1vbp，窗体文件名为 sjt1frm。 (2)在名称为 Form1的窗体上画两个文本框，名称分别为 Text1、Text2，均无初始内容。要求：通过属性窗口设置适当的属性，使Text1、Text2 中显示的文本的字体为“隶书”；编写适当的事件过程，
5、使得在 Text1中输入每一个字符时，立即在 Text2中显示 Text1中的内容，如图 399所示。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：新建一个“标准 EXE”工程，打开 VB菜单设计器设计菜单，各菜单项及属性设置如表 460所示。 步骤 2：按要求将文件保存至考生文件夹中。 (2) 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，在窗体 Form1中画两个文本框，并分别设置它们的相关属性，其属性及值如表 461所示。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。程序的功能是：在运行时
6、，如果选中一个单选按钮和一个或两个复选框，并单击“确定”按钮，则对文本框中的文字做相应的设置，如图 3100所示。窗体上的控件已经画出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sjt3vbp。 步骤2：打开代码编辑窗口，编写“确定”按钮的 Click事件过程，代码如下。参考代码： Private Sub Command1_Click() If Op1Value Then Text1FontNameOp1Caption ElseIf Op2Value Then Text1F
7、ontNameOp2Caption End If If Ch1Value1 Then Text 1FontUnderlineTrue Else Text1FontUnderlineFalse End If If Ch2Value1 Then Text1FontItalicTrue Else Text1FontItalicFalse End If End Sub 步骤 3：按F5键运行程序，选中一个单选按钮和至少一个复选框，并单击“确定”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤 4：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4
8、vbp，在代码编辑窗口，去掉程序中的注释符“”将问号“?”改为正确的内容。参考代码： Private Sub Command1 _Click() Dim n As Long CD1FileName“ “ CD1Filter“所有文件*文本文件 *txtWord 文档*doc“ CD1FiiterIndex2 CD1Action1 If CD1FileName“ “Then Open CD1FileName For Input As#1 _LOF(1) Text1Inputs(n，#1) Close #1 End If End Sub 步骤 2：按要求将文件保存至考生文件夹中。)解析：三、综合应
9、用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sil5vbp，在窗体上给出了所有控件和不完整的程序，请去掉程序中的注释符，把程序中的“?”改为正确的内容。本程序的功能是：如果单击“取数”按钮，则把考生目录下的 in5txt 文件中的 15个姓名读到数组 a中，并在窗体上显示这些姓名；当在 Text1中输入一个姓名，或一个姓氏后，如果单击“查找”按钮，则进行查找，若找到，就把所有与 Text1中相同的姓名或所有具有 Text1中姓氏的姓名显示在 Text2中(如图 3101所示)；若未找到，则在 Text2中显示“未找到!”；若 Text1中没有查找内容，则在 Text2中显示“未输入查找内容!”。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt5vbp，打开代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码： Close #1 nLen(Text1Text) If Left(a(k)，n)Text1Text Then cc“ “a(k) Text2Textc 步骤2：按要求将文件保存至考生文件夹中。)解析：
