三维数组的输出

爱疯

1. Sub 按钮1_Click()
   
2.     Dim arr(1 To 2, 1 To 3, 1 To 4)
   
3.     Dim i, j, k, s
   
4. 
   
5.     For i = 1 To 2
   
6.         For j = 1 To 3
   
7.             For k = 1 To 4
   
8.                 s = s + 1
   
9.                 arr(i, j, k) = s
   
10.             Next
    
11.         Next
    
12.     Next
    
13. End Sub

复制代码

三维数组的输出.rar (7.73 KB, 下载次数: 6)

2013-4-17 21:55 上传

点击文件名下载附件

问题：arr里红色框中的值，或某部分值（比如arr(2,2)里的17、18、19、20），能一次输出到单元格吗？
  
谢谢！

1032446692

好像是不可以的                          

爱疯

1032446692 发表于 2013-4-17 23:24
好像是不可以的

我怀疑也是，不然会流行的{:021:}

cbg2008

爱疯 发表于 2013-4-17 23:28
我怀疑也是，不然会流行的

不行我也要试试

cbg2008

爱疯 发表于 2013-4-17 23:28
我怀疑也是，不然会流行的

结果是没有结果，不过学会了探测数组维数的方法

1. Function 数组维数(arr() As Variant) As Long
   
2. On Error Resume Next
   
3. For i = 1 To 60
   
4.     x = UBound(arr, i)
   
5.     If Err.Number = 9 Then i = i - 1: Exit For
   
6. Next
   
7. 数组维数 = i
   
8. End Function

复制代码