Lbound函数应用示例 Private Sub Form Click Dim A(5)As Integer Dim B(3 to 8, 200 to 208) Print LBound (A), LBound (B, 1), LBound (B, 2) End Sub 程序执行结果是:0 200
Lbound函数应用示例 Private Sub Form_Click() Dim A(5) As Integer, Dim B(3 to 8,200 to 208) Print LBound(A),LBound(B,1),LBound(B,2) End Sub 程序执行结果是：0 3 200
Ubound函数应用示例 Private Sub Form Click Dim A(5)As Integer Dim b(3 to 8, 200 to 208) Print UBound (A), UBound (B, 1), UBound (B, 2) End Sub 程序执行结果是:58 208
Ubound函数应用示例 Private Sub Form_Click() Dim A(5) As Integer, Dim B(3 to 8,200 to 208) Print UBound(A),UBound(B,1),UBound(B,2) End Sub 程序执行结果是：5 8 208
Erase语句 Erase语句的功能是重新初始化固 定大小数组的元素,或者释放动 态数组的存储空间 Erase语句应用示例
Erase 语句 • Erase语句的功能是重新初始化固 定大小数组的元素，或者释放动 态数组的存储空间。 • Erase语句应用示例
Erase语句应用示例 Private Sub Form Click Dim A(3) As Integer, B(As Integer A(1)=1:A(2)=2:A(3)=3 ReDim e(4)为B分配4个整数单元(8B) PrintA(D),A(2),A(3) Erase A,B‘A充0,B的单元释放 PrintA(D),A(2),A(3) End Sub
Erase语句应用示例 Private Sub Form_Click() Dim A(3) As Integer, B ( ) As Integer A(1) = 1: A(2) = 2: A(3) = 3 ReDim B(4) ‘为B分配4个整数单元（8B） Print A(1), A(2), A(3) EraseA, B ‘A充0，B的单元释放 Print A(1), A(2), A(3) End Sub
For each∴Next结构语句 For each Next语句是专门用来为 数组或对象集合中的每个元素重复 执行一组语句而设置的。 For Each 圆口■ Next语句应用示例
For Each … Next结构语句 • For Each … Next语句是专门用来为 数组或对象集合中的每个元素重复 执行一组语句而设置的。 • For Each … Next语句应用示例