下面是解决本例问题的参考过程：

Sub 求三维数组的元素个数()
'=====以下代码用于声明三维数组并给三维数组赋值
Dim arr(1 To 3, 1 To 5, 1 To 10) As Integer
Dim i As Integer, j As Integer, k As Integer, m As Integer
For i = 1 To 3
For j = 1 To 5
For k = 1 To 10
m = m + 1
arr(i, j, k) = m
Next
Next
Next
'====以下代码用于求三维数组中的元素个数
'****求数组第1维的最大和最小索引号
Dim a As Integer, b As Integer
a = UBound(arr, 1)
b = LBound(arr, 1)
'****求数组第2维的最大和最小索引号
Dim c As Integer, d As Integer
c = UBound(arr, 2)
d = LBound(arr, 2)
'****求数组第3维的最大和最小索引号
Dim e As Integer, f As Integer
e = UBound(arr, 3)
f = LBound(arr, 3)
'****用对放框显示数组的元素个数
MsgBox "数组包含的元素个数是：" & (a - b + 1) * (c - d + 1) * (e - f + 1)
End Sub

上一篇：excel表格教程：将第1张表中的A1:E10复制到第2张工作表中 下一篇：excel表格制作教程：高亮显示活动单元格所在行和列

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。