比如
public a(10)
a(0)="1"
a(1)="2"
a(2)="3"
想获得数组元素中总个数
你要取的实际值吧?
你已经定义a(10) 那孝册耐他所有元素就是10个。 你要判姿谈断其他是否空值 就用循环判断
s=0
for i=0 to 9
if a(i)<>"" then s=s+1
next
print "数组共有有效元巧春素:";s
VBA中是application.count(arr),你试试。
Sub s(arr())
弊租毁 租备型缓MsgBox ubound(arr)-lbound(arr)+1
End Sub
Dim arr(2)
dim length = UBound(arr) - LBound(arr) + 1
UBound(a) - LBound(a) + 1