7.4数组的删除 1.格式 Erase 数组名 第七章 2.功能 > 删除静态数组将对其中的所有元素进行初 始化。例如，将数值型数组元素值置为0： 数 将可变长度字符串类型数组元素值置为零 长度字符串。注意，Erase语句不能释放 组 静态数组所占的存储空间。 > 删除动态数组将释放动态数组所占的存储 空间，在下次引用该动态数组之前，必须 使用ReDim语句重新定义该数组。 26
第 七 章 数 组 26 1. 格式 Erase 数组名 2. 功能 ➢删除静态数组将对其中的所有元素进行初 始化。例如，将数值型数组元素值置为0； 将可变长度字符串类型数组元素值置为零 长度字符串。注意，Erase语句不能释放 静态数组所占的存储空间。 ➢删除动态数组将释放动态数组所占的存储 空间，在下次引用该动态数组之前，必须 使用ReDim语句重新定义该数组。 7.4 数组的删除
7.5使用For Each.Next循环处理数组 1.格式 For Each变量In数组名 第七章 [语句组1] Exit For] 只能是一个 [语句组2 可变类型的 Next变量 变量 数 2.功能：首先将数组中的第一个元素赋给”变 组 量”，然后进入循环体中执行其中的语句。 如果数组中还有其他元素，则继续将下一 个元素赋值给”变量”后执行循环体，当针 对数组中的所有元素都执行完了，便会退 出循环，执行Next之后的语句。 27
第 七 章 数 组 27 1. 格式 For Each 变量 In 数组名 [ 语句组1 ] [ Exit For ] [ 语句组2 ] Next 变量 7.5 使用For Each.Next循环处理数组 只能是一个 可变类型的 变量 2. 功能: 首先将数组中的第一个元素赋给”变 量”，然后进入循环体中执行其中的语句。 如果数组中还有其他元素，则继续将下一 个元素赋值给”变量”后执行循环体，当针 对数组中的所有元素都执行完了，便会退 出循环，执行Next之后的语句
例：以下程序段使用For Each.Nexti语句打 印一维数组X中的所有元素。 Dim X(15) 比较： 第七章 For Each A In X For I=0 To 15 Print A; Print X(i); Next A Next i 数 例：求二维数组Y的所有元素之和。 DimY(10,10) 比较： 组 For I=0 To 10 For Each A In Y For J=0 To10 Sum=Sum +A Sum=Sum+Y(I,J) Next A Next J Print Sum Next I
第 七 章 数 组 28 例: 以下程序段使用For Each.Next语句打 印一维数组X中的所有元素。 Dim X(15) . For Each A In X Print A; Next A 比较： For I= 0 To 10 For J=0 To10 Sum=Sum+ Y(I,J) Next J Next I 比较： For I= 0 To 15 Print X(i); Next i 例: 求二维数组Y的所有元素之和。 Dim Y(10, 10) . For Each A In Y Sum = Sum + A Next A Print Sum
7.6数组操作函数 1.LBound和UBound函数 格式： 第七章 >LBound(数组名[，N) >UBound(数组名[，N) 功能： 数 >LBoundi函数返回“数组名指定的数组的 第N维的下界； 组 > UBoundi函数返回“数组名”指定的数组的 第N维的上界。 说明：N为1表示第一维，N为2表示第二维， 等等。如果省略N,! 则默认为1。 29
第 七 章 数 组 29 7.6 数组操作函数 1．LBound和UBound函数 格式： ➢LBound(数组名[，N]) ➢UBound(数组名[，N]) 功能： ➢LBound函数返回“数组名”指定的数组的 第N维的下界； ➢UBound函数返回“数组名”指定的数组的 第N维的上界。 说明：N为1表示第一维，N为2表示第二维， 等等。如果省略N，则默认为1
例：要打印一维数组A的各个值，可以通过 下面的代码实现： For I=LBound(A)To UBound(A) 第七章 Print A(①； Next I 例：要打印二维数组B的各个值，可以通过 下面的代码实现： 数 For I=LBound(B,1)To UBound(B,1) 组 For J=LBound(B,2)To UBound(B,2) Print B(I,J); Next J Print Next I 30
第 七 章 数 组 30 例：要打印一维数组A的各个值，可以通过 下面的代码实现： For I = LBound(A) To UBound(A) Print A(I); Next I 例：要打印二维数组B的各个值，可以通过 下面的代码实现： For I = LBound(B, 1) To UBound(B, 1) For J = LBound(B, 2) To UBound(B, 2) Print B(I, J); Next J Print Next I