VB中如何获得数组元素中个数

Question

比如
public a(10)
a(0)="1"
a(1)="2"
a(2)="3"
想获得数组元素中总个数

Answer 1

你要取的实际值吧？

你已经定义a(10) 那他所有元素就是10个。 你要判断其他是否空值 就用循环判断

s=0
for i=0 to 9
if a(i)<>"" then s=s+1
next
print "数组共有有效元素：";s追问

可是首先 a（10）是假设的如果有50个呢？难道要循环50次么？

追答

是的，将9改为49就行。谁让你预先就定义了50呢。

追问

难道就没有什么自带的方法可以查出数组的元素总数么？

追答

你的问题就很奇怪。没别的办法。

追问

也只能这么办了！谢谢啦！

Answer 2

VBA中是application.count(arr),你试试。

Answer 3

Sub s(arr())
    MsgBox ubound(arr)-lbound(arr)+1
End Sub

Answer 4

Dim arr(2)

dim length = UBound(arr) - LBound(arr) + 1

Answer 5

UBound(a) - LBound(a) + 1