1、国家二级 VB 机试（上机操作）-试卷 87 及答案解析(总分：10.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 在名称为 Forml 的窗体上画一个名称为 CDl 的通用对话框，通过属性窗口设置 CDl 的初始路径为 C：，默认的文件名为 None，标题为”保存等级考试”，如图 2-44 所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjtlvbp，窗体文件名为 sjtlfrm。 （分数：2.00）_2.在名称为 Forml 的窗体上设计一个菜单。要求在窗体上添加名为
2、menu0，标题为”菜单命令”的主菜单，再添加两个名称分别为”menul”、”menu2”，标题分别为”不可用菜单项”、”上一菜单项可用”的子菜单，并且使程序运行时，menul 子菜单不可用，menu2 子菜单已经选中(运行时的效果如图 2-45 所示)。再编写适当的事件过程，使得程序运行时，单击”上一菜单项可用”，则”不可用菜单项”变为黑色(可用)。要求程序中不得使用变量，且只有一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为 sjl2frm （分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.在考生文件夹中有工程文件 sjt3vbp，
3、其中的窗体如图 2-46 所示。程序刚运行时，会生成一个有 10个元素的整型数组。若选中”查找最大值”(或”查找最小值”)单选按钮，再单击”查找”按钮，则找出数组中的最大值(或最小值)，并显示在标签 Label2 中。请去掉程序中的注释符，把程序中的?改为正确的内容。注意：考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文件名存盘。（分数：2.00）_4.在考生文件夹中有一个工程文件 sjt4vbp。窗体上已有控件，如图 2-47 所示。请在属性窗口中将Listl 设置为可以多项选择(允许使用 Shift 键或 Ctrl 键进行选择)列表项。要求：双击 Listl中的某一项时，该项
4、目被添加到 List2 中，同时在 Listl 中清除该项目。若单击”“按钮，Listl 中所有的项目显示在 List2 中(List2 中已有项目不变)，Listl 中的内容不变。要求：按照题目要求设置控件属性，去掉程序中的注释符，把程序中的?改为正确的内容。注意：不得修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)5.在考生文件夹中有一个工程文件 sjt5vbp，如图 2-48 所示。运行程序时，从文件中读入矩阵数据并放入二维数组 a 中。单击”计算”按钮时，将统计矩阵两个对角线的元素中能被 3 整除的个数，
5、统计结果显示在标签 lblFirst 中；同时计算矩阵主对角线的元素之和，计算结果显示在标签 lblSecond 中。已给出了部分程序，请编写”计算”命令按钮事件过程中的部分程序代码，以便完成上述功能。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，必须执行程序，并用”计算”按钮进行计算，否则无成绩。 （分数：2.00）_国家二级 VB 机试（上机操作）-试卷 87 答案解析(总分：10.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 在名称
6、为 Forml 的窗体上画一个名称为 CDl 的通用对话框，通过属性窗口设置 CDl 的初始路径为 C：，默认的文件名为 None，标题为”保存等级考试”，如图 2-44 所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjtlvbp，窗体文件名为 sjtlfrm。 （分数：2.00）_正确答案：(正确答案：步骤 1：新建一个”标准 EXE”工程，选择工程部件命令，在弹出的”部件”对话框的列表中选中”MicroSoft Common Dialog Control60”项目，单击”确定”按钮。 步骤 2： 在窗体 Forml 上画一个通用对话框，其相关属性设置如表 3-24 所示。 )解析
7、：2.在名称为 Forml 的窗体上设计一个菜单。要求在窗体上添加名为 menu0，标题为”菜单命令”的主菜单，再添加两个名称分别为”menul”、”menu2”，标题分别为”不可用菜单项”、”上一菜单项可用”的子菜单，并且使程序运行时，menul 子菜单不可用，menu2 子菜单已经选中(运行时的效果如图 2-45 所示)。再编写适当的事件过程，使得程序运行时，单击”上一菜单项可用”，则”不可用菜单项”变为黑色(可用)。要求程序中不得使用变量，且只有一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为 sjl2frm （分数：2.00）_正确答案：(正确答
8、案：步骤 1：新建一个”标准 EXE”工程，打开 VB 菜单设计器设计菜单，各菜单项及属性设置如表 3-25 所示。 )解析：二、简单应用题(总题数：2，分数：4.00)3.在考生文件夹中有工程文件 sjt3vbp，其中的窗体如图 2-46 所示。程序刚运行时，会生成一个有 10个元素的整型数组。若选中”查找最大值”(或”查找最小值”)单选按钮，再单击”查找”按钮，则找出数组中的最大值(或最小值)，并显示在标签 Label2 中。请去掉程序中的注释符，把程序中的?改为正确的内容。注意：考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文件名存盘。（分数：2.00）_正确答案：(正确答
9、案：步骤 1：打开考生文件夹下的本题工程文件 sjt3vbp，在代码编辑窗口，去掉程序中的注释符”“，将问号”?”改为正确的内容。 参考代码： If OptionlValue=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.在考生文件夹中有一个工程文件 sjt4vbp。窗体上已有控件，如图 2-47 所示。请在属性窗口中将Listl 设置为可以多项选择(允许使用 Shift 键或 Ctrl 键进行选择)列表项。要求：双击 Listl中的某一项
10、时，该项目被添加到 List2 中，同时在 Listl 中清除该项目。若单击”“按钮，Listl 中所有的项目显示在 List2 中(List2 中已有项目不变)，Listl 中的内容不变。要求：按照题目要求设置控件属性，去掉程序中的注释符，把程序中的?改为正确的内容。注意：不得修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：步骤 1：打开考生文件夹中的本题工程文件 sjt4vbp，代码编辑窗口，去掉程序中的注释符”“，将问号”?”改为正确的内容。 参考代码： L2AddItem L1List(L1ListIndex) L1Remov
11、eItem L1ListIndex For i=0 To List1ListCount-1 Call MoveItem(List1， List2) 步骤2：按要求将文件保存至考生文件夹中。)解析：三、综合应用题(总题数：1，分数：2.00)5.在考生文件夹中有一个工程文件 sjt5vbp，如图 2-48 所示。运行程序时，从文件中读入矩阵数据并放入二维数组 a 中。单击”计算”按钮时，将统计矩阵两个对角线的元素中能被 3 整除的个数，统计结果显示在标签 lblFirst 中；同时计算矩阵主对角线的元素之和，计算结果显示在标签 lblSecond 中。已给出了部分程序，请编写”计算”命令按钮事件
12、过程中的部分程序代码，以便完成上述功能。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，必须执行程序，并用”计算”按钮进行计算，否则无成绩。 （分数：2.00）_正确答案：(正确答案：步骤 1：打开考生文件夹下的本题工程文件 sjt5vbp，在代码编辑窗口的指定位置编写以下代码： 参考代码： 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 kN - 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 lblSecondCaption=Sum lblFirstCaption=Counter 步骤 2：按F5键运行程序，然后单击”计算”按钮。 步骤 3：按要求将文件保存至考生文件夹中。)解析：
