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