第06章数组分析.docx

PAGE  PAGE 73 第6章 数组 6.1 数组的概念 数组是一组具有相同名字、不同下标的变量。 说明： （1）数组元素的地位和作用与普通变量相当。 （2）数组中的数据必须是同一个类型。 （3）数组中各元素在内存中占据一片连续的存储单元。 （4）数组与循环结合使用，可以很方便地对大批数据进行处理。 6.2 数组的定义 （1）过程级（局部级） 在过程中用Dim或Static定义 可用ReDim定义动态数组 （2）模块级 在模块中用Dim或Private定义 （3）程序级（全局级、公共级） 在标准模块顶部用Public定义 6.2.1 常规数组的定义 1.格式 Dim 数组名（[［第一维下标下界 To ］第一维下标上界］［,[第二维下标下界 To] 第二维下标上界］……） [As 类型] 2.说明 （1）数组名与简单变量命名规则相同，同一过程中数组和变量不允许同名 （2）定义多维数组，各维的下标界限用逗号相隔 （3）下界和上界必须为整型常量，范围-32768～32767 （4）下界默认值为0，可由Option Base语句改为1 （5）“类型”用来指定数组元素的数据类型 （6）一维数组元素个数＝下标上界－下标下界＋1，多维数组元素个数是各维下标取值个数之积 6.2.2 动态数组的定义 1.定义格式 ReDim [Preserve] 数组名（下标界限列表）［As 类型］ 用Preserve，重新定义之后，保留原有元素值 下标的上界和下界可以是常量、变量或表达式 2.定义方法 【方法1】 先用Dim或Public声明一个没有下标的数组 再用ReDim语句改变数组的大小、维数，不能改变数据类型 例6.2 多次用ReDim语句定义同一个数组 Dim S() As String Private Sub Form_Click() ReDim S(4) S(2) = One Print S(2) ReDim S(6 + 1) S(5) = VB Print S(5) ReDim S(2, 3) S(1, 1) = Two Print S(1, 1) End Sub 【方法2】 用ReDim语句直接定义数组 只可改变大小，但不能改变类型、维数 例6.3 用ReDim语句直接定义数组 Private Sub Form_Click() ReDim var(3) As Integer 直接定义数组 ReDim var(2) 改变数组的大小 ReDim var(2) As Single 错误，不能改变类型 ReDim var(2, 3) 错误，不能改变维数 End Sub 6.3 数组元素的使用 6.3.1 数组元素的引用、赋值、输出和复制 1．数组元素的引用 通过数组名和下标访问指定的元素 与简单变量地位、作用相当 注意： （1）Dim a(5) As Integer与t = a(5)的区别 （2）引用时，数组名、类型和维数必须与定义数组时一致。 （3）引用时，下标值应该在建立数组时所指定的范围内。 2．数组元素的赋值 【方法1】用赋值语句为单个元素赋值。 例如： Dim a(0 To 5) As Integer a(0) = 1: a(1) = 3: a(2) = 5 a(3) = 7: a(4) = 9: a(5) = 11 【方法2】通过循环语句为多个元素赋值。 例如： Option Base 1 Dim t() As String Private Sub Form_Click() ReDim t(4) For i = 1 To 4 S = InputBox(输入姓名:) t(i) = S Next i End Sub 3．数组元素的输出 例6.4 二维数组元素的赋值与输出 Private Sub Form_Click() Dim t(4, 4) As Integer For i = 1 To 4 For j = 1 To 4 t(i, j) = i + j Print t(i, j); ; Next j Print Next i End Sub 4．数组元素的复制 单个数组元素可以像简单变量一样从一个数组复制到另一个数组。 例如： Dim B(5,10),A(8,8),C(10) B(3,4)=A(4,5) C(5)=B(1,2)*A(3,3)+C(2) 6.3.2数组函数 1. LBound和UBound函数 求数组下标的下界、上界 格式： LBound(ArrayName[,Dimensi