[VB学习中]之四：数组与结构

静态一维数组

Dim 数组名（下标） [As 类型]

说明：

（1）下标必须为常数，不可以为表达式或变量。

（2）下标下界最小为-32768，最大上界为32767。

（3）省略下界，其默认值为为0，一维数组的大小为：上界-下界+1。

静态多维数组

Dim 数组名（下标1[，下标2…]） [As 类型]

说明：

（1）下标个数决定数组的维数，最多60维。

（2）数组的大小=每一维大小的乘积。

动态数组

ReDim 数组名（下标1[，下标2…]） [As 类型]

说明：

（1）在动态数组ReDim语句中的下标可以是常量，也可以是有了确定值的变量。

（2）在过程中可以多次使用ReDim来改变数组的大小，也可改变数组的维数。

（3）每次使用ReDim语句都会使原来数组中的值丢失，可以在ReDim语句后加Preserve参数来保留数组中的数据，但使用Preserve只能改变最后一维的大小，前面几维大小不能改变。

数组赋值

（1）利用循环结构

Dim A（1 To 10） As Integer

For i=1 To 10

　　A(i)=0

Next i

（2）利用Array函数

Dim a As Variant, b As Variant
'Dim a() As Variant,b() '必须变体型，可定义成动态数组

a = Array (1,2,3,4,5)

b = Array ("abc","def","67")

（3）直接将一个数组的值赋值给另一个数组

Dim a(3) as integer, b() as integer
'Dim a(3) as interger,b '只有这两种定义形式才能正常赋值

A(0)=2: A(1)=5: A(2)=-2: A(3)=2

b=a

说明：

（1）赋值号两边的数据类型必须一致。

（2）如果赋值号左边的是一个动态数组，则赋值时系统自动将动态数组ReDim成右边相同大小的数组。

（3）如果赋值号左边的是一个大小固定的数组，则数组赋值出错。

控件数组

（1）控件数组通过索引号（属性中的Index）来标识各控件，第一个下标是0 。如：Text1(0)、Text1(1)、Text1(2)、Text1(3)……

（2）在编程时通过Load方法添加其余若干个元素，也可以通过Unload删除某个添加的元素。

（3）每个添加的控件数组通过Left 和Top属性，确定其在窗体上的位置，并将Visible设置为True。

自定义数据类型

Type 自定义类型名

　　元素名[（下标）] As 类型名

　　……

　　元素名[（下标）] As 类型名

End Type

使用形式：Dim 变量名 As 自定义类型名

自定义类型中元素的表示方法是：变量名.元素名

说明：

（1）自定义类型一般在标准模块（.bas）中定义，默认是Public。

（2）自定义类型中的元素可以是字符串,但应是定长字符串。

（3）不可把自定义类型名与该类型的变量名混淆。

（4）注意自定义类型变量与数组的差别：它们都由若干元素组成，前者的元素代表不同性质、不同类型的数据，以元素名表示不同的元素；后者存放的是同种性质、同种类型的数据，以下标表示不同元素。

（5）同种自定义类型变量可以直接赋值，自定义类型数组就是数组中的每个元素都是自定义类型。