VBS：计算数组中的项目数

Question

我怎样才能简单地调查给定数组中的项目数。 我使用了这段代码，但这有点费力

myArr=Array("frog", "cat", "bat", "rat", "horse")
 for i=0 to UBound(myArr)
 ' Msgbox i +1 & ".item: " & myArr(i) 
 next
Msgbox i & " items in this array:" & vbcrlf & Join(myArr)

由于

Answer 1

嗯......你的代码中有它。 UBound(Array)返回上限，这是现有的最高项。 UBound(myArr) + 1是它的长度，因为索引是基于零的。

Answer 2

Msgbox (ubound(myArr) + 1) & " items in this array:" & vbcrlf & Join(myArr)

编辑：当你使用ubound时，为什么还需要一个循环＆amp;要计算的变量i。