数组获取数组长度

UBound(arrayname[, dimension])
参数
arrayname
必选项。数组变量名，遵循标准变量命名约定。
Dimension
可选项。指定返回哪一维上界的整数。1 表示第一维，2 表示第二维，以此类推。如果省略 dimension 参数，则默认值为 1。

返回数组最大上标


LBound() 同 Ubound,返回数组下标

如：
Dim s(100) As Long
Debug.Print UBound(s)   '最大下标 在这里是100
Debug.Print LBound(s)   '最小下标 在这是0

例子：
menuName = ("我的账户|账户查询")
menu = split(menuName,"|")

UBound(menu) = 1
LBound(menu) = 0
数组长度（size）：UBound(menu)- LBound(menu)+1    数组长度为 2