VB数组介绍
时 间:2012-06-04 09:00:25
作 者:风行 ID:16058 城市:江阴
摘 要:一、数组的概念
数组是一组具有相同类型和名称的变量的集合。这些变量称为数组的元素,每个数组元素都有一个编号,这个编号叫做下标,我们可以通过下标来区别这些元素。数组元素的个数有时也称之为数组的长度。
一般情况下,数组的元素类型必须相同,可以是前面讲过的各种基本数据类型。但当数组类型被指定为变体型时,它的各个元素就可以是不同的类型。
数组和变量一样,也是有作用域的,按作用域的不同可以把数组分为:过程级数组(或称为局部数组)、模块级数组以及全局数组。
正 文:
定长数组
定长数组的长度是在定义时就确定的,在程序运行过程中是固定不变的。其定义格式为:
Dim数组名([下界TO]上界)[As类型名]
其中,数组的下界和类型是可选的。所谓下界和上界,就是数组下标的最小值和最大值。缺省下界时,vB默认的下界是0,但通常人们习惯上是从1开始的,因此我们可以设置让数组的默认下界为1,这需要在每个模块的“(声明)”部分添加一行代码:
如果定义数组时不指定其类型,默认是变体型的。
下面举例说明定长数组的定义:
①Dim a(1 to 3)As Integer
②Dim b(5 to 9)As String
③Dim c(7)As Integer
④Dim d(6)
其中,例①定义了一个具有三个元素的整型数组,其下标从1到3。例②定义了一个具有五个元素的字符型数组,其下标从5到9。例③缺省了下界,它定义了一个具有八个元素的整型数组,其下标从0到7。例④则缺省了下界和类型,定义的是具有七个元素的变体型数组,其下标从0到6。如果在该模块的“(声明)”部分添加了Option base 1,则例③和例④的下标都是从l开始了。
在定义定长数组时,其上界和下界必须是常数或常量表达式。
动态数组
在很多情况下,数组的长度事先是无法预测的,而且有时可能需要在程序中改变数组的长度以适应新的情况,因此出现了动态数组。动态数组是在定义数组只指定数组名及其类型,等以后知道数组的长度或需要改变数组长度时再用“ReDim”指定它的长度。现举例如下:
Dim X AS Integer
Dim a()As String
……
ReDim a(x)
……
X=X+3
ReDim a(x)
其中的“…”代表其它代码。这段代码首先定义了一个整型变量和—个字符型的动态数组,之后经过一系列运算后使变量X得到一个定值,再使用“ReDim”指定数组的长度,最后根据需要又再一次改变了数组的长度。
虽然可以一次或多次改变动态数组的长度,但当重新指定数组长度时,数组内原有的数据降会被清除。如果既想改变数组的长度,又想保留数组原有的数据,则在使用“ReDim”时需要加上“Preserve”关键字。例如:ReDim Preserve a(x)。但要注意,如果缩小数组长度,那么数组中超出新的下界到上界之间的元素将清除,即使使用了“Preserve'’关键字,也不会保留这些元素,如果仍然访问这些元素将会引起“下标越界”的错误!
当不需要再使用某个动态数组时,我们可以使用“Erase”删除该数组,以释放该数组占用的内存空间,例如:Erase a()。
三、多维数组及数组元素的引用
一个数组可以是一维的,也可以是多维。当需要表示平面中的一个点坐标,就需要用到二维数组;表示空间中的一个点时,就需要用到三维数组。多维数组的定义格式为:
Dim数组名([下界TO]上界[,TO 上界[下界 TO] [,…])[AS类型名]
多维数组的定义格式与—一维数组基本上是一致的,只是多加几个上界和下界。
现在举例如下:
Dim a(1 TO 3,1 TO 4) As Integer
Dim b(5, 9) As Siring
Dim b(4, 3)
这三行语句分别定义了一个两维数组,第一个指定了下界及类型;第二个只指定了类型 使用默认的下界;最后一个下界和类型都没有指定,其类型是变体型的。
对数组元素的引用,是数组名加下标的形式。例如:
Dim a(5)as Integer
Dim b(3,4)as Integer
a(1)=3
a(2)=5
a(3)=a(1)+a(2)
b(2,1)=a(2)
msgbox a(3)
msgbox b(2,1)
在此例中,先对数组a的前三个元素赋值,再给数组b的一个元素赋值,最后显示两个数组元素的值。用数组元素时,其下标不要超出了下界至上界的范围。
Access软件网官方交流QQ群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- Access对子窗体数据进行批...(10.30)
- 最精简的组合框行来源数据快速输...(10.25)
- Access仿平台的多值选择器...(10.24)
- 【Access日期区间段查询】...(10.22)
- 【Access源码示例】VBA...(10.12)
- Access累乘示例,Acce...(10.09)
- 数值8.88,把整数8去掉,转...(10.08)
- 【Access自定义函数】一个...(09.30)
- 【Access选项卡示例】Ac...(09.09)
学习心得
最新文章
- Access快速开发平台--对上传...(11.22)
- Access快速开发平台企业版--...(11.18)
- 不会用多表联合查询,多表查询没结果...(11.16)
- 【案例分享】主键字段值含有不间断空...(11.16)
- Access快速开发平台--后台D...(11.14)
- 微软Access邀测新Monaco...(11.12)
- Access列表框左右互选、列表框...(11.11)
- 高效率在导入数据前删除记录(11.10)
- Access报价单转订单示例代码(11.08)
- Access系统自带的日期选择器不...(11.08)