1、VB机试模拟试卷 121及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml标题为 “选课 ”的窗体上画一个复选框数组，名称为 CH1，共有四个复选框，按顺序其标题分别是 “数学 ”、 “语文 ”、 “外语 ”、 “计算机 ”，其中 “语文 ”、 “计算机 ”复选框处于选中状态，运行时的窗体如图 1-86所示。请画控件并设置相应属性。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjt1 frm。 (2)在名称为 Forml的窗体上画一个名称为 HS1的水
2、平滚动条，其刻度值范围为 1 100；画一个命令按钮，名称为 c1，标题为 “移动滚动框 ”。请编写适当的事件过程，使得在运行时，每单击命令按钮一次 (假定单击次数少于 10次 )，滚动框向右移动 10个刻度。运行时的窗体如图 1-87所示。要求程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjl2 frm。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp。窗体上有名称为 Timerl的定时器，以及名称为 Line1和 Line2的两条水平直线。请用名称为 Shape1的形状
3、控件，在两条直线之间画一个宽和高都相等的形状，其显示形式为圆，并设置适当属性使其满足以下要求： 圆的顶端距窗体 Forml顶端的距离为 360 圆的颜色为红色(红色对应的值为 &H000000FF&或 &HFF&)，如图 1-13所示。程序运行时， Shapel将在 Linel和 Line2之间运动。当 Shapel的顶端到达 Linel时，会自动改变方向而向下运动；当 ShapeI的底部到达 Line2时，会改变方向而向上运动。文 件中给出的程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确内容，使其实现上述功能。注意：不能修改程序的其他部分和已给出控件的属性。最后将修改后的文件按原文
4、件名存盘。 (2)在考生文件夹下有一个工程文件sjt4 vbp，包含了所有控件和部分程序，如图 1-14所示。程序功能如下： 单击“读数据 ”按钮，可将考生文件夹下 in4 dat文件中的 100个整数读到数组 a中； 单击 “计算 ”按钮，则根据从名称为 Combol的组合框中选中的项目，对数组 a中的数据计算平均值，并将计算结果四舍五入取整后显示在文本框 Textl中。 “读数据 ”按钮的 Click事件过程已经给出，请为 “计算 ”按钮编写适当的事件过程实现上述功能。注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序。否则无成绩
5、，最后，程序按原文件名存盘。 三、综合应用题（ 30分） 3 数列 1， 1， 3， 5， 9， 15， 25， 41， ，的规律是从第三个数开始。每个数是它前面两个数的和加 1。在考生目录下有一个工程文件 sjt5 vbp。窗体中已经给出了所有控件，如图 1-99所示。请编写适当的事件过程实现以下功能：在 Textl中输入整数 40，单击 “计算 ”按钮，则在 Text2中显示该数列第 40项的值。如果单击 “存盘 ”按钮，则将计算的第 40项的值存到考生目录下的 out5 txt文件中。 (提示：因数据较大，应使用 Long型变量。 )注意：在结束程序运行之前，必须单击 “存盘 ”按钮，把
6、结果存入 outS txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。 VB机试模拟试卷 121答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程。 步骤2：在窗体 Forml中加 入一个复选框并用 “复制 ”和 “粘贴 ”的方法，生成包含四个元素的复选框数组。 步骤 3：分别设置窗体和复选框数组中各元素的相关属性，其属性及值如表 2-44所示。 步骤 4:按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 l：新建一个 “标准 EXE”工程。 步骤 2：在窗体 Forml中加入一个命令按钮，分别设
7、置它们的相关属性，其属性及值如表 2-45所示。步骤 3：在代码编辑窗口，编写命令按钮的 Click事件过程。 参考代码： PriVate Sub C1_Click() HSl Value=HSI Value+10 End Sub 步骤 4：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题 复选框 (Check Box)组常用于提供多个选项间的多重选择， Value属性值决定每个复选框的选中状态： OUnchecked为未选， 1一 Checked为选中， 2一 Grayed为禁用 (以灰色呈现 )。选择某复选框后，该复选框将显示 “”，而取消选择后， “”消失。 本题只需按要求画出
8、控件数组，并设置其 Value属性。 第 2小题 滚动条分为水平滚动条 (HscrollBar)和垂直滚动条 (VscrollBar)两种，常用来提供简便的定位或用于取代数据的键盘输入。通过调整滚动条滑块的位置即可改变其Value属性的值，滚动条的 Max属性、 Min属性限定了滚动条所能表示的最大值和最小值，即 Value属性值的取值范围，在程序中改变 Value属性的值，滚动条滑块会随之移动到相应位置。 LargeChange属性用于设置当点击滚动条滑块与两侧箭头间区域时、 Value属性值的改变量， SmallChange属性用于设置当点击滚动条两侧箭头时 Value属性值的改变量。 本
9、题只需要在单击命令按钮时改变滚动条的 Value值即可。 二、简单应用题（ 40分） 2 【正确答案】 第 1小题 【操作步骤】 步骤 l：打开考生文件下的本题工程文件sjt3 vbp，在窗体上两条水平直线间画一个形状控件，并如表 2-10设置其属性。步骤 2：在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Timerl Enabled=True 工 f Shapel Top=Lin2 Y1Then 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1打开考生文件中的本题工程文件 sjt4 vbp，在代码编辑窗口，编写 “计算 ”
10、按钮的单击事件过程以及三个自定义过程。 参考代码： Private Sub Command2_Click() Select Case Combo1 ListIndex Case 0 Textl=even() Case 1 Textl=odd() Case 2 Textl=all() End Select End Sub Function even() Dim s As Single， n As Integer。 s=O For k=1 T0 100 If a(k) 2=Fix(a(k)2)Then s=s+a(k) n=n+l End If Next s=s n even=CInt(s) En
11、d Function Function odd() Dim s AS Single， n As Integer 8=0 For k=1 To 100 If a(k) 2Fix(a(k) 2)Then s=s+a(k) n=n+1 End If Next s=s n odd=CInt(s) End Function Function all() Dim s As Single， n As Integer s=0 For k=1 TO 100 s=s+a(k) Next s=s 100 all=CInt(s) End Function 步骤 2：按要求将文件保存至考生文件夹中。 步骤 3：按键运行
12、程序，先单击 “读数据 ”按钮，然后选择组合框中的一项再单击 “计算 ”按钮，最后单击窗体右上角的关闭按钮结束程序。 【试题解析】 第 1小题 形状控件 (Shape)提供了显示一些规则图形的简易方法。通过设置形状控件Shape属性值，可显示 6种图形： 0一矩形、 l一正方形、 2一椭圆、 3一圆、 4一圆角矩形、 5一圆角正方形。 Width属性用于设置形状的宽度，当形状为圆时即为圆的直径。 Move方法用于移动窗体或控件，其语法为：对象名 Move LeR,Top,Width,Height。 本题在计时器的 Timer事件过程中， Shapel每次上下移动的距离为 s(值为负向上移动，值
13、为正向下移动，初值为 -40)，若 Shapel向上移动后其 Top属性值小于或等于 Linel的 Yl(或 Y2)属性值，则 s取其相反数， Shapel向下移动。若 Shapel向下移动后其 Top属性值与其 Width属性值之和大于或等于 Line2的 Yl(或 Y2)属性值，则 s再取其相反数， Shapel向上移动。窗体加载时，计时器启动， Shapel开始在 Linel和 Line2之间运动。 第 2小题 调用过程有两种方式：一种是过程名参数 1，参数 2， ；另一种是 Call过程名(参数 1，参数 2， ) 。 本题原程序在 “计算 ”按钮的单击事件过程中，逐一检查组合框中的列
14、表项是否选中，将选中列表项的索引号作为判断依据，根据选中不同的项来调 用不同的过程。过程 even用来求得数组中的偶数平均值，首先预设累加和变量 s=O以及计数器 n=O，然后通过一个执行 100次的 For循环来遍历整个数组，依次判断数组元素是否为偶数，若是偶数则将其加入类价格变量 s中以及令计数器加 1，循环结束后用累加和除以计数器即得到平均值。同理编写 odd过程用来求得数组中奇数的平均值， all过程用来求得数组中所有数的平均值。 三、综合应用题（ 30分） 3 【正确答案】 【操作步骤】 步骤 l：打开考生文件夹下的本题工程文件 sjl5 vbp。 步骤 2：编写 “计算 ”按钮的单
15、击事件过程。 参考代码： Pr5 Vate Sub Command1_Click() Dim f As Long a(1) =1 a(2) =1 For i=3 To Val(Textl Text) f=a(i-2) +a(i-1) +l a(i) =f Next Text2 Text=f End Sub 步骤 3：运行程序，在文本框中输入 40，并单击 “计算 ”按钮获得一个结果，然后单击 “存盘 ”按钮保存计算 结果。 步骤 4：按要求将文件保存至考生文件夹中。 【试题解析】 数组使用相同的名字引用一系列变量，并用数字索引来识别它们。数组有上界和下界，数组的元素在上、下界内是连续的。 Vi
16、sual Basic对每一个索引值都分配空间，所以不要不切实际地声明一个太大的数组。在很多情况下，使用数组可以缩短和简化程序，因为可以利用索引值设计循环，高效处理多种情况。 可以声明具有任何基本数据类型的数组，数组中的所有元素具有相同的数据类型，当数据类型为 Variant时，各元素能够包含不同种类的数 据 (对象、字符串、数值等 )。 根据题意，从数列的第三个数开始，每个数是其前两个数之和加 l，数列第 n项的值可表示为： a(i)=a(i-1)+a(i-2)+1。可以利用 For循环语句 (循环变量 i的初值为3，终值为 Text1 Text)，从数列的第三个数开始，逐一计算出该数列第 3-n项的值，计算表达式为 a(i)=a(i-1)+a(i-2)+1。
