1、国家二级 VB机试（上机操作）模拟试卷 4及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 在名称为 Forml的窗体上画一个名称为 CDl的通用对话框，通过属性窗口设置 CDl的初始路径为 C：，默认的文件名为 None，标题为 ”保存等级考试 ”，如图 2-44所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。 2 在名称为 Forml的窗体上设计一个菜单。要求在窗体上添加名为 menu0，标题为 ”菜单 命令 ”的主菜单，再添加两个名称分别为 ”menul”、 ”
2、menu2”，标题分别为 ”不可用菜单项 ”、 ”上一菜单项可用 ”的子菜单，并且使程序运行时， menul子菜单不可用， menu2子菜单已经选中 (运行时的效果如图 2-45所示 )。再编写适当的事件过程，使得程序运行时，单击 ”上一菜单项可用 ”，则 ”不可用菜单项 ”变为黑色 (可用 )。要求程序中不得使用变量，且只有一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjl2 frm 二、简单应用题 3 在考生文件夹中有工程文件 sjt3 vbp，其中的窗体如图 2-46所示。程序刚运行时，会生成一个有 10个元素的整型数组。若选中 ”查找最大
3、值 ”(或 ”查找最小值 ”)单选按钮，再单击 ”查找 ”按钮，则找出数组中的最大值 (或最小值 )，并显示在标签Label2中。请去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文件名存盘。4 在考生文件夹中有一个工程文件 sjt4 vbp。窗体上已有控件，如图 2-47所示。请在属性窗口中将 Listl设置为可以多项选择 (允许使用 Shift键或 Ctrl键进行选择 )列表项。要求：双击 Listl中的某一项时，该项目被添加到 List2中，同时在 Listl中清除该项目。若单击 ” “按钮， Listl中所有的项目显示
4、在 List2中 (List2中已有项目不变 )， Listl中的内容不变。要求：按照题目要求设置控件属性，去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：不得修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 三、综合应用题 5 在考生文件夹中有一个工程文件 sjt5 vbp，如图 2-48所示。运行程序时，从文件中读入矩阵数据 并放入二维数组 a中。单击 ”计算 ”按钮时，将统计矩阵两个对角线的元素中能被 3整除的个数，统计结果显示在标签 lblFirst中；同时计算矩阵主对角线的元素之和，计算结果显示在标签 lblSecond中。已给出了部分程序，请编写 ”计算 ”
5、命令按钮事件过程中的部分程序代码，以便完成上述功能。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，必须执行程序，并用 ”计算 ”按钮进行计算，否则无成绩。 国家二级 VB机试（上机操作）模拟试卷 4答案与解析 一、基本操作题 1 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，选择 工程 部件 命令，在弹出的 ”部件 ”对话框的列表中选中 ”MicroSoft Common Dialog Control6 0”项目，单击 ”确定 ”按钮。步骤 2： 在窗体 Forml上画一个通用对话框，其相关属性设置如表 3-24所示。 步骤 3：编写 Fo
6、rml的 Load事件，加入下面的代码： CD 1 ShowSave步骤 4：按要求将文件保存至考生文件夹中。 2 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，打开 VB菜单设计器设计菜单，各菜单项及属性 设置如表 3-25所示。步骤 2：打开代码编辑窗口，编写 ”上一菜单项可用 ”命令的 Click事件过程。参考代码： Private Sub menu2_Click( )menul Enabled=TrueEnd Sub步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 3 【正确答案】 步骤 1：打开考生文件夹下的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序
7、中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： If Optionl Value=True Then If a(i) =x Then x=a(i) End If Else If a(i) y Then y=a(i) End If 步骤 2：按要求将文件保存至考生文件夹中。 4 【正确答案】 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： L2 AddItem L1 List(L1 ListIndex) L1 RemoveItem L1 ListIndex For i=0 To List
8、1 ListCount-1 Call MoveItem(List1， List2) 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 5 【正确答案】 步骤 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 k N - k+ 1 Tnen If a(k， N-k+1) 3=Int(a(k， N-k+ 1) 3)Then Counter=Counter+ 1 End If End If Next lblSecond Caption=Sum lblFirst Caption=Counter 步骤 2：按 F5键运行程序，然后单击 ”计算 ”按钮。 步骤 3：按要求将文件保存至考生文件夹中。
