《Visual Basic程序设计 教学课件 ppt 作者 刘瑞新 VB7》由会员分享，可在线阅读，更多相关《Visual Basic程序设计 教学课件 ppt 作者 刘瑞新 VB7（19页珍藏版）》请在金锄头文库上搜索。
1、本章主要内容： 数组的概念 控件数组 For EachNext语句 滚动条控件,第7章 数 组,7.1 数组的概念 7.1.1 数组元素 数组是一组用一个统一的名称表示的、顺序排列的变量。数组中的变量称为数组元素，用数字（下标）来标识它们，因此数组元素又称为下标变量。 数组的命名与简单变量的命名规则相同。 下标必须用括号括起来，不能把数组元素x(2)写成x2，后者是简单变量。 下标可以是常数、变量或表达式。下标还可以是下标变量（数组元素），如y(x(2)，若x(2)=10，则y(x(2)就是y(10)。 下标必须是整数，否则将被自动取整（舍去小数部分）。如a(5.6)将被视为a(5)。, 下标
2、的最大和最小值分别称为数组的上界和下界。数组的元素在上下界内是连续的。由于对每一个下标值都分配空间，所以声明数组的大小要适当。 7.1.2 数组的维数 如果一个数组的元素只有一个下标，则称这个数组为一维数组。例如，数组a有10个元素：a(1)、a(2)、a(3)、a(10)，依次保存10个学生的一门功课的成绩，则a为一维数组。一维数组中的各个元素又称为单下标变量。一维数组中的下标又称为索引（Index）。 如果有10个学生，每个学生有5门功课的成绩，如表7-1所示。,表7-1 学生成绩表,这些成绩可以用有两个下标的数组来表示，如第i个学生第j门课的成绩可以用a(i, j)表示。其中i表示学生号
3、，称为行下标（i=1, 2, 10）；j表示课程号，称为列下标（j=1, 2, 3, 4, 5）。有两个下标的数组称为二维数组，其中的数组元素称为双下标变量。,7.1.3 数组的声明 声明数组的格式为： Dim 数组名(维数定义) As 类型 说明： 维数定义指定数组的维数以及各维的范围： 下标下界1To 下标上界1，下标下界2To 下标上界2 . . . 如果不指定下标下界，则数组的下界由Option Base语句控制。如使用Option Base 1，则表示缺省的下界为1。 如果没有使用Option Base语句，则缺省的下界为0，例如： Dim a(10) As Integer 11个元
4、素，索引值从0到10 Dim b(5) As Double 6个元素，索引值从0到5,亦可以用关键字To显式提供下标的下界（为Long数据类型），例如： Dim c( 1 To 6 ) As Integer 6个元素，索引值从1到6 Dim s( 10 To 14 ) As String 5个元素，索引值从10到14 下标的上、下界不得超过Long数据类型的范围（2 147 483 6482 147 483 647）。 二维数组的声明： Dim a( 2 , 3 ) As Double 声明了一个34的二维数组a，亦可用显式下界来声明两个维数或两个维数中的任何一个，如： Dim a( 1 To
5、 3 , 1 To 4 ) As Double, 可以将所有这些推广到二维以上的数组，例如： Dim b( 2 , 1 To 3 , 1 To 4 ) 这个声明建立了三维数组b，大小为3 3 4。元素总数为三个维数的乘积，即36。 7.1.4 对数组元素的操作 对数组元素的操作与对简单变量的操作基本一样，但在引用数组元素的时候要注意以下几点： 数组声明语句不仅定义数组、为数组分配存储控件，而且还能对数组进行初始化，使得数值型数组的元素值初始化为0，字符型数组的元素值初始化为空等等。 引用数组元素的方法是在数组名后的括号中指定下标，如： t = a(2) : s = b(3,4),其中a(2)表
6、示数组a中索引值为2的元素，b(3,4)表示二维数组b中行下标为3，列下标为4的元素。 数组名、数组类型和维数必须与数组声明时一致。 下标值应在数组声明时所指定的范围之内。 在同一过程中，数组与简单变量不能同名。 【例7-1】 【例7-2】,7.2 控件数组 7.2.1 控件数组的概念 如果在应用程序中用到一些类型相同且功能类似的控件，则可将这些相同的控件视为一个数组“控件数组”。控件数组的使用类似数组变量的使用，也具有如下特点： 相同的名称（Name）。 以下标索引值（Index）来识别各个控件。 7.2.2 建立控件数组的方法 建立控件数组的方法有3种： l 给控件起相同的名字。 l 将现
7、有的控件复制并粘贴到窗体或框架、图片框上。 l 将控件的Index属性设置为非Null数值。,下面分别讲述创建控件数组的方法。 1. 给控件起相同的名称 通过改变已有控件的名称，可以将一组控件组成控件数组，具体步骤如下： 画出控件数组中要添加的控件（必须为同一类型的控件），并且决定哪一个控件作为数组中的第一个元素。 选定控件并将其Name属性设置成数组名称。 在为数组中的其他控件输入相同名称时，VB将显示一个对话框，要求确认是否要创建控件数组。此时选择“是”，确认操作。,例如，若控件数组第一个元素名为Command1，则选择另一个CommandButton将其添加到数组中，并将其名称也设置为C
8、ommand1，此时将显示这样一段信息：“已经有一个控件为Command1。创建一个控件数组吗？”。选择“是”，确认操作，如图7-6。 用这种方法添加的控件仅仅共享Name属性和控件类型，其他属性与最初画出控件时的值相同。,2. 复制现存控件 利用复制、粘贴的功能建立控件数组，如同文本编辑一样方便。具体步骤如下： 画出控件数组中的第一个控件。 当控件获得焦点时，单击“复制”按钮，或按Ctrl+C组合键。 单击“粘贴”按钮，或按Ctrl+V组合键。VB将显示一个对话框询问是否确认创建控件数组。选择“是”，确认操作（如图7-6），将得到控件数组中的第二个控件。 继续单击“粘贴”按钮（或按Ctrl+
9、V组合键），可得到控件数组中的其他控件。,每个新数组元素的索引值与其添加到控件数组中的次序相同，如图7-7中第二次粘贴的Option1，其Index的值为2。并且添加控件时，大多数可视属性，例如高度、宽度和颜色，将从数组中第一个控件复制到新控件中。,3. 指定控件的索引值 直接指定控件数组中第一个控件的索引值为0，然后利用前两种方法中的任何一种添加控件数组的成员，将不会出现对话框询问是否创建控件数组。 7.2.3 控件数组的使用 【例7-3】 【例7-4】,7.3 For EachNext语句 语法为： For Each 成员 In 数组 语句组 Exit For Next 成员 说明： 成员
10、是一个Variant变量，它为循环提供，并在For Each.Next语句中重复使用，它实际上代表的是数组中每个元素。 数组是一个数组名，没有括号和上下界。,用For Each.Next语句可以对数组元素进行处理，包括查询、显示或读取。它所重复执行的次数有数组中元素的个数确定，也就是说，数组中有多少个元素，就自动重复执行多少次。例如： Dim a(1 To 6) For Each x In a Print x; Next x 【例7-5】 【例7-6】,7.4 滚动条控件 7.4.1 水平滚动条和垂直滚动条 滚动条有水平和垂直两种，可以通过水平滚动条（HScrollBars）和垂直滚动条（VS
11、crollBars）工具来建立，如图7-16所示。除了方向之外，水平滚动条和垂直滚动条的动作是相同的。,7.4.2 滚动条的属性 1. Min、Max属性 返回或设置滚动条所能代表的最小、最大值，其取值范围为3276832767。Min属性的默认值为0，Max属性的默认值为32 767。 2. Value属性 返回或设置滚动条的当前位置，其返回值始终介于Max和Min属性值之间，包括这两个值。 3. LargeChange属性 返回和设置当用户单击滚动框和滚动箭头之间的区域时，滚动条控件Value属性值的改变量。比如，若设置LargeChange属性值为10，则单击水平滚动框左边的区域时，滚动条的Value属性值将递减10，若单击滚动框右边的区域，则Value将递增10。该属性的默认值为l。,4. SmallChange属性 返回和设置当用户单击滚动箭头时，滚动条控件Value属性值的改变量。当单击滚动条两端的箭头按钮时，滚动条的值将按最小改变量进行递增或递减。该属性的默认值为1。 7.4.3 滚动条的事件 滚动条可以识别多种事件，但最重要的是Change和Scroll事件。 7.4.4 滚动条的应用 可以使用滚动条来提供简便的定位，还可以作为输入设备，或者速度、数量的指示器来使用。 【例7-7】 【例7-8】 7.5 习题,
