数组的定义
昏暗的MyArray
数组MyArray =（15123,12,98）

可扩展的阵列
Dim MyArray（）
对于我= 0比10
ReDim Preserve MyArray（我）
MyArray（我）=我
下一个

分割字符串并返回分区结果的数组。
昏暗的MyArray
MyArray =分裂（tempcnt，CHR（13）CHR（10））
我= LBound（MyArray）到UBound（MyArray）
响应。写MyArray（我）
下一个

数组排序函数
函数（排序）
keepchecking =真
直到keepchecking =假
keepchecking = false
我= 0，UBound（元）
如果我= UBound（元）然后退出
如果（i）的话（i + 1）
存在性和唯一性=元（我）
secondvalue =元（i + 1）
（我）= secondvalue元
元（i + 1）=存在性和唯一性
keepchecking =真
最后如果
下一个
环
排序=元
端的功能。

数组排序函数应用程序的一个示例
昏暗的MyArray
数组MyArray =（15123,12,98）
MyArray =排序（MyArray）
我= LBound（MyArray）到UBound（MyArray）
响应。写MyArray（我）
下一个

在应用程序和会话中使用数组
锁的应用。
应用（storedarray ）= MyArray
解锁应用。

localarray =应用（storedarray ）

在应用程序中覆盖数组
锁的应用。
应用（storedarray ）= localarray
解锁应用。

会话的使用与应用程序相同。

从数据库中导入数据到数组中
昏暗的MyArray
拿出所有记录
rs.getrows MyArray =
去掉前10个记录
（10）rs.getrows MyArray =

行= 0，UBound（MyArray，2）
Col = 0 UBound（MyArray，1）
响应。写入（列，行）
下一个
下一个