第08章 VB数组

说明：
⑴格式中的“数组名”与简单变量相同，可以是 任何合法的Visual Basic变量名。 ⑵数组必须先定义，后使用。 ⑶当用Dim语句定义数组时，该语句把数组中 的全部元素都初始化为0,而把字符串数组中 的全部元素都初始化为空字符串。 ⑷下标的下界默认为0，希望从1开始，可用 Option Base 语句定义。
4.定义一个三维数组，测试各维的上下界 Private Sub Form_Click() Dim A(1 To 100, 0 To 50, -3 To 4) Print LBound(A, 1), UBound(A, 1) Print LBound(A, 2), UBound(A, 2) Print LBound(A, 3), UBound(A, 3) End Sub
3.定义数组要注意的问题 ⑴数组名的命名与变量名相同，在命名时应尽 可能有一定的含义。 ⑵在同一过程中，数组名不能与变量名同名。 Private Sub Form_Click() Dim a(5) Dim a a=8 a(2) = 10 Print a, a(2) End Sub
⑶在定义数组时，每一维的元素个数必须时常 数，不能是变量或表达式。 Dim Arr2(n) × Dim Arr3(n + 5) × ⑷数组的类型通常在As子句中给出，缺省，定 义的是默认数组。也可用类型说明符。 ⑸无论哪中格式定义数组，下标必须小于上标。 ⑹数组的上界值和下界值，这可以通过LBound 和UBound函数来测试。 格式：LBound(数组[,维]) UBound(数组[,维])
结果： 1 0 -3 100 50 4
数组特点：
数组是一组变量的集合
数组中每一元素的类型相同
数组可以被声明为任一基本数据类型
数组用统一的数组名和下标来定义数组中的元素 数组有上、下界
数组表示：前例的数组用a命名
a(1) a(2) a(3) a(4) a(5) a(6)
二、默认数组
数据类型为Variant(默认)的数组称为默认数组。 可以通过下列两种方式定义默认数组： (1)在定义数组时不指明数据类型，格式为： Dim数组名([下界To]上界[，[下界To]上界]…) (2)把数组定义为变体数据类型，格式为： Dim数组名([下界To]上界[，[下界To]上界]…) As Variant
二、For Each…Next 语句
格式： For Each成员In数组 循环体 [Exit For] …… Next[成员]
For Each…Next语句专门用于数组或对象“集合”
说明： ⑴“成员”是变体变量，数组是数组名，没有 括号和下标。 ⑵用 For Each…Next 语句可以对数组元素进 行处理，包括查询、显示或读取 。 ⑶在数组操作中， For Each…Next 语句比
变量定义，它既没有维数，也没有上下界。
⑶“数组元素值”是需要赋给数组各元素的值， 各值之间以逗号分开。 Static Numbers As Variant Numbers = Array(1, 2, 3, 4, 5) ⑷数组变量不能是具体的数据类型，只能是变体
(Variant)类型。
⑸数组元素的值通过赋值语句或InputBox函数 读入数组，如果使用Array函数,则可使程序 达为简化。 ⑹Array 函数只适用于一维数组，不能对二维 或多维数组进行初始化。
格式： Option Base n
⑸“可使用的最大下标值”和“元素个数”的 区别。
2.第二种格式 格式：Dim 数组名([下界To]上界[,[下界To] 上界]…)As 类型名称 说明： 第二种格式实际上已包含了第一种格式,只 要省略格式中的“下界To”，即变为第一种格式。 例如：Dim A(8,3) Dim A(0 To 8,0 To 3) Dim A(8,0 To 3) 下标范围可以是-32768~32767 如：Dim Age(10 to 100)
第二节
1.概念
静态数组与动态数组
一、动态数组的定义
需要在运行时开辟内存区的数组叫做动态数组。
动态数组以变量作为下标值,在程序运行过 程中完成定义，通常分为两步：首先在窗体层、 标准模块或过程中用Dim或Public声明一个没有 下标的数组 (括号不能省略)，然后在过程中用 ReDim语句定义带下标的数组。 格式： ReDim[Preserve]变量(下标)As 类型 注：缺省“Preserve” 数组中的内容将被清除 。
第 四 名
第 五 名
第 六 名
一、数组的定义
1.第一种格式 对于数组的每一维，只给出可以使用的 下标的最大值，即下标的上界。 (1)一维数组的定义 格式：Dim 数组名(下标上界) As类型名称 (2)二维数组的定义 格式：Dim 数组名(第一维下标上界， 第二维下标上界)。
例如：
Dim CJ(5) As String
4.数组元素的复制
单个数组元素可以像简单变量一样从一个数 组复制到另一个数组。 二维数组中的元素可以复制到另一个二维数 组中的某个元素，也可以复制到一个一维数 组中的某个元素，并且反之亦然。 如果要复制整个数组，则应使用For循环语句。
例8 .2 从键盘上输入10个整数，用冒泡排序法对这 10个数从小到大排序。 10 7 3
Option Base 1 （在窗体层） Sub Form_Click() Dim a(4, 4) As Integer For i = 1 To 4 For j = 1 To 4 a(i, j) = InputBox("Enter Data") Next j Next i End Sub
原来的数据分为4行4列，存放在数组a中。
第四节
数组的初始化
给数组的各元素赋初值称为数组的初始化， 可以用赋值语句或InputBox函数为数组元素赋值。 Array函数用来为数组元素赋值，即把一个 数据集读入某个数组。 格式：数组变量名=Array(数组元素值) 说明：
⑴“数组变量名”是预先定义的数组名，在“数组 变量名”之后没有括号。 ⑵“数组变量”，是因为它作为数组使用，但作为
例8.3 编写程序，试验Array函数
第五节
一、基本概念
控件数组
控件数组由一组相同类型的控件组成，这些 控件共用一个相同的控件名字，具有同样的 属性设置。 控件数组的每个元素都有一个与之关联的下 标，或称索引(Index)，下标值由Index属性 指定。 控件数组元素的Index是一个只读属性,只能 在设计阶段设置，不能在运行时改变。
2.说明 ⑴在窗体层或模块层定义的动态数组只有类型，Dim语句直接定义数组。如果在标准 模块层或窗体层没有用Public后Dim声明过同名的 数组，则用ReDim定义的数组最多可达60维。 ⑶在一个程序中，可以多次用ReDim语句定义同 一个数组，随时修改数组中元素的个数，但不能 改变数组的维数。
例如：
Dim Test(2,3) As Integer 3行（0~2）、4列（0~3）占据12（3╳4）个整 型变量的空间（24个字节）。
Test(0,0) Test(0,1) Test(0,2) Test(0,3)
Test(1,0) Test(1,1) Test(1,2) Test(1,3) Test(2,0) Test(2,1) Test(2,2) Test(2,3)
2.数组元素的输入 一般用For循环语句及InputBox函数输入。 注意： ⑴当数组较小，可以用赋值语句来实现数组元 素的输入。 ⑵多维数组元素的输入通过多重循环来实现。 由于VB中的数组是按行存储的，因此把控制 数组第一维的循环变量放在最外层循环中。 ⑶当用InputBox函数输入数组元素时，如果要 输入的数组元素是数值类型，则应显示定义 数组的类型，或者把输入的元素转换为相应 的数值。
For i = 1 To 4 For j = 1 To 4 Print a(i, j); " "; Next j Print Next i
Option Base 1 （在窗体层） Sub Form_Click() Dim a(4, 4) As Integer For i = 1 To 4 For j = 1 To 4 a(i, j) = InputBox("Enter Data") Print a(i, j); " "; Next j Print Next i End Sub
第八章
第一节
第二节
数组
数组的概念
静态数组与动态数组
第三节
第四节
数组的基本操作
数组的初始化
第五节
控件数组
第一节 数组的概念
数组的概念
实际问题：在应用程序中要处理体育比赛的 成绩，如100米短跑。共有20人参加了比赛， 但只需记录前6名的成绩，并按其名次排列。 以前学过的处理数据的变量是各自独立的， 不能描述一组相关的数据之间的关系和位置。 对于上述问题采用数组结构来处理。
二、数组的清除和重定义
Erase语句用来重新初始化静态数组的元素， 或者释放动态数组的存储空间。
格式： Erase数组名[,数组名]… 说明： ⑴对静态数组，数值数组置0；字符串置空。 ⑵对动态数组，将删除整个数组所占用的内存。 ⑶对变体数组，每个元素将被重置为“空”。 ⑷在下次引用该动态数组之前，必须用ReDim 语句重新定义该数组的维数。
For…Next语句更方便，因为它不需要指明 结束循环的条件 。 ⑷不能在For Each…Next 语句使用用户自定 义类型数组。
Dim arr(1 To 20) Private Sub Form_Click() For i = 1 To 20 arr(i) = Int(Rnd * 100) Next i For Each arr_elem In arr If arr_elem > 50 Then Print arr_elem Sum = Sum + arr_elem End If If arr_elem > 95 Then Exit For Next arr_elem Print Sum End Sub