array >
ubound

UBound(arrayname[, dimension])
for i=0 to UBound(ary) next

维数的最大可用

syntax : UBound(arrayname[, dimension])
-----------------
dim ary(n)
ary(0)="item1"
ary(n)="item2"

for i=0 to UBound(ary)

next

回指定数组维数的最大可用数组(0=1)
arrayname 必选           数组变量名
如省略 dimension 参数，则默认值为 1

dim ary(2) ' <--- you may add more array here

ary(0)="item1"
ary(1)="item2"
ary(2)="item3"

for i=0 to UBound(ary)

AryX=ary(i)

qry = "SELECT value FROM settings WHERE name='"&AryX&"' "
rs.Open qry,conn

if not rs.EOF then
AryX = rs.FIELDS("value") 
end if
rs.close

next

Dim Ary(1 to 50, 0 to 16, -2 to 8)
Ubound(Ary,1)           将返回50
Ubound(Ary,2)            将返回16
Ubound(Ary,3)            将返回8