1、国家二级 VB机试（上机操作）模拟试卷 100及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个标签，名称为 L1，标题为 “业余爱好 ”，再画一个名称为 Chl的复选框数组，含三个复选框，它们的 Index属性分别为 0、 1、 2，标题依次为 “体育 ”、 “音乐 ”、 “美术 ”，请设置复选框的属性，使其初始状态见表 3一1。 运行后的窗体如图 3-11所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文 件名为 sjtl frm。 (2)在名称为 F
2、orml的窗体上画一个文本框，名称为 Text1；再建立一个下拉菜单，菜单标题为 “操作 ”，名称为 M1，此菜单下含有两个菜单项，名称分别为 Show和Hide，标题分别为 “显示 ”、 “隐藏 ”，请编写适当的事件过程，使得在运行时，单击“隐藏 ”菜单项，则文本框消失；单击 “显示 ”菜单项，则文本框显示出来。运行后的窗体如图 3-12所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有工程文件 sjt3 vbp。程序运行时的窗体如图 31
3、85(a)所示。输入商品名称后，选中一种付款方式，则 “成交 ”按钮变为可用，选择一种或多种 “服务 ”后，单击 “成交 ”按钮，则把相应信息显示在下面的图片框中，如图3 185(b)所示。若不选任何 “服务 ”，则显示结果如图 3 185(c)所示。单击 “放弃 ”按钮，则恢复到图 (a)状态。程序已经给出但不完整，请将其中的注释符去掉，把 ?改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最 后程序按原文件名存盘。(2)在考生文件夹下有工程文件sit4 vbp，其中的列表框中已经有两个列表项 (均为数字 )。程序功能是在文本框中输入一个整数 n(例如
4、30)，单击命令按钮，则在列表框中追加若干数字，所有追加的数字按以下规律排列：每个数是前面两个数之和，最后一个数是满足上述规律的最大的小于 n的数。如图 3-186(a)所示。若再输入一个更大的整数 (如 100)，单击命令按钮，则按上述规律继续追加数字。如图 3 186(b)所示。程序已经给出但不完整，请将其中的注释符去掉，把 ?改为正确的内容，以实现上述程序功能 。注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。三、综合应用题 3 在考生文件夹中有一个工程文件 sjt5 vbp，如图 3 129所示。运行程序时，从文件中渎入矩阵数据并放入二维数组 a中。单击 “计
5、算 ”按钮时，将统计矩阵两个对角线的元素中能被 3整除的个数，统计结果显示在标签 lblFirst中；同时计算矩阵主对角线的元素之和，计算结果显示在标签 lblSecond中。已给出了部分程序，请编写 “计算 ”命令按钮事件过程中的部分程序代码，以便完成上述功能。注意：不能修改程序的其他部分和 控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，必须执行程序，并用 “计算 ”按钮进行计算，否则无成绩。国家二级 VB机试（上机操作）模拟试卷 100答案与解析 一、基本操作题 1 【正确答案】 第 1小题本题只需按要求画出控件数组，并设置其 Value属性。【操作步骤】步骤 1：新建一个
6、“标准 EXE”工程。步骤 2：在窗体 Forml中加入一个标签和一个复选框，并用 “复制 ”和 “粘贴 ”的方法，生成包含三个元素的复选框数组。步骤 3：分别设置窗体和复选框数组中各元素的相关属性，其属性及值如表4 5所示。 步骤 4：按要求将文件保存至考生文件夹中。第 2小题本题需用菜单设计器建立菜单，并编写 “显示 ”和 “隐藏 ”菜单项的单击事件过程控制文本框的 visible属性变化。【操作步骤】步骤 1：新建一个 “标准 EXE”工程，在窗体 Forml中画一个文本框，在属性设置窗口中将其Name属性值设置为 Text1。步骤 2：选择【工具】 【菜单编辑器】命令，打开菜单设计器，
7、如表 4 6中的设置建立菜单项。步骤 3：打开代码编辑窗口，编写以下事件过程：参考代码： PriVate Sub hideClick() Textl Visible=FalseEnd SubPrivate Sub show C1ick()Text1 ViSible=TrueEnd Sub步骤 4：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt3 vbp，打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If Checkl(k) Value=1 Then Text
8、l Text=” Commandl Enabled=True 步骤 2：按要求将文 件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sit4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： a=Val(LiStl LiSt(Listl LiStCount一 2) a=b Listl Add Item C 步骤 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 kNk+1 Then If a(k， Nk+1) 3=Int(a(k， Nk+1) 3)Then Counter=Counter+1 End If End If Next lblSecond Caption=Sum lblFirst Caption=Counter 步骤 2：按 键运行程序，然后单击 “计算 ”按钮。 步骤 3：按要求将文件保存至考生文件夹中。
