vb中有获取数组的长度函数吗？

Dim a(2) '先声明数组a
Dim length '用length表示数组的长度
length = UBound(a) - LBound(a) + 1
MsgBox length

设有一维数组a.则的长度len为:
len=UBound(a) - LBound(a) + 1
如果a为二维数组,求其第一维长度,则用
len=UBound(a,1) - LBound(a,1) + 1来求.
同理,求第二维长度的公式为:
len=UBound(a,2) - LBound(a,2) + 1

UBound返回数组上限，LBound返回下限。
一般默认的数组是从0开始的，长度就是UBound(a)+1，如果再专门搞个函数获取长度的话有点多余。

UBound 函数.返回一个 Long 型数据，其值为指定的数组维可用的最大下标。