1、国家二级 VB机试（上机操作）模拟试卷 112及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上建立一个二级下拉菜单 (菜单项见表 3 2)，运行时的窗体如图 3 98所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。(2)在名称为 Forml的窗体上画两个文本框，名称分别为 Text1、Text2，均无初始内容。要求： 通过属性窗口设置适当的属性，使 Text1、 Text2中显示的文本的字体为 “隶书 ”； 编写适当的事件过程，使
2、得在 Textl中输入每一个字符时，立即在 Text2中显示 Textl中的内容，如图 3 99所示。注意：要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sit2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)考生文件夹下的工程文件 sjt3 vbp中有一个初始内容：为空、且带有垂直滚动条的文本框，其名称为 Text1；两个标题分别为 “读数据 ”和 “查找 ”的命令按钮，其名称分别：勾 Cmd1、 Cmd2。请画一个标题为 “查找结果 ”的标签 Label1，再画一个名称为 Text2，其初始内容为空的文本框，如图 3 9
3、5所示。程序功能如下： 单击 “读数据 ”按钮，则将考生文件夹下 in3 dat文件中已按升序排列的 30个整数读入一维数组 a中，并同时显示在 Text1文本框内； 单击 “查找 ”按钮，将弹出输入框接收用户输入的任意一个偶数，若接收的数为奇数，则提示重新输入。如果接收的偶数超出一维数组 a的数值范围，则无须进行相应查找工作，直接在 Text2内给出结果；否则，在一维数组 a中查找该数，并根据查找结果在 Text2文本框内显示相应信息。命令按钮的 Click事件过程已给出，但“查找 ”按钮的 Click事件过程不完整，请将其中的注释符去掉，把 ?改为正确的内容，以实现上述程序功能。注意：考生
4、不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。 (2)考生文件夹下的工程文件 sjt4 vbp巾有一个初始内容为空的文本框 Text1，一个包含三个元素的文本框控件数组 Text2，两个标题分别是 “读数据 ”和 “统计 ”的命令按钮，两个分别含有三个元素的标签控件数组Label1和 Label2，如图 3-96所示。程序功能如下： 考生文件夹下 in4 dat文件中存有 20个考生的考号及数学和语文单科考试成绩。单击 “读数据 ”按钮，可以将 in4 dat文件内容读入到 20行 3列的二维数组中，并同时显示在 Text1文本框内； 单击 “统计 ”按钮，则对考生数学和语文
5、的平均分在“优秀 ”、 “通过 ”和 “不通过 ”三个分数段的人数进行统计，并将人数统计结果显示在控件数组 Text2中相应位置。其中，平均分在 85分以上 (含 85分 )为 “优秀 ”，平均分在 60 85分之间 (含 60分 )为 “通过 ”，平均分在 60分以下为 “不通过 ”。命令按钮的 Click事件过程已经给出，但 “统计 ”按钮的 Click事件过程不完整，请将其中的注释符去掉，把 ?改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。 三、综合应用题 3 在考生文件夹中有一个工程文件 vbs5.vbp(相应的窗体文件为
6、 vbsj5 frm)。窗体Forml上有两个名称为 Lab1和 Lab2的标签，它们的标题分别为 “密码 ”和 “允许次数 ”；一个名称为 Cmdl的命令按钮，其标题为 “确定 ”；两个名称分别为 Txt1和Txt2的文本框。其中 Txt1用来输入密码 (输入时显示 “*”)，无初始内容， Txt2的初始内容为 3。已给出了 Cmdl的事件过程，但不完整，要求去掉程序中的注释符“*”，把程序中的问号 “?”改为正确内容，使得在运行时，在 Txt1中输入密码后，单击 “确定 ”按钮， 如果输入的是 “123456”，则在 Txt1中显示 “密码正确 ”如图 3 30所示；如果输入其他内容，单击
7、 “确定 ”后，弹出如图 3-31所示的错误提示对话框，并且 Txt2中的数字减 1。最多可输入 3次密码，若 3次输入错误，则禁止再次输入。 程序源码： PriVate Sub Cmdl一 Click() Txtl Text=”密码正确 ” Else Txtt Text=Txt2 Text一 1 MsgBox“第 ” (3一Txt2 Text) “次密码错误，请重新输入 ” Else MsgBox”3次输入错误，请退出 ” End IfEnd Sub 国家二级 VB机试（上机操作）模拟试卷 112答案与解析 一、基本操作题 1 【正确答案】 第 1小题【操作步骤】步骤 l：新建一个 “标准
8、EXE”工程，打开VB菜单设计器设计菜单，各菜单项及属性设置如表 4-55所示。步骤 2：按要求将文件保存至考生文件夹中。第 2小题【操作步骤】步骤 l：新建一个 “标准 EXE”工程，在窗体Forml中画两个文本框，并分别设置它们的相关属性，其属性及值如表 4 56所示。 步骤 2：打开代码编辑窗口，编写Textl的 Change事件过程。参考代码： Prvate Sub Text 1 Change()Text2 Text=Text1 TextEnd Sub步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹下的工程
9、文件 sjt3 vbp，打开代码编辑窗口，去掉程序中的注释符 “，将问号 “?”改为正确的内容。 参考代码： If num 230 Then 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： AVg= (a(i， 2) +a(i， 3) 2 Case Is =8 5 Ca se 60 To 8 4 End 5elect Text2(n一 1)=x(n) 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹中的 本题工程文件 vbsJ5.vbp，将文本框。 Txt1的PasswordChar属性值设置为 “*”。 步骤 2：在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If Txt1 Text=“123456”Then Txt1 PasswordChar=“” If Txt2 Text0 Then Txt1 Enabled=False 步骤 3：按要求将文件保存至考生文件夹中
