1、国家二级 VB机试（上机操作）模拟试卷 403及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic应用程序(包括界面和代码)。 (1)在名称为 Form1的窗体上画一个名称为 CD1的通用对话框，通过属性窗口设置 CD1的初始路径为 C：，默认的文件名为 None，标题为“保存等级考试”，如图 3160所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1vbp，窗体文件名为 sjt1frm。 (2)在名称为 Form1的窗体上设计一个菜单。要求在窗体上添加名为 menu0，标题为“菜
2、单命令”的主菜单，再添加两个名称分别为“menu1”、“menu2”，标题分别为“不可用菜单项”、“上一菜单项可用”的子菜单，并且使程序运行时，menu1 子菜单不可用，menu2子菜单已经选中(运行时的效果如图 3161所示)。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹中有工程文件 sjt3vbp，其中的窗体如图 3162所示。程序刚运行时，会生成一个有 10个元素的整型数组。若选中“查找最大值”(或“查找最小值”)单选按钮，再单击“查找”按钮，则找出数组中的最大值(或最小值)，并显示在标签 Labe12中。 请去掉程序中的注释符，把程序中的“?
3、 ”改为正确的内容。 注意：考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹中有一个工程文件 sjt4vbp。窗体上已有控件，如图 3163所示。请在属性窗口中将 List1设置为可以多项选择(允许使用 Shift键或 Ctrl键进行选择)列表项。要求：双击List1中的某一项时，该项目被添加到 List2中，同时在 List1中清除该项目。若单击“”按钮，List1中所有的项目显示在 List2中(List2 中已有项目不变)，List1 中的内容不变。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹中有一个工程文
4、件 sjt5vbp，如图 3164所示。运行程序时，从文件中读入矩阵数据并放入二维数组 a中。单击“计算”按钮时，将统计矩阵两个对角线的元素中能被 3整除的个数，统计结果显示在标签 lblFirst中；同时计算矩阵主对角线的元素之和，计算结果显示在标签 lblSecond中。（分数：2.00）_国家二级 VB机试（上机操作）模拟试卷 403答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic应用程序(包括界面和代码)。 (1)在名称为 Form1的窗体上画一个名称为 CD1的通用对话框，通过属性窗口
5、设置 CD1的初始路径为 C：，默认的文件名为 None，标题为“保存等级考试”，如图 3160所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1vbp，窗体文件名为 sjt1frm。 (2)在名称为 Form1的窗体上设计一个菜单。要求在窗体上添加名为 menu0，标题为“菜单命令”的主菜单，再添加两个名称分别为“menu1”、“menu2”，标题分别为“不可用菜单项”、“上一菜单项可用”的子菜单，并且使程序运行时，menu1 子菜单不可用，menu2子菜单已经选中(运行时的效果如图 3161所示)。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：新
6、建一个“标准 EXE”工程，选择【工程】【部件】命令，在弹出的“部件”对话框的列表中选中“MicroSoft Common Dialog Contro160”项目，单击“确定”按钮。 步骤 2： 在窗体 Form1上画一个通用对话框并设置相关属性。 步骤 3：编写 Form1的Load事件，加入的代码：CD1ShowSave 步骤 4：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：新建一个“标准 EXE”工程，打开 VB菜单设计器按要求设计菜单。 步骤 2：打开代码编辑窗口，编写“上一菜单项可用”命令的 Click事件过程。参考代码： Private Sub menu2 Cl
7、ick() menulEnabledTrue End Sub 步骤 3：按要求将文件保存至考生文件夹中。)解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹中有工程文件 sjt3vbp，其中的窗体如图 3162所示。程序刚运行时，会生成一个有 10个元素的整型数组。若选中“查找最大值”(或“查找最小值”)单选按钮，再单击“查找”按钮，则找出数组中的最大值(或最小值)，并显示在标签 Labe12中。 请去掉程序中的注释符，把程序中的“? ”改为正确的内容。 注意：考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹中有一个工程文件 s
8、jt4vbp。窗体上已有控件，如图 3163所示。请在属性窗口中将 List1设置为可以多项选择(允许使用 Shift键或 Ctrl键进行选择)列表项。要求：双击List1中的某一项时，该项目被添加到 List2中，同时在 List1中清除该项目。若单击“”按钮，List1中所有的项目显示在 List2中(List2 中已有项目不变)，List1 中的内容不变。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sjt3vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码： If Option1ValueTrue
9、 Then If a(i) x Then xa(i) End If Else If a(i)y Then ya(i) End If 步骤 2：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4vbp，代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码： L2AddItem L1List(L1ListIndex) L1RemoveItem L1ListIndex For i0 To List1ListCount1 Call MoveItem(List1，List2) 步骤 2：按要求将文件保存至考生文件夹中。)解析：三
10、、综合应用题(总题数：1，分数：2.00)3.在考生文件夹中有一个工程文件 sjt5vbp，如图 3164所示。运行程序时，从文件中读入矩阵数据并放入二维数组 a中。单击“计算”按钮时，将统计矩阵两个对角线的元素中能被 3整除的个数，统计结果显示在标签 lblFirst中；同时计算矩阵主对角线的元素之和，计算结果显示在标签 lblSecond中。（分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sjt5vbp，在代码编辑窗口的指定位置编写以下代码。参考代码： For k1 To N SumSuma(k，k) If a(k，k)3Int(a(k，k)3)Then CounterCounter1 End If If kNk1 Then If a(k，Nk1)3Int(a(k，N k1)3)Then CounterCounter1 End If End If Next iblSecondCaptionSum lblFirstCaptionCounter 步骤 2：按F5键运行程序，然后单击“计算”按钮。 步骤 3：按要求将文件保存至考生文件夹中。)解析：
