VB教案第四章.pptVIP

第四章 数组 静态数组与动态数组 For Each…Next语句 控件数组 记录数组 选择性控件 4.1 数组的概念 数组名(下标） 数组名（下标1 [ ,下标2，…]） 例： Dim a(10), i As Integer For i = 0 To 10 a(i) = i Next Dim b(5,5) As Integer b(0,0)=1 静态(定长)数组和动态(变长)数组 4.2 静态数组 Dim 数组名([下界1 to]上界1,[下界2 to]上界2) [As 数据类型]  例：Dim v%(100 to 200, 20)Dim str(-10 to 10) As string*3 Const n as integer=15 Dim a(n) as integer :Dim b(2*3) as integer Dim c(3.6) as integer Dim x as integer ： x=15 Dim d(x) as integer （错误） Option Base 1(通用声明段） 还可使用Public、Static、Private等语句 例４．１ 4.3 动态数组 格式： Dim 数组名（）[As 类型名] ReDim [Preserve] 数组名(上界1[，上界2…])[As 类型名] 例 Dim a() ReDim a(10,10) As Variant …… ReDim a(1 to 2,2,2) As Variant 4.3 动态数组 注意： ReDim语句是可执行语句，只能出现在过程中。 ReDim语句中的上下界可以包含变量。 例：Dim n As Integer n=10 ReDim a(n,n) ReDim语句不能改变数组的数据类型 Dim a() ReDim a(10,10) As integer　（错误） 4.3 动态数组 注意： 若没有Redim语句而直接使用数组的元素则出错：下标越界 使用Preserve的Redim不能改变数组的维数，且只能改变数组最后一维的大小。例：Dim b() As Integer……Redim b(1,2)……Redim Preserve b(1,4) 例４．２ 4.４ array 函数 给Variant 类型动态数组各元素赋值。 Dim 数组名() [As Variant] 数组名=array(数值列表） 例： Dim a As Variant a = Array(1, 2, 3, 4) 4.４ array 函数 注意： a = Array(1, 2, 3, 4)’此处直接写数组名ａ 数组的大小由赋值的个数决定 例： 　Dim a As Variant a = Array(1, 2) 　　ReDim a(5) 　a = Array(1, 2, 3, 4, 5, 6) 4.４ array 函数 例： 　Dim a() As Variant, b() As Variant, i% a = Array(1, 2, 3, 4, 5) ReDim b(UBound(a)) b = a ‘等价于 for i=0 to Ubound(a) b(i)=a(i) 　 next i ‘Lbound(数组名) 4.５ 数组的删除 格式： Erase 数组名1[,数组名2]…… 功能：　①重新初始化静态数组的元素 ②释放动态数组的存储空间 例： Dim a(10) As Integer,Dim b() As Integer …… Erase a，b ’将a(0)～a(10)都置为0’释放b数组空间 4.6 For Each...Next循环语句 语法格式： For Each 成员 In 数组名 循环体 [Exit For] Next 成员 成员是Variant变量，代表数组中每一个元素 4.6 For Each...Next循环语句 例： Dim a(1 To 6) As Integer … Dim x As Variant For Each x In a Print x Next x For i=1 to 6 print a(i) Next i 例4.3、4.4