第8章 数组

8.1.1 引例
由此，我们引入数组。用一批具有相同名字、不同下 标的下标变量来存放一组数据。在ＶＢ中，把一组具有相 同名字、不同下标的下标变量称为数组。 用数组求100名学生的平均成绩的程序段如下： Dim score(1 To 100) As Integer Sum = 0 For i = 1 To 100 score(i) = InputBox("输入" + i + "位学生的成绩") Sum = Sum + score(i) Next i average = Sum / 100 若要再求低于平均分的学生人数，可接着写如下语句： num=0 For i = 1 To 100 If score(i) < average Then num = num + 1 主讲:常国锋 Next i
8.1.2 数组的定义
数组应当先定义后使用。定义中要声明数组名、类型、 维数及数组的大小。数组在计算机内存中占据一块区域， 数组名是这个区域的名称，区域的每个单元都有自己的地 址，该地址用下标表示。定义数组的目的就是通知计算机 为其留出所需的内存空间。 数组的维数也就是定义时下标的个数。一个数组如果 只用一个下标就能确定一个数组元素在数组中的位置，就 称为一维数组。如果要用两个或多个下标才能确定一个数 组元素在数组中的位置，则称为二维数组或多维数组。 VB中的数组最多可以有60维。 在VB中，可以用4个语句来定义数组，它们的格式相同 ，但适用范围不同。这4个语句为： Dim 用在窗体模块或标准模块中，也可以用于过程中 ReDim 用在过程中 Static 用在过程中 Public 用在标准模块中，定义全局数组
主讲:常国锋
8.1.2 数组的定义
⑹在定义数组时，每一维的元素个数必须是常数，不 能是变量或表达式。如果需要在运行时定义数组的大 小，可以用动态数组的方法来解决这将在8.2节中详细 讲解。 ⑺数组的类型通常用As给出，如果省略As，则定义的 是默认数组。 ⑻ 数组的下界都必须小于上界。VB中提供了两个函 数LBound和UBound来测试一个数组中指定维的下界值 和上界值，这两个函数的格式为： LBound(数组名[,维]) UBound(数组名[,维]) 如果测试的是一维数组，则参数“维”可以省略， 如果测试的是多维数组，则参数“维”不能省略。
第8章 数组
前面使用的字符串、整型、实型等数据都是基本数据 类型的数据，通过简单变量来存取一个数据。然而在实 际应用中经常需要处理一批数据，因此，VB中也为我 们提供了数组类型。利用数组，可以方便灵活地组织和 使用数据。 数组是有序的数据的集合，数组中每一个数据称为数 组的一个元素。对于数组来说，不能用一个简单变量名 来访问它的某个元素。 在其它程序设计语言中，数组中的所有元素必须属 于同一种数据类型，而在VB中，一个数组中的元素可 以是相同类型的数据，也可以是不同数据类型的数据。
主讲:常国锋
8.1 数组的概念及定义
8.1.1 引例 【例8.1】求一个班100名学生某门课的平均成绩。 分析：很显然，我们不能去定义100个简单变量解决这个问题 。但我们可以结合循环结构用一个简单变量来设计程序段如下 ： Sum = 0 For i = 1 To 100 score = InputBox("输入" + i + "位学生的成绩") Sum = Sum + score Next i average = Sum / 100 但是，因为存放学生成绩的变量score是一个简单变量，它只 能存放一个学生的成绩，而无法把100名学生的成绩全部保存起 来。因此，如果接下来要对这100名学生的成绩再作其它处理， 如统计不及格学生人数或统计高于平均分的人数，就要再重复 主讲:常国锋 输入100名学生的成绩，工作量大而且效率低。
For Each…Next语句与For…Next语句类似，都用来执行 指定次数的重复操作。但For Each…Next语句专门用于数组 ，其一般格式为： For Each 成员 In 数组名 循环体 [Exit For] … Next [成员] 其中：成员是一个变体变量，它是为循环提供的，它实际 上代表的是数组中的每个元素。 用For Each…Next语句可以对数组中的元素进行显示、读 取等处理，它所重复执行的次数由数组中元素的个数确定， 也就是说，数组中有多少个元素，就自动重复执行多少次
主讲:常国锋
8.1.2 数组的定义
2．根据需要指定数组下标的下界。格式如下：
Dim 数组名（[下界 To] 上界，[下界 To] 上界，…） As 类型名称
说明： ⑴ 数组名的命名规则与变量名相同。但在同一个过程中，数 组名不能与变量名同名。 ⑵ 数组必须先定义，后使用。BASIC的早期版本支持数组 的隐式定义，即如果一个数组未经定义而直接使用，则该数 组的各维的默认上界为10，下界为0或1。但在VB中，不允许 使用隐式定义。 ⑶ 当用Dim语句定义数组时，数组中的全部元素都被初始化 为0（数值型数组）或空字符串（字符型数组）。 ⑷ 在第一种格式中，下标的下界只能是0或1，而在第二种格 式中，下标的范围可以是-32768~32767。 ⑸注意区分“可以使用的最大下标值”和“元素个数”：前 者指的是下标值的上界，后者指数组中元素个数。
数组元素的输出可以用循环及Print方法来实现。如 ：
For i=0 To 3 For j=0 To 4 Print s(i , j);” Next j Print Next i
“;
主讲:常国锋
8.3.4 数组的赋值
数组的赋值是指将一个数组各个元素的值赋给另一 数组的各个元素。在VB6.0以前的版本中，要通过一个 For循环来实现。在VB6.0中，只要通过一条简单的赋值 语句即可实现。例如： Dim a(4) As Integer,b() As Integer a(0)=0:a(1)=5:a(2)=10:a(3)=15:a(4)=20 b=a 其中：b=a语句相当于执行了 ReDim b(UBound(a)) For i=0 To UBound(a) b(i)=a(i) Next i
主讲:常国锋
8.3.1 对数组元素进行初始化
Array函数用来为数组元素赋值，即把一个数据集读入 某个数组。其格式为： 数组变量名＝Array（数组元素值） 其中：数组变量名是预先定义的数组名，它后面没有括 号，之所以称为“数组变量”，是因为它作为数组使用， 但作为变量定义，既没有维数，也没有上下界，并且数组 变量不能是具体的数据类型，只能是Variant类型。数组元 素值是需要赋给数组各元素的值，各值之间以逗号分隔。 数组变量可以有三种定义方式： ⑴显式定义为Variant变量。如：Dim Num As Variant ⑵ 在定义时不指明类型。 如：Dim Num ⑶不定义而直接使用。 注意：Array函数只能对一维数组进行初始化，不能对二 维或多维数组进行初始化。
主讲:常国锋
8.2 静态数组与动态数组
在定义时已确定了数组占用内存空间大小的数组称为 静态数组，前面我们所使用的数组都是静态数组。动态数 组是指在声明数组时未给出数组占用内存的大小（省略括 号中的下标），当要使用它时，随时用ReDim语句重新指 出数组数组的下标，从新为其开辟内存区的数组。 因此静态数组是在程序编译时就为数组分配好了内存
主讲:常国锋
8.3.2 数组元素的输入
数组元素一般通过For循环语句及InputBox函数输入。如
For i=0 To 3 For j=0 To 4 s(i,j)=InputBox(“ 输 入 ” & i & ”,” & j & ” Next j Next i
主讲:常国锋
8.3.3 数组元素的输出
语句中的下标可以是常量，也可以是有了确定值的变量。
⑵在过程中可以多次使用ReDim语句来改变数组的大小，也 可以改变数组的维数，但最多不能超过8维。
⑶可以用ReDim语句直接定义数组。如果在窗体层或标准模
块 层 没 有 用 Dim或 Public 语 句 声 明 过 同 名 的 数 组 ， 则 用 ReDim定义的数组最多可有60维。 ⑷每次使用ReDim语句都会使原来数组中的值丢失，但如果 在ReDim语句中的ReDim关键字和数组名之间加上Preserve
主讲:常国锋
8.1.2 数组的定义
下面我们以Dim语句为例介绍数组定义的格式，其它语句 定义数组的格式与Dim相同。在VB中可以用两种格式定义 数组： 1．只给出每一维下标的上界，即可以使用的下标的最大值 。 格式如下：
Dim 数组名（第一维下标上界，第二维下标上界，…） As 类型名称
注意：在增加数组的维数时，数组所占的存储空间会大幅 度的增加，所以要慎用多维数组。使用Variant数组时更要 格外小心，因为它们需要更大的存储空间。 在一般情况下，数组下标的下界默认为0。如果希望下标 从1开始，也可以通过Option Base语句来设置，其格式为： Option Base n 其中n的值只能是0或1。Option Base语句 只能出现在窗体层或模块层，不能出现在过程中，并且必 须出现在数组定义之前。如果定义的是多维数组，则下标 的默认下界对每一维都有效。
主讲:常国锋
8.1.3 默认数组
所谓默认数组，就是数组类型为Variant（默认）的数 组。VB中允许定义默认数组。一般情况下，定义数组时应 指明其类型。如：Static Arr(3 to 5) As Integer 定义了一个数组Arr，该数组有3个元素，每个元素都是 一个整型数据。 如果把上述定义改为：Static Arr(3 to 5) 则数组 Arr是一个默认数组，其类型为Variant。即等价于如下定 义： Static Arr(3 to 5) As Variant 那么，默认数组有什么作用呢？前面我们已经知道： 几乎在所有的程序设计语言中，一个数组中的所有元素必 须属于同一种数据类型，而在VB中，一个数组中的元素可 以是相同类型的数据，也可以是不同数据类型的数据。而 默认数组就是可以存放不同类型数据的数组。因此，默认 数组也可以说是一种“混合数组”。