VB资源包第6章 数组.pptxVIP

本章主要内容：

;6．1．1数组与数组元素

;6．1．2下标与数组的维数

;6.1.3静态数组和动态数组

根据在程序运行过程中能否改变数组的大小（即能否增加或减少数组元素的个数），可将数组分为静态数组和动态数组两种。静态数组也称定长数组或固定大小的数组，其数组元素的个数是固定不变的。动态数组大小则可在程序运行中根据需要进行调整。;6．2数组的声明与应用;说明：;2.一维数组的引用

数组的引用通常是指对数组元素的引用。一维数组元素的引用格式如下：

数组名（下标）

说明：

（1）下标可以是整型常量、变量或表达式。如：a(10)、a(x)、a(m+n)均为正确的引用。

（2）下标值不能越界，应在数组声明的范围之内。

例如：Dima%(5)

定义了一个一维数组a，在内存中开辟6个连续的存储空间，用于保存a的6个整型元素a(0)、a(1)、a(2)、a(3)、a(4)和a(5)的值。

（3）数组元素的使用方法与同类型的变量完全相同。例如：

a(1)=1:a(2)=1

a(3)=Val(InputBox(“请输入一个整型数”))

Printa(4);

数组的应用离不开循环。一维数组的赋值或输出操作往往通过一重循环来实现，将数组下标作为循环变量，通过循环来遍历一维数组（即访问一维数组的所有元素）。;【例】输入10个整数用数组保存起来，并求其中大于10的个数及平均值。

PrivateSubCommand1_Click()

Dima(1To10)AsInteger

DimiAsInteger,countAsInteger

DimsumAsLong

DimavgAsSingle

Fori=1To10用循环输入10个整数

a(i)=Val(InputBox(请输入第i个整数：))

Ifa(i)10Then如果输入的整数满足要求则进行处理

sum=sum+a(i)记录满足要求整数的和

count=count+1记录满足要求整数的个数

EndIf

Next

avg=sum/count计算满足要求整数的平均值

Print您输入的数据是：;

;Fori=1To10用循环输出10个整数

Printa(i);

Next

Print输出换行

Print

Print大于10的整数个数为：count

Print

Print大于10的整数的平均值为：avg

EndSub

输入完10个整数后程序的运行结果如图所示。;6.2.2二维数组

1.二维数组的定义

二维数组的定义格式如下：

说明符数组名(下标1,下标2)[As类型]

说明：二维数组的声明格式与一维数组类似。

“下标1”，“下标2”的一般形式均为“[下界To]上界”。

如果不指定“下界”，则下界默认值为0。

每一维的大小为：上界-下界+1。

数组的大小：每一维大小的乘积。;s(0,0);2.二维数组的引用

二维数组的引用格式如下：

数组名（下标1，下标2）

说明：

下标1、下标2可以ish整型的常量、变量、表达式。

引用数组元素时，下标1、下标2的取值应在数组声明的上、下界范围之内。

二维数组的赋值或输出操作往往通过二重循环来实现，将二维数组的行下标和列下标分别作为循环变量，通过二重循环来遍历二维数组。;【例】将一个二维数组a存入另一二维数组b中。

Dima%(1To3,1To2),b%（1To3,1To2）

Fori=1to3

Forj=1to2

b(i,j)=a(i,j)

Nextj

Nexti;6.2.3Lbound与Ubound函数

UBound()和LBound()函数可以求出数组下标的上界和下界。其语法格式为：

UBound(数组名[,维数])

LBound(数组名[,维数])

UBound和LBound函数可以求出数组下标某个维数的上界和下界。如果省略了维数，则默认为求第一维的上界和下界。例如：

Dima(1To4,2To6,4To10)AsInteger

PrintLBound(a),UBound(a)

PrintLBound(a,2),UBound(a,2)

PrintLBound(a,3),UBound(a,3)

程序运行的结果为：

14

26

410;6.3动态数组

6.3.1创建动态数组

动态数组的声明与创建需要两步：

1.使用Dim、Private或Public语句声明括号内为空的数组。

Dim|Private|Public数组名()[As数据类型]

2.在过程中用ReDim语句