1、国家二级 VB机试（上机操作）模拟试卷 224及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上建立一个名称为 Commandl的命令按钮数组，含三个命令按钮，它们的 Index属性分别为 0、 1、 2，标题依次为 “是 ”、 “否 ”、 “取消 ”，每个按钮的高、宽均为 300、 800。窗体的标题为 “按钮窗口 ”。运行后的窗体如 3-63所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sitl vbp，窗体文件名为 sjtl frm。 (2)在名称为 Forml的窗体上画一
2、个名称为 Shal的形状控件，然后建立一个菜单，标题为 “形状 ”，名称为 shape0，该菜单有两个子菜单，其标题分别为 “正方形 ”和 “圆形 ”，其名称分别为 shape1和shape2，如图 2 64所示，然后编写适当的程序。程序运行后，如果选择 “正方形 ”菜单项，则形状控件显示为正方形；如果选择 “圆形 ”菜单项，则窗体上的形状控件显示为圆形。 注意：程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下，工程文件名为 sit2 vbp，窗体文件名为sjt2 frm。 二、简单应用题 2 (1)在考生文件夹中有工程文件 sit3 vbp，其中的窗体如图 2
3、127所示。程序刚运行时，会生成一个有 10个元素的整型数组。若选中 “查找最大值 ”(或 “查找最小值 ”)单选按钮，再单击 “查找 ”按钮，则找出数组中的最大值 (或最小值 )，并显示在标签 Label2中。 请去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文件名存盘。(2)在考生文件夹中有一个工程文件sit4 vbp。窗体上已有控件，如图 2-128所示。请在属性窗口中将 Listl设置为可以多项选择 (允许使用 Shift键或 Ctrl键进行选择 )列表项。要求：双击 List1中的某一项时，该项目被添加到 L,i
4、st2中，同时在 List1中清除该项目。若单击 “”按钮， List1中所订的项目显示在 List2中 (List2中已有项目不变 )， Listl中的内容不变。 要求：按照题目要求设置控件属性，去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不得修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 三、综合应用题 3 在考生文件夹下 有一个工程文件 sjt5 vbp，已给出了所有控件 (如图 2 62所示 )和部分程序。程序运行时，请按以下顺序操作： 1)单击“读入文件 ”按钮，把考生目录下的文件 in5 dat中的内容读入内存并显示在上面的文本框 (Textl)中：
5、 2)单击 “加密 ”按钮，则可对 Text1中的内容进行加密并显示在下面的文本框 (Text2)中。 3)单击 “存结果 ”按钮则把 Text2中的内容存到 out5 dat文件中。 加密规则：对十第奇数个字符，若是字母，则把它变为它后面的字符 (若为“Z”则变为 “A”)，不是字母则不变：对于第偶数个 字符，若是字母，则把它变为它前面的字符 (若为 “A”则变为 “z”)，不是字母则不变。大小写字母都遵循此规则。 例如： 若原有的字符是： AbbaZGHa MnnKYzx 则加密后的字符是： BaczAFGb-NmojXaw 已经给出 “存结果 ”按钮的 Click事件过程和函数 isle
6、tter，函数islettet(aAsString)判断变量 a中是否为一个字母，若是则返同 True，否则返回False，可以直接调用。 请编写 “读入文件 ”按钮和 “加密 ”按钮的 Click事件过程，以实现上述功能。 (in5 dat文件中只含 英文单间和空格，不分段落和行 )注意：考生不得修改已经存在的稃序，必须用 “存结果 ”按钮存储加密结果，否则无成绩。最后，按原文件名把程序存盘。 国家二级 VB机试（上机操作）模拟试卷 224答案与解析 一、基本操作题 1 【正确答案】 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表 3 36在窗体中用 “复制 ”和 “粘贴 ”画
7、出控件数组并设置属性。步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 l：新建一个 “标准 EXE”工程，在窗体Form1中画一个名为 Shal的形状控件。 步骤 2：选择【工具】 【菜单编辑器】命令，打开菜单设计器，如表 3 37所示，设置建立菜单项。步骤 3：打开代码编辑窗口，编写菜单命令的单击事件过程。 参考代码： Private Sub Shapel C1 ick() Me Shal Shape=1 End Sub Private Sub Shape2一 Click() Forml Shal=3 End Sub 步骤 4：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “一 ，将问号 “?”改为正确的内容。 参考代码： If Optionl value=True Then If a(i)=x Then x=a(i) End If ElseIf a(i)键运行程序，先单击 “读入文件 ”按钮，接着单击 “加密 ”按钮，然后单击 “存结果 ”按钮保存结果，最后单击窗体右上角的关闭按钮结束程序。 步骤 3：按要求将文件保存至考生文件夹中。
