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中。