国家二级VB机试（上机操作）模拟试卷292
基本操作题
1.请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上建立一个二级下拉菜单(菜单项见表3—2)，运行时的窗体如图3—98所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上画两个文本框，名称分别为Text1、Text2，均无初始内容。要求：
①通过属性窗口设置适当的属性，使Text1、Text2中显示的文本的字体为“隶书”；
②编写适当的事件过程，使得在Text1中输入每一个字符时，立即在Text2中显示Text1中的内容，如图3—99所示。
注意：要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjtZvbp，窗体文件名为sjt2．frm。
第1小题
步骤1：新建一个“标准EXE”工程，打开VB菜单设计器设计菜单，各菜单项及属性设置如表4—60所示。
[*]
步骤2：拨要求将文件保存至考生文件夹中。
第2小题
步骤1：新建一个“标准EXE”工程，在窗体Form1中画两个文本框，并分别设置它们的相关属性，其属性及值如表4—61所示。
[*]
步骤2：打开代码编辑窗口，编写Text1的Change事件过程。
参考代码：
Prvate Sub Text1_Change()
Text2．Text=Text1．Text
End Sub
步骤3：按要求将文件保存至考生文件夹中。
解析：第1小题：本题只需按照要求设计菜单即可。
第2小题：本题考查考生对文本框控件常用属性和事件的掌握。要使文本框在初始情况下就没有内容，需在设讣时通过属性设置窗口将其Text属性值设置为空白。要实现程序运行时，在Text1中输入的任何字符，立即显示在Text2中的功能，可在Text1的Change事件过程中，执行将Text1中显示内容赋值给Text2的语句。
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3．vbp。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，并单击“确定”按钮，则对文本框中的文字做相应的设置，如图3—100所示。窗体上的控件已经画出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。
第1小题
步骤1：打开考生文件下的本题工程文件sjt3．vbp。
步骤2：打开代码编辑窗口，编写“确定”按钮的Click事件过程，代码如下。
参考代码：
Private Sub Command1_C1ick()
If Op1．Value Then
Text1．FontName=Op1．Caption
ElseIf Op2．Value Then
Text1．FontName=Op2．Caption
End If
If Ch1．Value=1Then
Text1．FontUnderline=True
Else
Text1．FontUnderline=False
End If
If Ch2．Value=1Then
Text1．FontItaliC=True
Else
Text1．FontItaliC=False
End If
End Sub
步骤3：按＜F5＞键运行程序，选中一个单选按钮和至少一个复选框，并单击“确定”按钮，最后单击窗体右上角的关闭按钮结束程序。
步骤4：按要求将文件保存至考生文件夹中。
第2小题
步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。
参考代码：
Private Sub Command1_Click()
Dim n As Long
CD1．FileName=\\
解析：第1小题：本题其实就是编写“确定”按钮的单击事件过程。设计思路：由于单选按钮数组选择的唯一性，可用一个If…Then…Else语句对可能出现的两种情况(Op1或Op2被选中)分别进行处理，为Text1的FontName属性设置不同值；对于两个复选框可用两个If…Then…Else语句依次对其选中情况进行处理，若选中则将对应的FontUnderline属件值或Fontltalic属性值设置为True，否则设置为False。
第2小题：根据题目源程序，首先设置通用对话框CD1的Fliter。属性和FilterIndex属性，然后调用CD1的ShowOpen方法，接下来通过Input方式打开选中的文件，将文件读入后放到文本框Text1中，最后使用Close语句关闭文件。
综合应用题
3.在考生文件夹下有一个工程文件sjt5．vbp，在窗体上给出了所有控件和不完整的程序，请去掉程序中的注释符，把程序中的“?”改为正确的内容。本程序的功能是：如果单击“取数”按钮，则把考生目录下的in5．txt文件中的15个姓名读到数组a中，并在窗体上显示这些姓名；当在Text1中输入一个姓名，或一个姓氏后，如果单击“查找”按钮，则进行查找，若找到，就把所有与Text1中相同的姓名或所有具有Text1中姓氏的姓名显示在Text2中(如图3—101所示)；若未找到，则在Text2中显示“未找到!”；若Text1中没有查找内容，则在Text2中显示“未输入查找内容!”。
步骤1：打开考生文件夹中的本题工程文件sjt5．vbp，打开代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。
参考代码：
[*]
步骤2：按要求将文件保存至考生文件夹中。
解析：由本题程序源代码及要求可知，在程序运行时，首先单击“取数”按钮，使用Open语句打开考生目录下的in5．txt文件，然后利用For循结合Input语句将15个姓名读到数组a中，并在窗体上显示这些姓名，循环结束后使用Close语句关闭打开的文件。
在“查找”按钮的单击事件中，首先判断Text1中文本的长度，如果长度大于0则意味着文本框中有输入，此时利用一个循环依次比较数组中每个元素的开头字符是否等于Text1中的内容。若相等则意味着是要找的结果，将其连接到变量c上，直到循环完毕判断变量c是否为空字符串，若不为空则显示在Text2中。
本文档预览：3600字符，共3477字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
