如何计算数组元素个数？

Question

我用split(array1,",")将一个字符窜分隔到array1中，现要求array1中元素个数，如何求？谢谢!

Answer 1

ubound求上标
Lbound求下标一般情况下，上标+1就是个数

Answer 2

我目前用的取数组元素数量的函数写法。（下面是一个Long数组的例子）Function ArrayCountGet(ByRef pArray() As Long) as Long
  Dim tOutCound As Long
  
  Dim tArray_Start As Long
  Dim tArray_End As Long  Error.Clear 
  On Error Resume Next '遭遇空数组时刻的错误处理。  tArray_Start=LBound(pArray())
  tArray_End=UBound(pArray())  tOutCound=Abs(tArray_End-tArray_Start)+1 '取绝对值加一。  ArrayCountGet=tOutCound
End Function上述函数对于一个已经指定下标的数组返回至少为1，如果为0则数组是没有被指定下标的。下面是利用该性质来判断数组是否已经被指定下标。Function ArrayCheck(ByRef pArray() As Long) As Boolean
  ArrayCheck=CBool(ArrayCountGet(pArray()))
End Function

Answer 3

元素个数：ubound(split(array1,","))+1