VB中怎么计算数组中含的元素数

Dim arr(4,7) As Integer
n = 0
For Each i In arr
n = n + 1
Next
MsgBox "数组arr有 " & n & " 个元素"

'计算数组的维数
On Error Resume Next
Err.Clear
n = 0
Do While Err.Number = 0
n = n + 1
u = UBound(arr, n)
Loop
MsgBox "数组arr有 " & n - 1 & " 维"
Err.Clear '非必需
On Error GoTo 0 '非必需

UBound(arr)

做个for 循环啊 一次给他里面的数复制
for i=1 to 4
for j=1 to 7
arr（i，j）=……
next j
next i