VB程序设计第四章数组.ppt

第四章 数组 数组的概念 数组并不是一种数据类型，而是一组相同类型数据的集合。用一个统一的名字（数组名）代表逻辑上相关的一批数据，每个元素用下标变量来区分；下标变量代表元素在数组中的位置。 Visual Basic中的数组，按不同的方式可分为以下几类： 按数组的大小是否可以改变来分为：定长（固定大小）数组、动态（可变大小）数组。 按元素的数据类型可分为：数值型数组、字符串数组、日期型数组、变体数组等。 按数组的维数可分为：一维数组、二维数组、多维数组。 对象数组：控件数组。 数组的定义 静态数组及声明： 形式为: Dim 数组名(下标1[,下标2…]) [As 类型] 或： Dim 数组名[数据类型符]([下界to]上界) 说明： 1．数组名的命名规则与变量的命名相同。 2．数组的元素个数：上界-下界+1。 3．缺省下界为0，若希望下标从1开始，可在模块的通用部分使用Option Base语句将设为1。其使用格式是： Option Base 0|1 例如： Option Base 1 将数组声明中缺省下界下标设为1 4．下界和上界不能使用变量，必须是常量，常量可以是直接常量、符号常量，一般是整型常量。 5．如果省略As子句，则数组的类型为变体类型。 6．数组中各元素在内存占一片连续的存储空间，一维数组在内存中存放的顺序是下标大小的顺序。 7. 可以使用Erase语句清除静态数组中各元素的值。形式如下： Erase 数组名 动态数组：在声明数组时未给出数组的大小(省略括号中的下标)，当要使用它时，随时用ReDim语句重新指出数组大小。 形式如下： ReDim 数组名(下标[，下标2…]) [As 类型] 说明： 3.在过程中可以多次使用ReDim来改变数组的大小，也可改变数组的维数。 例：ReDim x(10) ReDim x(20) x(20) = 30 Print x(20) 与数组操作有关的几个函数 Aarry函数 Aarry函数可方便地对数组整体赋值，但它只能给声明Variant的变量或仅由括号括起的动态数组赋值。赋值后的数组大小由赋值的个数决定。 2.求数组的上界Ubound( )函数和下界 Lbound( )函数  Ubound函数和Lbound函数分别用来确定数组某一维的上界和下界值。 使用形式如下： UBound(数组名[, N]) LBound(数组名 [, N]) 其中： 数组名：必需的。 N ：可选的；一般是整型常量或变量。指定返回哪一维的上界。1 表示第一维，2 表示第二维，如此等等。如果省略默认是1。 3.Split函数 使用格式： Split(字符串表达式 [,分隔符]) 说明： 使用Split函数可从一个字符串中，以某个指定符号为分隔符，分离若干个子字符串，建立一个下标从零开始的一维数组。 例如： Dim x, s$ s = a,b,c,d,e x = Split(s, ,) For i = 0 To UBound(x) Print x(i) Next I 例如： Dim a() As Variant, b() As Variant, i% a = Array(1, 2, 3, 4, 5) ReDim b(UBound(a)) b = a 数组的应用 一、For each –Next 循环 格式为： For each 变量 In 数组名 [语句组1] [Exit For] [语句组2] Next 变量 例1.分析以下代码。 Dim a() Private Sub Form_Load() Dim x a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For Each x In a List1.AddItem x Next x End Sub 二、应用举例： 使用数组可以高效处理大批量的数据，也可以缩短和简化程序。 例2. 将数组中各元素交换 For i = LBound(a) To UBound(a) \ 2 t = a(i) a(i) = a(UBound(a) - i) a(UBound(a) - i) = t Next i 数组中常见错误和注意事项 1.静态数组声明时，下标出现