1、国家二级 VB机试（上机操作）模拟试卷 223及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上建立一个名称为 Opl的单选按钮数组，含三个单选按钮，它们的标题依次为 “选择 1”、 “选择 2”、 “选择 3”，其下标分别为 0、 1、 2，初始状态下， “选择 2”为选中状态。运行后的窗体如罔 2 240所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1 vbp，窗体文件名为 sjt1 frm。 (2)存窗体上建立一个二 级菜单，第一级含两个菜单项，标题分别为 “编辑 ”、
2、“帮助 ”，名称分别为 edit、 help。其中 “编辑 ”菜单含有子菜单，共有三个菜单项，其标题依次为 “剪切 ”、 “复制 ”、 “粘贴 ”，名称分别为 “cut”、 “copy”、 “paste”(如图 2 241所示 )。 注意：存盘时必须存放在考生文件夹下，上程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，窗体上已经有两个文本框，名称分别为 Text1、 Text2：一个命令按钮，名称为 C1，标 题为 “确定 ”；请画两个单选按钮，名称分别为 Opl、 Op2，标题分别为 “男生 ”、 “女
3、生 ”：再画两个复选框，名称分别为 Chl、 Ch2，标题分别为 “体育 ”、 “音乐 ”。请编写适当的事件过程，使得在运行时，单击 “确定 ”按钮后实现下面的操作： 根据选中的单选按钮，在 Textl中显示 “我是男生 ”或 “我是女生 ”。 根据选中的复选框，在 Text2中显示 “我的爱好是体育 ”、 “我的爱好是音乐 ”或 “我的爱好是体育音乐 ”，如图 2 65所示。 注意：不得修改已经给山的程序和已有控件的属性。在结束程序运行之前，必须选中一个单选按钮和 至少一个复选框，并单击 “确定 ”按钮。必须使用窗体右上角的关闭按钮结束程序，否则无成绩。 (2)在考生文件央下有一个工程文件
4、sjt4 vbp。窗体上有一个名称为 Listl的列表框，名称为Timer1的计时器，名称为 Labell的标签，如图 2 66所示。淆通过属性窗口向列表框添加四个项目，分别是 “第一项 ”、 “第二项 ”、 “第三项 ”、 “第四项 ”。程序运行后，将计时器的时间间隔设置为 1秒钟，每一秒钟从列表框中取出一个项目显示在Labell的标签中，首先显示 “第一项 ”，然后，依次显示 “第二项 ”、 “第三项 ”、 “第四项 ”，如此循环。 在给出的窗体文件中已经有了全部摔件和程序，但不完整，请添加 List1中的项目，去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：考生不得修改工程中已
5、经存在的内容和控件属性，最后把修改后的文件按原文件名存盘。 三、综合应用题 3 在考生文件夹中有一个工程文件 sjt5 vbp，如图 2 129所示。运行程序时，从文件中读入矩阵数据并放入二维数组 a中。甲击 “计算 ”按钮时，将统计矩阵两个对角线的元素中能被 3整除的个数，统计结果显示在标签 lblFirst中；同时计算矩阵主对角线的元素之和，计算 结果显示在标签 IblSecond中。已给出了部分程序，请编写“计算 ”命令按钮事件过程中的部分程序代码，以便完成上述功能。 注意：不能修改程序的其他部分和摔件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，必须执行程序，并用 “计算 ”
6、按钮进行计算，否则无成绩。 国家二级 VB机试（上机操作）模拟试卷 223答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程。 步骤2：在窗体 Forml中加入一个单选按钮，并用 “复制 ”和 “粘贴 ”的方法，生成包含 4个元素的单选按钮数组。 步骤 3：分别设置单选按钮数组中各元素的相关属性，其属性及值如表 3 130所示。步骤 4：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，利用菜单设计器如表 3 131在窗体上建立一个二级菜单。步骤 2：按要求将文件保存至考生文件夹中
7、。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹下的工程文件sjt3 vbp。 步骤 2：在窗体 Fonnl中加入两个单选按钮和两个复选框，分别设置它们的相关属性，属性及其值如表 3 38所示。步骤 3：打斤代码编辑窗口输入如下代码： 参考代码： Private Sub C1 C1iCk() Dim a As String a=”我是 ” If Opl Value Then Textl Text=a Opl Caption E1se Textl Text=a Op2 Caption End If a=”我的爱好是 ” If Chl Value=1 The
8、n Text2 Text=a Chl Caption a=Text2 Text End If If Ch2 Value=1 Then Text2 Text=a Ch2 Caption End If End Sub 步骤 4：按键运行程序，先选中选中一个单选按钮和垒少一个复选框，并单击 “确定 ”按钮，然后单击窗体右上角的关闭按钮结束程序。 步骤 5：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sit4 vbp，通过属性窗几向列表 框添加四个项目，分别是： “第一项 ”、 “第二项 ”、 “第三项 ”、 “第四项 ”。 步骤 2：在代码编
9、辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： i=0 Timer1 Interval=1000 Labell Caption=Listl List(i) 步骤 3：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件 sjt5 vbp，在代码编辑窗口的指定位置编写以下代码： 参考代码： For k=1 To N Sum=Sum+a(k， k) If a(k， k) 3=Int(a(k， k) 3)Then Counter=Counter+1 End If If kNk+1 Then If a(k， Nk+1) 3=Int(a(k， N k+1) 3)Then Counter=Counter+1 End If End If Next iblSecond Caption=Sum iblFirst Caption=Counter 步骤 2：按 键运行程序，然后单击 “计算 ”按钮。 步骤 3：按要求将文件保存至考生文件夹中。
