1、国家二级 VB机试（上机操作）模拟试卷 70及答案与解析 一、基本操作题 0 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 1 在名称为 Form1的窗体上画两个文本框，其名称分别为 Text1和 Text2，它们的高、宽分别为 300、 2400和 1200、 2400。窗体的标题为 “窗口 ”。请通过属性窗口设置适当的属性满足以下要求： Text2可以显示多行文本，且有垂直和水平两个滚动条； 运行时在 Text1中输入的字符都显示为 “*”。 运行后的窗体如图 3-148所示。 注意 ：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗
2、体文件名为 sjt1 frm。 2 在名称为 Form1的窗体上画一个图像框，名称为 Imagel，其高、宽分别为1900、 1700，通过属性窗口把考生文件夹下的图像文件 pic1 bmp装入图像框；再画两个命令按钮，名称分别为 C1、 C2，标题分别为 “放大 ”、 “缩小 ”，如图 3-149所示。 要求： 请编写适当的事件过程，程序运行后，如果单击 “放大 ”按钮，则把图像框的高度、宽度均增加 100；单击 “缩小 ”按钮，则把图像框的高度、宽度均减少 100。要求 程序中不得使用任何变量。 通过属性窗口设置图像框的适当属性，使得在放大、缩小图像框时，其中的图像也自动放大、缩小。 注意
3、：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为sjt2 frm。 二、简单应用题 3 在考生文件夹下有一个工程文件 sjt3 vbp，其功能是： 单击 “读数据 ”按钮，则把考生文件夹下 in3 dat文件中的 0 999之间的 100个整数读入数组 a中； 单击 “计算 ”按钮，则找出这 100个整数中所有水仙花数，并将它们的最大值与最小值分别显示在文本框 Text1、 Text2中。 (注：当一个数的值等于该数中的各位数字的立方和时，此数被成为水仙花数，如 153=13+53+33，所以 153就是一个水仙花数。 ) 在窗体文件中已经给出了全部控件 (如图 3
4、-150所示 )和 “读数据 ”命令按钮的事件过程以及判断一个数是否为水仙花数的通用过程。要求编写 “计算 ”命令按钮的事件过程。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行前，必须进行 “计算 ”，且必须通过单击窗体右上角的 “关闭 ”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 4 在考生文件夹下有一个工程文件 sjt4 vbp。请在窗体上画一个组合框，名称为Cb1，并输入三个列表项： “3”、 “7”、 “11”(列表项的顺序不限，但必须是这三个数字 )；画一个名为 Text1的文本框；再画一个标题为 “计算 ”、名称为 C1的命令按钮，如图 3-151所示
5、。请编写适当的事件过程，使得程序运行时，在组合框中选定一个数字后，单击 “计算 ”按钮，则计算 5000以内能够被该数整除的所有数之和，并放入 Text1中。最后，按原文件名存盘。 提示：由于计算结果较大，应使用长整型变量。 注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行 之前，必须至少进行一次计算。必须用窗体右上角的关闭按钮结束程序，否则无成绩。 三、综合应用题 5 在考生文件夹下有一个工程文件 sjt5 vbp，其名称为 Form1的窗体上已有三个文本框 Text1、 Text2、 Text3，以及程序。请完成以下工作： 在属性窗口中修改Text3的适当属性，使其在运行时不显示
6、，作为模拟的剪贴板使用，窗体如图 3-152所示： 建立下拉式菜单，见表 3-3。 窗体文件中给出了所有事件过程，但不完整，请去掉程序中的注释符，把程序中的 ?改为正确内容。以便实现以下功能：当光标所在 的文本框中无内容时， “剪切 ”、 “复制 ”不可用，否则可以把该文本框中的内容剪切或复制到 Text3中；若 Text3中无内容，则“粘贴 ”不能用，否则可以把 Text3中的内容粘贴在光标所在的文本框中的内容之后。 注意：不能修改程序中的其他部分。各菜单项的标题名称必须正确。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 70答案与解析 一、基本操作题 1 【正
7、确答案】 审题分析 本题只需按要求画出控件并设置其相应属性即可。 操作步骤 步骤 1：新建一个 “标准 EXE”工程，在窗体 Form1中按要求画出控件并设置属性。 步骤 2：按要求将文件保存至考生文件夹中。 考点链接 文本控件。 2 【正确答案】 审题分析 程序运行时要改变图像框的大小，可通过修改其 Width和 Height属性值来实现。 操作步骤 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：打开代码编辑窗口，编写两个命令按钮的 Click事件过程。 参考代码： Private Sub C1_Click() Image1 Width=Image1 Wid
8、th+100 Image1 Height=Image1 Height+100 End Sub Private Sub C2_Click() Image1 Width=Image1 Width-100 Image1 Height=Image1 Height-100 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 考点链接 图形控件。 二、简单应用题 3 【正确答案】 审题分析 程序设计思路：声明两个变量： max和 min，分别用于记录水仙花数的最大值和最小值，用 For循环逐一取出数组 a中的 100个元素，通过调用函数 isnarc判断其是否为一个水仙花数，若是水仙花数且是第一个
9、找到的水仙花数，则将其同时赋值给 max和 mim，否则将其与变量 max和 min分别比较大小，并将与 max比较结果中的较大值存入变量 max，将与 min比较结果中的较小值存入变量 min。循环结束后，分别将变量 max和 min的值显示在两个文本框。 操作步骤 步骤 1：打开考生文件夹下的工程文件 sjt3 vbp，在代码编辑窗口的指定位置编写 “计算 ”按钮的单击事件过程。 参考代码： Private Sub Command2_Click() Max=a(1) Min=a(1) For i=2 To 100 If isnarc(a(i)=True Then If a(i) Max T
10、hen Max=a(i) If a(i) Min Then Min=a(i) End If Next Text1 Text=Max Text2 Text=Min End Sub 步骤 2：按 键运行程序，先单击 “读数据 ”按钮，接着单击 “计算 ”按钮，然后单击窗体右上角的关闭按钮结束程序。 步骤 3：按要求将文件保存至考生文件夹中。 考点链接 数组定义与操作。 4 【正确答案】 审题分析 设计本题代码的思路：单击 “计算 ”按钮时，用 For循环语句循环变量 (如 k值为1 5000间的所有整数 )的取值逐一除以组合框中当前选择的数值 (Cb1 Text)，并将能被该数值整除的整数累加入一
11、个变量 (如 s)。判断整数 A能被整数 B整除的条件表达式为： A Mod B=0。最后将循环结束时变量 s的值显示在文本框中。 操作步骤 步骤 1：打开考生文件夹下的工程文件 sjt4 vbp。 步骤 2：在窗体 Form1中按要求画出控件并设置属性。 步骤 3：双击窗体 Form1中的 “计算 ”按钮，打开代码编辑窗口，输入如下代码： 参考代码： Private Sub C1_Click() Dim n AsInteger， k AsInteger， s As Long n=Val(Cb1 Text) s=0 For k=n To 5000 If k Mod n=0 Then s=s+k
12、 End If Next k Text1 Text=s End Sub 步骤 4：按要求将文件保存至考生文件夹中。 步骤 5：按 键运行程序，从列表框中选择一项，单击 “计算 ”按钮，单击程序右上角的关闭按钮结束程序。 考点链接 For循环结构。 三、综合应用题 5 【正确答案】 审题分析 由本 题程序源代码及要求可知，在程序运行时，当将光标置于某文本框中时，文本框获得焦点，将触发其 GotFocus事件，在该事件过程中用窗体变量 which记录下该文本框序号 (1或 2)。当打开 “编辑 ”菜单时触发其 Click事件，在该事件过程中首先根据 which的值不同，来判断相应文本框的内容是否为
13、空，若内容为空则通过代码设置 “剪切 ”和 “复制 ”菜单项不可用，否则设置 “剪切 ”和 “复制 ”菜单项可用，故第一个 “?”处应改为 1，第二个 “?”处应改为 2：其次判断 Text3文本框的内容是否为空，若内容为空则设置 “粘贴 ”菜单项不可用， 否则设置 “粘贴 ”菜单项可用。 当选择 “编辑 ”菜单下的 “复制 ”命令时，根据 which的值不同，将相应文本框中的内容复制到 Text3文本框中。当选择 “剪切 ”命令时除应执行与 “复制 ”命令相同的语句外，还应清除当前文本框中的内容。当选择 “粘贴 ”命令时，也是根据 which的值不同，将 Text3文本框中的内容连入相应文本
14、框原内容之后，故该事件过程的第三个 “?”处应改为 “Text1 Text+Text3 Text”，第 4个问 “?”处应改为“Text2 Text+Text3 Text”。 操作步骤 步骤 1：打开考生文件夹中的本题工程文件 sjt5 vbp，选中窗体中的文本框Text3，将其 Visible属性为 False。 步骤 2：选择【工具】 【菜单编辑器】命令，打开菜单设计器，按要求建立窗体菜单。 步骤 3：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If which=1 Then If which=2 Then Text1 Text=Text1 Text+Text3 Text Text2 Text=Text2 Text+Text3 Text 步骤 4：按要求将文件保存至考生文件夹中。 考点链接 菜单、 If选择结构。
