[计算机类试卷]国家二级（VB）机试模拟试卷128及答案与解析.doc

1、国家二级（ VB）机试模拟试卷 128及答案与解析 一、选择题 1 下列数据结构中，能用二分法进行查找的是 ( )。 （ A）无序线性表 （ B）线性链表 （ C）二叉链表 （ D）顺序存储的有序表 2 下列叙述中，不属于设计准则的是 ( )。 （ A）提高模块独立性 （ B）使模块的作用域在该模块的控制域中 （ C）设计成多入口、多出口模块 （ D）设计功能可预测的模块 3 下列队列的描述中，正确的是 ( )。 （ A）队列属于非线性表 （ B）队列在队尾删除数据 （ C）队列按 “先进后出 ”进行数据操作 （ D）队列按 “先进先出 ”进行数据操作 4 对下列二叉树进行前序遍历的结果为 (

2、 )。 （ A） ABCDEFGH （ B） ABDGEHCF （ C） GDBEHACF （ D） GDHEBFCA 5 对于长度为 n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是 ( )。 （ A）冒泡排序为 n(n-1) 2 （ B）简单插入排序为 n （ C）希尔排序为 n （ D）快速排序为 n 2 6 为了使模块尽可能独立，要求 ( )。 （ A）内聚程度要尽量高，耦合程度要 尽量强 （ B）内聚程度要尽量高，耦合程度要尽量弱 （ C）内聚程度要尽量低，耦合程度要尽量弱 （ D）内聚程度要尽量低，耦合程度要尽量强 7 下列选项中不属于软件生命周期开发阶段任务的是

3、( )。 （ A）软件测试 （ B）概要设计 （ C）软件维护 （ D）详细设计 8 数据独立性是数据库技术的重要特点之一。所谓数据独立性是指 ( )。 （ A）数据与程序独立存放 （ B）不同的数据被存放在不同的文件中 （ C）不同的数据只能被对应的应用程序所使用 （ D）以上三种说法都不对 9 在 学校中， “班级 ”与 “学生 ”两个实体集之间的联系属于 ( )关系。 （ A）一对一 （ B）一对多 （ C）多对一 （ D）多对多 10 软件调试的目的是 ( )。 （ A）发现错误 （ B）改善软件的性能 （ C）改正错误 （ D）验证软件的正确性 11 下列不能打开菜单编辑器的操作是

4、( )。 （ A）按 Ctrl+E键 （ B）单击工具栏中的 “菜单编辑器 ”按钮 （ C）执行 “工具 ”菜单中的 “菜单编辑器 ”命令 （ D）按 Shift+Alt+M键 12 以下 ( )对象不能作为 容器。 （ A） Frame （ B） From （ C） PictureBox （ D） Image 13 关于自定义数据类型，下面叙述中不正确的是 ( )。 （ A）自定义数据类型必须在窗体模块或标准模块的通用声明段进行声明 （ B）在窗体模块中定义自定义数据类型时必须使用 Private关键字 （ C）自定义数据类型只能在窗体模块的通用声明段进行声明 （ D）自定义数据类型中的元素

5、的数据类型可以是系统提供的基本数据类型或已声明的自定义数据类型 14 8 6787E+8写成普通的十进制数是 ( )。 （ A） 86 787 000 （ B） 867 870 000 （ C） 8 678 700 （ D） 8 678 700 000 15 设 x=4， y=8， z=7，则以下表达式的运算结果是 ( )。 xz)Or z0， -a， a)有相同结果的代数式是 ( )。 （ A） a （ B）一 a （ C） a （ D）一 a 19 在窗体上画一个名称为 Textl的文本框，然后画一个名称为 Hscrolll的滚动条，其 Min和 Max属性分别为 0和 1000。程序运行

6、后，如果移动滑块，则在文本框中显示滚动条的当前值。以下能实现上述操作的程序是 ( )。 （ A） Pfivate Sub Hscroll l_Change() Textl Text=HScrolll Value End Sub （ B） Private Sub Hscroll l_Click() Text1 Text=-HScrolll Value End Sub （ C） Pdvate Sub Hscroll lChange() Text 1 Text=Hscroll 1 Caption End Sub （ D） Private Sub Hscroll l_Click() Text1 Tex

7、t=Hscrolll Caption End Sub 20 下列可以打开立即窗口的操作是 ( )。 （ A） Ctrl+D （ B） Ctrl+E （ C） Ctrl+F （ D） Ctrl+G 21 下列程序段的执行结果为 ( )。 x=Int(Rnd+3) Select Case x Case 5 Print“A Row” Case 4 Print“B Row” Case 3 Print“C ROW” Case Else Priht“D Row” End Select （ A） A Row （ B） B Row （ C） C Row （ D） D Row 22 以下能够正确退出循环的是 (

8、 )。 （ A） i=10 Do i=i+1 Loop Until i10 Then Exit For Next Text1 Text： Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的是 ( )。 （ A） 2 （ B） 3 （ C） 4 （ D） 5 28 在窗体上画一个名称为 Textl的文本框，然后画 3个单选按钮，并用这 3个单选按钮建立一 个名为 option1的控件数组，程序运行后，如果单击某个单选按钮，则文本框中的字体根据所选择的单选按钮切换，如图 1所示。请选择适合空白处的语句 ( )。 Private Sub Option 1Click(Index

9、As Integer)Select CaseCase 0： a=“宋体 ”Case 1： a： “黑体 ”Case 2： a=“楷体GB2312”End SelectText1_=aEnd Sub （ A） Option Text （ B） Index Text （ C） Index Font （ D） Option Font 29 设有如下通用过程： Public Sub Fun(a0As Integer,XAs Integer) For i=1 To 4 X=x*a(i) Next End Sub 在窗体上画一个名称为 Text1的文本框和一个名称为 Commandl的命令按钮，然后编写如

10、下事件过程： Private Sub Command 1 Click() Dim arr(5)As Integer,n As Integer n=1 For i=1 To 4 arr(i)=i+i Next Fun arr， n Textl Text=Str(n) End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是 ( )。 （ A） 30 （ B） 25 （ C） 20 （ D） 15 30 在窗体上画一个文本框，然后编写如下事件过程： Private Sub TextLKeyPress(KeyAscii As Integcr) Dim charAs String char=

11、Chr(KeyAscii) KeyAscii=Asc(UCase(char) Textl Text=String(6， KeyAscii) End Sub 程序运行后，如果在键盘上输入字母 “a”，则文本框中显示的内容为 ( )。 （ A） a （ B） A （ C） aaaaaa （ D） AAAAAA 31 以下对文件分类的划分不正确的是 ( )。 （ A）文件分为程序文件和数据文件 （ B）文件分为有结构文件和无结构文件 （ C）文件分为 ASC 文件和二进制文件 （ D）文件分为顺序文件和随机文件 32 在窗体上有一个名称为 Commandl的命令按钮，并编写有如下事件过程： Priv

12、ate Sub Command 1一 Click() Dim rec As animal Open”c： v bTest dat”For Random As#l Len=Len(rec)rec animalName=“cat” rec aColor=“White” Put#1， rec Close#1 End Sub 记录类型定义如下： Private Type animal animalName As String*S20 aColor As String*10 End Type 下列叙述中正确的是 ( )。 （ A）记录类型 animal不能在 Forml中定义，必须在标准模块中定义 （

13、B）如果文件 c： vbTest dat不存在，则 Open命令执行失败 （ C）由于 Put命令中没有指明记录号，因此每次都把记录写到文件的末尾 （ D）语句 “Put#1， rec”将 animal类型的两个数据元素写到文件中 33 文本框接受的最长字符数由文本框的 ( )属性确定。 （ A） MaxLength （ B） MultiLine （ C） Width （ D） Text 34 以下事件过程的功能是：从已存在于磁盘上的顺序文件 Numl txt中读 取数据，计算读出数据的平方值，将该数据及其平方值存入新的顺序文件 Nurn2 txt中。则在以下横线处合适的语句是 ( )。 Pr

14、ivate Sub Form_Click() Dim文 As Single， YAs Single Open“Numl txt”For Input As#1 Open“Num2 txt”For Output As#2 Do While Not EOF(1) Print x y=x2 Print y Loop Close#1 #2 End Sub （ A） Input#1， YPrint#2x， y （ B） Input#2， x Print#1， x,y （ C） Print#1， x Input#2， x， y （ D） Input#1， x Print#2， x， y 35 下列程序的执行

15、结果为 ( )。 n=0 j=1 Do Until n2 n=n+1： j=j+n*(n+1) Loop Print n： i （ A） 0 1 （ B） 3 7 （ C） 3 21 （ D） 3 13 36 下列程序在运行时输出的结果是 ( )。 Option Base 1 Private Sub Form Click() Dim x(10) For i=1 To 10 x(i)=10-i+1 Next i For i=10 To 1 Step-2 Print x(i) Next i End Sub （ A） 1 3 5 7 9 （ B） 9 7 5 3 1 （ C） 1 2 3 4 5 6

16、 7 8 9 10 （ D） 10 9 8 7 6 5 4 3 2 1 37 运行下列程序时，输出的结果是 ( )。 Private Sub Form Click() Dim x x=Array(“Software”， “and”， “Hardware”， “System”) For i=LBound(x， 1)To UBound(x， 1) If Left(x(i)， 1)=“S”Then Print x(i)； Next i End SubaSoftware Private Sub Command l Click() Dim a(4， 4)As Variant For i=1 To 4 F

17、or j=1 To-4 a(i， j)=(i-1)*3+j Next j Next i For i=3 To 4 For=3 To 4 Print a(i， j) Next i Next i End Sub 该稗序执行后，输出结果是 ( )。 （ A） 9 1 0 1 2 1 3 （ B） 7 10 12 13 （ C） 9 12 10 13 （ D） 8 11 9 12 38 用 Line Input语句从顺序文件读出数据时，每次读出一行数据。所谓一行是指遇到 ( )分隔符，即认为一行的结束。 （ A）文件结束符 （ B）回车符 （ C）空格 （ D） Tab字符 39 有以下程序段，当在消

18、息框中输入 8后， y的值为 ( )。 x=InputBox(“Enter lan Integer“) x=CInt(x) Select Case x Case Is1 5 y=0 End Select （ A） 18 （ B） 1 9 （ C） 20 （ D） 21 二、基本操作题 40 在名称为 Forml的窗体上画出包含三个命令按钮的控件数组，名称为 cmd1，下标分别为 0、 1、 2， Caption分别为 “开始 ”、 “停止 ”和 “退出 ”，如图 3(a)所示 。通过属性窗口设置各命令按钮的属性，使得程序开始运行时， “停止 ”按钮不可见， “退出 ”，按钮不可用，如图 3(b

19、)所不。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjtl frm，工程文件名为sjtl Vbpp 41 在名称为 Forml的窗体上画两个名称分别为 Commandl和 Command2、标题分别为 “打开 ”，和 “保存 ”，的命令按钮，和一个名称为 CDl的通用对话框，如图 4所示。请在属性窗口中设置 CD1的属性，使得打开通用对话框时，其初始路径是“c： ”。再编写适当的事件过程，使得运行程序，分 别单击 “打开 ”或 “保存 ”按钮时，相应地出现 “打开 ”或 “保存 ”对话框。要求程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时，将文件保存至考生文件夹下

20、，且窗体文件名为sjt2 frm，工程文件名为 sjt2 vbp。 三、简单应用题 42 在考生文件夹下有一个工程文件 sjt3 vbp，其功能是： 单击 “读数据 ”按钮，则把考生文件夹下 in3 dat文件中的 100个正整数读入数组 a中； 单击 “统计 ”按钮，则找出这 100个正整数中的所有完全平方数 (一个整数若是另外一个整数的平方，那么它就是完全平方数。例如， 36=62，所以 36就是一个完全平方数 )，并将这些完全平方数的最大值与个数分别显示在文本框 Text1、 Text2中。在给出的窗体文件中有了全部控件 (如图 6所示 )，但程序不完整，请将程序中的注释符去掉，把 ?号

21、改为正确的内容，实现上述功能。注 意：考生不得修改窗体文件已存在的控件和程序，最后将程序原文件名存盘。 43 在考生文件夹下有一个工程文件 sjt4 vbp，其窗体上有两个标题分别为 “添加 ”和 “退出 ”的命令按钮，一个内容为空的列表框 List1。请画一个标签，其名称为Labell，标题为 “请输入编号 ”；再画一个名称为 Text1，初始值为空的文本框，如图 7所示。程序功能如下： 系统启动时，自动向列表框添加一个编号信息“a0001”。 系统运行时，在文本框 Textl中输入一个编号，并单击 “添加 ”按钮时，如果该编号与已存在于列表框中的其他编号不重 复，则将其添加到列表框 Lis

22、tl已有项目之后；否则，将弹出 “不允许重复输入，请重新输入 !”对话框，单击该对话框中的 “确定 ”按钮，可以重新输入。 单击 “退出 ”按钮，则结束程序运行。要求：请去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。四、综合应用题 44 在考生文件夹中有一个工程文件 sjt5 vbp，如图 6所示。运行程序时，从文件中读入矩阵数据并放入二维数组 a中。单击 “计算 ”按钮时，将统计矩阵两个对角线的元 素中能被 3整除的个数，统计结果显示在标签 lblFirst中；同时计算矩阵主对角线的元素之和，计

23、算结果显示在标签 lblSecond中。已给出了部分程序，请编写“计算 ”命令按钮事件过程中的部分程序代码，以便完成上述功能。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，必须执行程序，并用 “计算 ”，按钮进行计算，否则无成绩。国家二级（ VB）机试模拟试卷 128答案与解析 一、选择题 1 【正确答案】 D 【试题解析】 二分法查找只适用于顺序存储的有序表，表中 的元素按值从小到大排列。 2 【正确答案】 C 【试题解析】 大量软件设计表明，以下的设计准则是可以借鉴为设计的指导和对软件结构图进行优化，这些准则是：提高模块独立性：模块规模适中；深度

24、、宽度、扇出和扇入适当；使模块的作用域在该模块的控制域中；应减少模块的接口和界面的复杂性；设计成单入口、单出口的模块；设计功能可预测的模块。 3 【正确答案】 D 【试题解析】 队列是只允许在一端删除，在另一端插入的顺序表，允许删除的一端叫做队头，允许插入的一端叫做队尾。队列的操作数是依据先进先出的原则进行的。因此队列亦称作先进先出的线性表，或后进后出的线性表。 4 【正确答案】 B 【试题解析】 遍历就是不重复地访问二叉树的所有结点。二叉树遍历的方法有 3种：前序遍历、中序遍历和后序遍历。记住 3种遍历的顺序； 前序，访问根一按前序遍历左子树一按前序遍历右子树； 中序，按中序遍历左子树 访问

25、根 按中序遍历右子树； 后序，按后序遍历左子树 按后序遍历右子树 访问根。 所以对该二叉树的中序遍历结果为 ABDGEHCF。 5 【正确答案】 A 【试题解析】 在最坏情况下，冒泡排序所需要的比较次数 为 n(n一 1) 2：简单插入排序所需要的比较次数为 n(n-1) 2；希尔排序所需要的比较次数为 O(n1.5)；堆排序所需要的比较次数为 O(nlog2n. 6 【正确答案】 B 【试题解析】 模块独立性是指每个模块只完成系统要求的独立的子功能，并且与其他模块的联系最少且接口简单。耦合性与内聚性是模块独立性的两个定性标准，耦合与内聚是相互关联的。在程序结构中，各模块的内聚性越强，则耦合性

26、越弱。一般较优秀的软件设计，应尽量做到高内聚，低耦合，即减弱模块之间的耦合性和提高模块内的内聚性，有利于提高模块的 独立性。 7 【正确答案】 C 【试题解析】 软件生命周期分为软件定义、软件开发及软件运行维护三个阶段，其中开发阶段包括概要设计、详细设计、实现和测试。 8 【正确答案】 D 【试题解析】 数据独立性是数据与程序间的互不依赖性，即数据库中数据独立于应用程序而不依赖于应用程序。所以选项 A，选项 B和选项 C都不正确。 9 【正确答案】 B 【试题解析】 一个班可以有多名学生，而一名学生只能属于一个班级，所以 “班级 ”与 “学生 ”两个实体集之间的联系属于一对多关系。 10 【正

27、确答案】 C 【试题解析】 在对程序进行了成功的测试之后将进入程序调试，程序调试的任务是诊断和改正程序中的错误。 11 【正确答案】 D 【试题解析】 在 VB中打开菜单编辑器有 4种方式： 执行 “工具 ”菜单中的 “菜单编辑器 ”命令： 使用热键 Ctrl+E； 单击工具栏中的 “菜单编辑器 ”按钮； 在要建立菜单的窗体上单击鼠标右键，将弹出一个菜单，然后单击 “菜单编辑器 ”命令。 12 【正确答案】 D 【试题解析】 本题考查容器。容器是指可以容纳其他控件的控件。 VB中常用来作为容器的有框架、窗体和图片 框 (PictureBox)。 13 【正确答案】 C 【试题解析】 本题考查自

28、定义数据类型。聊 e语句用于定义自定义数据类型，可以声明在窗体的通用部分或者标准模块中，窗体自定义必须说明为 Private属性。自定义数据类型含有一个或一个以上的成员，每个成员可以被定义为不同的已经存在的数据类型。 14 【正确答案】 B 【试题解析】 本题考查浮点数的表示。 E表示 10，后面的整数为 10的幂。也就是数学中的 8 6787105形式。 15 【正确答案】 D 【试题解析】 本题考查逻辑运算。将 操作数进行逻辑运算，结果是逻辑值。常见的逻辑运算有逻辑与和逻辑或，格式分别为： “条件表达式 l And条件表达式 2”，条件表达式均为 T时结果为 T； “条件表达式 1 Or条

29、件表达式 2”，有一个条件表达式为 T时结果为 T。 Not为取反运算，若 xz为 False，因此 And运算结果为 False：又因为 Z0则返回 a，否则返回 a，等价于 IaI。 19 【正确答案】 A 【试题解析】 本题考查滚动条的事 件和属性。滚动条上滑块的位置决定了其Value属性的值，当滑块的位置发生改变时，将触发滚动条的 Change事件。因此，要想在移动滑块时，在文本框中显示滚动条的当前值，可通过在滚动条的Change事件中将滚动条的 Value属性值赋值给文本框的 Text属性来实现。 20 【正确答案】 D 【试题解析】 快捷键打开的是添加文件对话框： 快捷键打开的是菜

30、单编辑器对话框； 快捷键不打开任何对话框； 快捷键打开的是立即窗口。 21 【正确答案】 C 【试题解析】 本题考查 Select语句的执行。 Rnd产生 0， 1)范围内的数， Int()函数取不大于参数的最小整数，因此 x的值总为 4。 Select Case语句的功能是在各个Case分支中寻找 x的位置，找到则执行该分支的语句，执行完毕退出 Select Case语句。 22 【正确答案】 B 【试题解析】 本题考查 Do型循环。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件是否成立，至少执行一次循环体。

31、由 Until引出的循环条件为 False时执行循环体，条件为 True时退出循环；选项 A中循环变量在 10的基础上逐渐增加，不可能小于 10；选项 B中循环变量的步长为 1，初值为 1，可能到达 10，然后退出循环。而选项 C和 A相似。选项 D中循环变量的步长为 -3，不可能等于 0。 23 【正确答案】 C 【试题解析】 本题考查数组元素的赋值。数组 a在循环中为数据赋值，循环变量i从 0到 4，步长为 1。如果 i等于 2，则将 a(0)的值赋给 a(2)：如果 m等于 3，则将 a(0)的值赋给 a(1)。因此数组元素的值为： 1 2 1 4 4。 24 【正确答案】 B 【试题解

32、析】 本题考查 ForEach in循环。 For Each in循环在本题中的功能是：依次从数组 score中取出每一个元素放到变量 t中并输出。数组 score中的元素从1到 3分别为： 2 4 6。 25 【正确答案】 C 【试题解析】 本题考查变体数组。题中定义了一个下标从 0开始的变体数组 a，然后利用 Array函数初始化数组 a中的数据，最后通过 For循环输出数组中a(5)、 a(4)、 at3)、 a(2)四个元素的值，分别为： 6 5 4 3。 26 【正确 答案】 B 【试题解析】 一个表达式可能含有多种运算，计算机按一定的顺序对表达式求值。一般顺序如下： (1)首先进行

33、函数运算； (2)接着进行算术运算，其次序为：算术运算符，幂运算符 ()优先级最高，其次是取负运算 (-)、乘 (*)、浮点除 (， )、整除 ( )、取模 (Mod)、加 (+)、减 ( )、字符串连接符 (Print#文件号 输出列表 。 35 【正确答案】 C 【试题解析】 本题考查循环程序的分析。在 Do Until循环中如果 n小于等于 2，那么把 n*(n+1)的结果累加到 j上。因此程序的功能为：循环变量 n从 0开始到 2共执行了 3次，目的为计算 1+1*2+2*3+3*4。 36 【正确答案】 A 【试题解析】 本题考查数组元素的赋值。数组 x元素的下标从 1到 10，元素

34、分别为： 10-下标 +1(也就是 10 9 8 7 6 5 4 3 2 1)。循环结束后，从高下标端输出偶数下标的元素。 37 【正确答案】 B 【试题解析】 本题考查变体类型。变体类型变量可通过 Array函数来存放多个元素，做为数组进行处理。要读取数组上界时，可使用 UBound(x)来实现，要读取数组下界时， LBoundqx)来实现。因为题中 x存放了多个字符串， i表示第一个字符串的行下标的下界， UBound(x,1)表示第一个字符串的行下标的上界。利用 Left函数取得每一行数组元素的最左边的字符，然后判断是否为 “S”，如果是，则输出该元素。 38 【正确答案】 B 【试题解

35、析】 本题考查行结束标志。文件中用 EOF测试是否到达末尾：而用 “回车符 ”确定是否结束一行。 39 【正确答案】 D 【试题解析】 本题考查程序段的分析。 SelectCase语句描述了当 x取不同 值时 y值的情况。当在输入框中输入 8，并单击 “确定 ”按钮后， x得到的值为 8。此时，满足 Select Case语句中的第二个 Case语句，因此执行 v=5+2*x=5+2*8=21。 二、基本操作题 40 【正确答案】 步骤 1：新建一个 “标准 EXE”工程，如表 12一 1在窗体中用 “复制 ”和 “粘贴 ”画出控件数组并设置属性。 41 【正确答案】 步骤 1：新建一个 “标

36、准 EXE”工程，选择【工程】 【部件】命令，在弹出的 “部件 ”对话框的列表中选中 “MicroSoft Common Dialog Control6 0”项目，单击 “确定 ”按钮。步骤 2：在窗体 Forml上画一个通用对话框，其相关属性设置如表 12 2所示。 步骤 3：编写两个命令按钮的 Click事件，加入下面的代码：步骤 4：按要求将文件保存至考生文件夹中。 三、简单应用题 42 【正确答案】 步骤 1：打开考生文件夹下的本题工程文件 sjt3 vbp，去掉程序中的注释符 “*”，将问号 “?”改为正确的内容。 Ifx=m2 Then： issquare=flag Ifa(k)m

37、ax Then Text1 Text=max： Text2 Text=num 步骤 2：按要求将文件保存至考生文件夹中。 43 【正确答案】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，如表 12-5在窗体中画出控件并设置其相关属性。 步骤 2：在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 Listl Addltem”a0001”For i=0 To I,istl ListCount一 1 Listl Listlndex=1：L,istl Addltem Textl Text End步骤 3：按要求将文件保存至考生文件夹中。 四、综合应用题 44 【正确答 案】 步骤 1：打开考生文件夹下的本题工程文件 sjt， 5,vbp，在代码编辑窗口的指定位置编写以下代码： For k=l To N Sum=Sum+a(k， k) Ifmk， k)， 3=Int(、 a(k， k) 3)Then Counter=Counter+1 End If Ifk Nk+l Then Ifa(k， N-k+1) 3=Int(a(k， Nk+1) 3)Thcn Counter=Counter+1 EndIf EndIf Next lblSecond Caption=Sum lblFirst Ca