第五章 数组

Redim MyArray(10) For i=0 To 10 MyArray(i)=i Next i Redim Preserve MyArray(15)
5.2.2 数组的清除和重定义

数组一经定义，便在内存中分配了相应 的存储空间，其大小是不能改变的。也 就是说，在一个程序中，同一个数组只 能定义一次。有时候，可能需要清除数 组的内容或对数组重新定义，这可以用 Erase语句实现。
数组元素的复制

单个数组元素可以像简单变量一样从一 个数组复制到另一个数组，而不管数组 的维数是否相同。例如： Dim a(3,5),b(6) b(2)=a(2,3) a(2,1)=b(4)
例5.4： Static sub Form_Click( ) Static Test(1 to 20) As Integer Static i As Integer For i=1 to 20 Test(i)=i Print Test(i); Next i Erase Test Print "Erase Test( )" For i=1 to 20 Print Test(i); Next i End sub
为：Erase 数组名[,数组名]… Erase语句用来重新初始化静态数组的元 素，或者释放动态数组的存储空间。 注意，在Erase语句中，只给出要刷新的 数组名，不带括号和下标。例如： Erase stu
Erase语句说明

① 当把Erase语句用于静态数组时，如 果这个数组是数值数组，则把数组中的 所有元素为0；如果是字符串数组，则把 所有元素置为空字符串。
5.2.1 动态数组的定义



创建动态数组通常分为以下两步： 第一步：声明一个没有下标的数组。 第二步：在过程中用ReDim语句定义带 下标的数组。 Dim MyArray( ) As Integer Redim MyArray(5)
ReDim语句

ReDim语句的语法:
ReDim <数组名>(<维数定义>)[As(数据类型)]
数组变量与简单变量的区别


有序性和无序性是数组变量与简单变量 的区别。 简单变量的没有顺序的，而数组中的单 元是有排列顺序的。
数组的特性


1、数组中的元素（或分量）均是同类型 的量。 2、数组中的每个元素均能直接访问。 可以用数组名及下标唯一识别一个数组 元素。 例如：a(2)=200
数组的定义
ReDim语句


如果ReDim语句所使用的变量在模块级 别或过程级别不存在，则该语句就相当 于一个声明语句。 不应把ReDim作为声明语句使用，而只 应作为重定义数组大小的语句。
例5.3：ReDim语句示例
Dim MyArray( ) As Integer
Redim MyArray(5) For i=0 To 5 MyArray(i)=i Next i

数组元素的输出


例5.6：输入下面按行列式排列的数据， 并按原始顺序输出。 11 12 13 14 21 22 23 24 31 32 33 34 用一个二维数组，按行的顺序输入和输 出。
1. 2.
3.
4. 5. 6. 7. 8. 9.
10.
11. 12. 13.
14.
15. 16.
Dim a(1 to 3‚1 to 4)As Integer Private Sub Form_load( ) Dim I As Integer , j As Integer For i=1 To 3 For j=1 To 4 a(i,j)=InputBox("Enter Data:") Next J Next i Show For i=1 To 3 For j=1 To 4 Print a(i‚j);" "; Next J Print Next i End Sub
嵌套数组


一般情况下数组元素是一个具体的数据， VB允许用数组作为另一个数组的元素， 这样的数组称为嵌套数组。 嵌套数组必须是缺省数组；被嵌套的数 组必须是标准数据类型数组。
嵌套数组
Sub Form_Click() Dim a(4) As Integer Dim b(2) For x = 0 To 4 a(x) = x Next x b(1) = a() For i = 0 To 4 Print b(1)(i) Next i End Sub
5.3 数组的基本操作

数组元素的输入 （1）用InputBox函数输入 例5.5：从键盘输入3个姓名：LiuFeng、 WangHong、Zhaoyitian
在窗体层（“通用”的“声明”段）输入： Option Base 1 Dim stuname( ) As String Form_Click( )的事件代码为： Private Sub Form_Click( ) Dim temp As String‚i As Integer ReDim stuname(3) As String For i=1 To 3 temp=InputBox("Enter Name") stuname(i)=temp Next i End Sub
5.2.1 动态数组的定义


在定义数组时，一般已经指定了上下界， 这样数组大小就确定了。但是有时可能事 先无法确认到底需要多大的数组所以希望 能够在运行时能够改变数组的大小，这就 要用到动态数组。 动态数组是用变量作为下标定维的数组， 在程序运行的过程中完成数组的定义，动 态数组可以在任何时候改变大小。
第五章 数组



在基本类型之外VB提供了数组类型，可 以方便的灵活的组织和使用数据。 例如： a(0)、a(1)、a(2)、a(3)、a(4)、a(5) 象变量一样，为了区分数组，必须为每 一个数组取一个名字，称为数组名。 数组名的命名原则与变量名一样
数组的概念


在同一数组中，构成该数组的成员称为“数 组元素”（数组分量、下标变量） 每一个数组元素都有一个编号，称为“下标” 将一组排列有序的、个数有限的变量作为一 个整体，用一个统一的名字来表示，这些带 有下标的变量的全体称为数组


数组原则上应当先定义后使用。一个数 组包括数组名、数组维数、数组单元数 等因素。 使用数组时要告诉计算机以上内容，以 便计算机分配足够的存储单元，这就是 建立（说明、定义、声明）数组。
建立数组

Public | Private | Dim <数组名>[(<维数定义>)] [AS <数据类型>]
Dim的相关说明



Dim不但能建立数组还能初始化数组， 即将建立的数组赋初始值。 数值型数组初始值为0；字符串型数组初 始值为空字符串。 Dim语句必须放在使用数组之前， Dim不具有再定义功能 即不能直接使用Dim对已经定义的数组 进行重新定义。
数组的维数

数组元素中下标的个数称为数组的维数。 一个下标的下标变量，构成一维数组。 两个下标的下标变量，构成二维数组。 例如： Static aa(9,9) As Double Dim bb(3, 1 to 4 , 1 to 5) As Integer
数组的类型


AS <数组类型>表明数组元素的类型。 可以声明任何基本类型的数组。 一个数组中所有元素应该具有相同的数 据类型，但当数组类型为Vatiant时，各 个元素能够包含不同类型的数据，即数 组元素的类型可以不同。
下标变量的使用说明



下标变量由数组名后跟括号括起来的下标组成 下标可以是常量、变量或表达式 a(2)、c(x)、b(2+4)、a(x+3) 下标值若为非整数，则自动取整，下标范围为 Long类型的范围-2147483648~2147483647 下标变量的类型就是数组的类型。 下标变量象简单变量一样，可以被赋值和引用
嵌套数组例5.2 Private Sub Form_Click( ) Static Firstarray(4) As String Dim i As Integer For i=0 to 4 Firstarray(i)=Chr$(i+65) Next i Static Secondarray(4) As String For i=0 to 4 Secondarray(i)=i Next i Static Thirdarray(2) Thirdarray(1)=Firstarray( ) Thirdarray(2)=Secondarray( ) For i=0 to 4 Print Thirdarray(1)(i) Print Thirdarray(2)(i) Next i End Sub
Dim MyArray( ) As Integer Redim MyArray(5)
ReDim语句


可以使用ReDim语句反复地改变数组的 元素以及数目，但是不能在将一个数组 定义为某种数据类型之后，再使用 ReDim将该数组改为其他数据类型，除 非是variant所包含的数组。 如果将数组改小，则被删除的元素中的 数据就会丢失。
Erase语句说明

② 当把Erase语句用于动态数组时，将 删除整个数组结构并释放该数组所占用 的内存。也就是说，动态数组经Erase后 即不复存在；而静态数组经Erase后仍然 存在，只是其内容被清空。
Erase语句说明


③ 当把Erase语句用于变体数组时，每 个元素被重置为空。 ④ Erase释放动态数组所使用的内存。 在下次引用该动态数组之前，必须用 Redim语句重新定义该数组变量的维数。
缺省数组例
Sub Form_Click( ) Static Defau(5) Defau(1)=100 Defau(2)=234.56 Defau(3)="Beijing" Defau(4)="20"&Now Defau(5)=&HAFF For i=1 to 5 Print"Defau(";i;")=";Defau(i) Next i End Sub