1、国家二级 VB机试（上机操作）模拟试卷 72及答案与解析 一、基本操作题 0 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 1 在名称为 Form1、标题为 “框架练习 ”的窗体上画一个名称为 Frame1、标题为 “字体 ”的框架控件；在框架中画两个单选按钮，名称分别为 Option1、 Option2，标题分别为 “宋体 ”、 “黑体 ”，标题在单选按钮的左边。运行后的窗体如图 3-158所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1 frm，工程文件名为 sjt1 vbp。 2 在名称为 Form1窗体上，画一个名称为 Im
2、age1的图像框，在其中显示考生文件夹下的图片 “pic2 jpg”，并设置适当属性使得图像框尺寸变化时图片尺寸可随之变化。再画一个水平滚动条和一个垂直滚动条，名称分别为 HScroll1、 VScroll1，它们的刻度范围都是 1 3。如图 3-159(a)所示。要求如下： 定义两个窗体级变量： length、 high，并编写窗体的 Form Load事件过程，使 length、 high分别等于图像框的宽、高； 编写适当的事件过程，使得移动两个滚动条上的滚动块 时，以刻度值作为图像框初始尺寸的倍数改变图像框相应方向的尺寸。例如： HScroll1的滚动块在刻度值为 2的位置时，图像框的宽
3、为初始宽度的 2倍。如图 3-159(b)所示。对于垂直滚动条也相同。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjt2 frm，工程文件名为 sjt2 vbp。要求程序中的两个变量必须是 length、 high，此外不能再使用其他变量，除 Form Load事件过程外，其他每个事件过程中只能写一条语句。 二、简单应用题 3 考生文件夹下的工程文件 sjt3 vbp中有一个菜单 、两个标签和两个文本框。程序运行时，用鼠标右键单击窗体会弹出一个弹出式菜单 (如图 3-160所示 )。当选中“计算 100以内自然数之和 ”菜单项时，将计算 100以内自然数之和并放入 Text1中
4、；当选中 “计算 7!”菜单项时，将计算 7!并放入 Text2中。在给出的窗体文件中已经有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把 ?改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 4 考生文件夹下的工程文件 sjt4 vbp中有如图 3-161所示 的控件。程序功能如下：程序运行时，在 Text1中输入一个商品名称，在 Text2中输入一个数量，单击 “计算 ”按钮，则会在列表框中找到该商品的单价，乘以数量后显示在 Text3中 (如图 3-161所示 )；若输入的商品名称是错误的，则在 Text3中显示
5、“无此商品 ”(为方便编程，列表框中的每个单价均为 4位 (含小数点 )。请将事件过程中的注释符去掉，把 ?改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 三、综合应用题 5 考生文件夹下的工程文件 sjt5 vbp中的窗体如图 3-162所示。考生文件夹下的随机文件 in5 dat中有 20条记录，每条记录含姓名和三个分数 (均为 100以内的正整数 )。在程序中已经定义了类型 Recordtype，此类型变量可以存放一条记录。要求如下： 请为 “计算最大最小值 ”按钮编写 Click事件过程，其功能是：读取文件中的记录，计
6、算每人的总分，找出其中最大总分和最小总分，分别放入变量maxval， minval中 (这两个变量已经给出，不得修改 )。 运行程序，单击 “计算最大最小值 ”按钮后再单击 “存盘 ”按钮。 注意：考生不得修改窗体 文件中已经存在的控件和程序，在结束程序运行之前，必须依次单击 “计算最大最小值 ”、 “存盘 ”按钮，否则无成绩。最后，程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 72答案与解析 一、基本操作题 1 【正确答案】 审题分析 本题只需按题目在窗体中画出控件，并设置相关属性即可。 操作步骤 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置其相关属性。 步
7、骤 2：按要求将文件保存至考生文件夹中。 考点链接 框架、焦点和 tab顺序。 2 【正确 答案】 审题分析 根据题意，本题需在滚动条的 Change事件中改变图像框的宽度和高度，在窗体的 Load事件中初始化全局变量。 操作步骤 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：打开代码编辑窗口，分别编写滚动条的 Change事件过程和窗体的 Load事件过程。 参考代码： Dim length， high Private Sub Form_Load() lenath=Image1 Width high=Imagel Height End Sub Private
8、 Sub HScroll1_Chanqe() Image1 Width=HScroll1 Value*length End Sub PriVate Sub VScroll1_Change() Image1 Height=VScroll1 Value*high End Sub 步骤 3：按要求将文件保存至考生文件夹中。 考点链接 滚动条。 二、简单应用题 3 【正确答案】 审题分析 要创建本题的弹出式菜单需先用菜单编辑器来建立菜单，并将其主菜单项的可见(即 Visible)属性值设置为 False，然后在窗体的 MouseDown(或 MouseUp)事件过程中，判断该事件的 Button参数值
9、是否为 2，若是则执行窗体的 PopupMenu方法来显示菜单。 在相应菜单项的 Click事件过程中，可以调用 fact函数来计算 7!， fact函数是一个求阶乘的函数，通过 For循环依次累乘实现。 操作步骤 步骤 1：打开考生文件夹中的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If Button=2 Then PopupMenu mypopmenu For k=n To 1 Step-1 Text2=fact(7) 步骤 2：按要求将文件保存至考生文件夹中。 考点链接 键盘和鼠标事件、菜单、 For循环结构。
10、4 【正确答案】 审题分析 本题程序运行时，在文本框中输入商品名称，当单击命令按钮的时候，首先判断该商 品是否在列表框中存在。由于列表框中的每一项都是商品名称 +空格 +单价的组合，因此在循环判断列表框的每一项时，首先找到列表项里面空格的位置，然后取出空格之前的字符就是商品名称，和文本框中输入的数据进行对比，如果一致则说明有此商品，那么取出列表项的后 4个字符即商品单价进行操作，并且在退出循环的同时令旗帜变量 flag变为 True。当循环结束后，如果 flag变量的值为 True则证明有此商品，将单价 *数量的值显示在文本框中，否则在文本框中显示 “无此商品 ”。 操作步骤 步骤 1：打开考
11、生文件夹下的工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： For k=1 To List1 ListCount-1 name=Left(List1 List(k)， n-1) price=Val(Right(List1 List(k)， 4) Text3=“无此商品 “ 步骤 2：按要求将文件保存至考生文件夹中。 考点链接 选择控件、常用内部函数。 三、综合应用题 5 【正确答案】 审题分析 本 题源程序设计思路：在 “计算最大最小值 ”命令按钮的单击事件过程中，先用Open语句打开考生文件夹下的随机文件 in5 txt；然后
12、预定义最大值为 0，最小值为 300(3门课程总成绩不可能超过 300)，在 For循环中，依次使用 Get语句取出记录内容到自定义数据类型变量 s，然后将 s的各元素累加起来，并将总分 (s中各元素的累加和 )和预定义的最大值以及最小值进行比较，如果总分大于最大值则将其存入最大值，如果总分小于最小值则将其存入最小值，然后进行下一次循环判断下一条记录。 操作步骤 步骤 1：打开考生文件夹 中的本题工程文件 sjt5 vbp，在代码编辑窗口的适当位置编写代码。 参考代码： Private Sub Command1_Click() Dim s As Recordtype Open“in5 dat“For Random As #1 Len=Len(s) maxval=0 minval=300 For k=1 To 20 Get #1， s sumval=s a1+s a2+s a3 If sumval maxval Then maxval=sumval If sumval minval Then minval=sumval Next k Close #1 End Sub 步骤 2：运行程序，单击 “计算最大最小值 ”命令按钮，然后单击 “存盘 ”按钮。 步骤 3：按要求将文件保存至考生文件夹中。 考点链接 随机文件、 For循环结构。
