怎样才知道一个数组有多少个数？？？？？？？？？？？

Question

Dim AnyArray(10)
Upper = UBound(AnyArray)   ' Returns 10.

Answer 1

楼上的有个Mistake，问题是问的多少个数，而返回的是数组上限，如果是：
Dim AnyArray(5 To 10) As Boolean
Dim Counts As Integer
Counts = UBound(AnyArray)
Debug.Print Counts
返回值是10了
正确的应该是：
Dim AnyArray(5 To 10) As Boolean
Dim Counts As Integer
Counts = UBound(AnyArray) - LBound(AnyArray) + 1
Debug.Print Counts
--------------------------------------------------------------------
Made by Thirdapple's Studio(http://3rdapple.51.net/)