1、国家二级 VB机试（上机操作）模拟试卷 340及答案与解析 一、基本操作题 1 (1)在名称为 Form1、标题为 “欢迎 ”的窗体上画 1个名称为 Label1的标签，其标题内容为 “欢迎使用本系统 ”，标题文字字体和字号分别为 “宋体 ”、 “三号 ”，标签大小能根据标题内容自动调整，效果如图 3-40所示。程序执行时，窗体的最大化按钮不可用，请设置相应属性。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sj1 frm。 (2)在名称为 Form1的窗体上，画 1个名称为 Label1的标签，其标题 为 “横坐标 X”，且能根据标题内容自动调整标签的大
2、小；再画 1个名称为 Text1的文本框，其中的文字显示为空白：再画 1个名称为Picture1的图片框，大小适中即可。 要求：编写适当的事件过程，使得程序运行时，如果鼠标在图片框中移动，则能在文本框Text1中显示鼠标在图片框中的当前位置的横坐标，运行情况如图 3-41所示。注意：要求程序中不得使用变量，事件过程中只能写一条语句。 存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)在考生文 件夹中有工程文件 sjt3 vbp，其中的窗体如图 3 162所示。程序刚运行时，会生成一个有 10个元素的整型数组。若选中 “查找
3、最大值 “(或 “查找最小值 ”)单选按钮，再单击 “查找 ”按钮，则找出数组中的最大值 (或最小值 )，并显示在标签 Label2中。 请去掉程序中的注释符，把程序中的 “?”改为正确的内容。 注意：考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹中有一个工程文件 sjt4 vbp。窗体上已有控件，如图 3 163所示。请在属性窗口中将 List1设置为可以多项选 择 (允许使用 Shift键或 Ctrl键进行选择 )列表项。要求：双击 List1中的某一项时，该项目被添加到 List2中，同时在 List1中清除该项目。若单击 “”按钮， Lis
4、t1中所有的项目显示在。 List2中(Ifist2中已有项目不变 )， List1中韵内容不变。 要求：按照题目要求设置控件属性，去掉程序中的注释符，把程序中的 “?”改为正确的内容。 注意：不得修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。三、综合应用题 3 数列 1， 1， 2， 3， 5， 8， 13， 21， 的规律是从第三个 数开始，每个数是它前面两个数之和。在考生目录下有一个工程文件 sjt5 vbp。窗体中已经给出了所有控件，如图 3 121所示。请编写适当的事件过程实现以下功能：在 Text1中输入整数 40，单击 “计算 ”按钮，则在 Text2中显示该数
5、列第 40项的值；如果单击 “存盘 ”按钮，则将计算的第 40项的值存到考生目录下的 out5 txt文件中。 (提示：因数据较大，应使用 Long型变量。 ) 注意：在结束程序运行之前必须单击 “存盘 ”按钮，把结果存入 out5 txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。 国家二 级 VB机试（上机操作）模拟试卷 340答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 1：新建一个 “标准 EXE”工程，在窗体 Form1中加入一个标签控件。按表 4 27设置其相关属性。步骤 2：按要求将文件保存至考生文件夹中。 (2)步骤 1：新建一个 “标准 EXE”工程，在窗
6、体 Form1中加入一个文本框、标签和图片框。按表 4-28设置其相关属性。步骤 2：在打开的代码编辑窗口中，编写图片框的的 MouseMove事件代码。参考代码： Private Sub Picture1 MouseMove(ButtonAs Integer， Shift As Integer， X AsSingle， Y As Single)Text1 Text=XEnd Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 (1)根据题目要求在窗体上加入一个标签控件，并设置相关属性。 (2)根据题目要求在窗体上加入文本框、标签和图片框，并设置相关属性。题目要求鼠标在图片框中移
7、动时显示当前的横坐标，需要在图片框的 MouseMove事件代码里面把横坐标显示在文本框里面。 二、简单应用题 2 【正确答案】 (1)步骤 1：打开考生文件夹下的工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： If optionl Value=True Then If a(i)=x Then x=a(i) End If Else If a(i)x则将 a(i)的值放入 x。以此类推选中最小值按钮时的处理过程与之类似。 (2)实现本题从列表框 Ifistl到 List2的移出功能，其实就是利用列表框的Addltem方法和 Remo
8、veltem方法添加或删除列表框中的项目。由题中源代码可知，当双击列表框 Ifistl中的某项时，则调用 Moveltem过程 (参数应为控件 List1和 List2)将列表框 L， istl中当前项的内容 (索引号为 ListIndex)用 Addltem方法添加到列表框 List2中，同时用 Removeltem方法从列表框 List1中删除该项。当单击 “按钮时，则调用 MoveAll过程通过 For循环 (循环变量终值为List1 ListCount-1)将列表框 List1中的各项逐一添加到列表框 List2中。 三、综合应用题 3 【正确答案】 步骤 1：打开考生文件夹下的工程文
9、件 sjt5 vbp。 步骤 2：编写 “计算 ”按钮的单击事件过程。参考代码： Private Sub Command1_Click() Dim f1， f2， f As Long Dim a(40) As Long f1=1： f2=1 a(1)=f1： a(2)=f2 For i=3 To Val(Text1 Text) f=f1+f2 a(i)=f： f1=f2： f2=f Next Text2 Text=a(40) End Sub 步骤 3：运行程序，在文本框中输入 40，并单击 “计算 ”按钮获得一个结果，然后单击 “存盘 ”按钮保存计算结果。 步骤 4：按要求将文件保存至考生文件夹中。 【试题解析】 根据题意，从数列的第三个数开始，每个数是其前两个数之和，数列第 n项的值可表示为： a(n)=a(n-1)+a(n-2)。可以 利用 For循环语句 (循环变量 i的初值为 3，终值为 n)，从数列的第三个数开始，逐一计算出该数列第 3 n项的值，计算表达式为 a(i)=a(i-1)+a(i-2)。
