关于数组的奇怪问题，有知道的吗？

jaxxcyh

VBA在定义数组时，没有指定下标的话，默认下标从0开始，这是正常的。但是我修改了一下arr数组的定义（1 to 4,1 to 3)，用Array命令赋值后，得到的arr数组行列下标竟然还是从0开始。这是第一个奇怪的事。

定义brr数组没有指定下标，只是用Transpose命令转换了一下arr数组，brr数组的下标竟然是从1开始的。这是第二个奇怪的事情。

数组的脾气还真的怪，让人捉摸不定。有知道的大神给解释解释？

1. Sub ArrayTest()
   
2.    
   
3.     Dim arr()
   
4.     arr = Array(Array(1, 2, 3), Array(4, 5, 6), Array(7, 8, 9), Array(10, 11, 12))
   
5.     ' 填充数组,4行3列（行列下标均从0开始，这是正常的）
   
6.    
   
7.     '如果换成下面的代码，奇怪的事发生了，行列下标还是从0开始！！！
   
8.     'Dim arr(1 To 4, 1 To 3)
   
9.     'arr = Array(Array(1, 2, 3), Array(4, 5, 6), Array(7, 8, 9), Array(10, 11, 12))
   
10. 
    
11.    
    
12.     Dim brr()
    
13.     brr = Application.Transpose(arr())
    
14.     ' 转置数组，3行4列（行列下标现在竟然又从1开始了，不知为何？）
    
15.    
    
16.    
    
17.     Dim crr()
    
18.     'crr = Application.Index(arr, 2)
    
19.     '利用index获取行数据，crr是一个一维行数组，内容为（4，5，6）
    
20.    
    
21.     crr = Application.Index(brr, 2)
    
22.     'crr是一个一维行数组，内容为（2，5，8，11）
    
23.    
    
24.    
    
25.     For i = LBound(crr) To UBound(crr)
    
26.         Debug.Print crr(i)  ' 打印获取的数据
    
27.     Next i
    
28. End Sub
    

复制代码

ykcbf1100

Array的数组下标就是从0开始的，这个不会改变。
既然你已经定义了数组，为啥还要用Array呢？这不是自想矛盾吗？

醉眼看尘世

ykcbf1100 发表于 2024-7-27 21:00
Array的数组下标就是从0开始的，这个不会改变。
既然你已经定义了数组，为啥还要用Array呢？这不是自想矛 ...

他想一次性把Array数组搞进Arr里边儿

lcs_2046

这Arr大概不是你想象中的四行三列的数组，好像是一个套嵌数组吧，

quqiyuan

array是一维数组，里面又嵌套array，也改变不了它是一维数组，下标从0开始，定义Dim arr(1 To 4, 1 To 3)，然后arr = Array(Array(1, 2, 3), Array(4, 5, 6), Array(7, 8, 9), Array(10, 11, 12))，这一步会出错的，没办法赋值给arr，你试试看

jaxxcyh

quqiyuan 发表于 2024-7-27 22:12
array是一维数组，里面又嵌套array，也改变不了它是一维数组，下标从0开始，定义Dim arr(1 To 4, 1 To 3)， ...

我试过没出错呀，就是下标很奇怪是从0开始，而且肯定是4行3列的二维数组，后面还能转置成3到4到的数组。

jaxxcyh

醉眼看尘世 发表于 2024-7-27 21:08
他想一次性把Array数组搞进Arr里边儿

你知我心

lizhipei78

jaxxcyh 发表于 2024-7-28 01:12
我试过没出错呀，就是下标很奇怪是从0开始，而且肯定是4行3列的二维数组，后面还能转置成3到4到的数组。

一维数组直接转成二维数组出错的
不过我好奇的是，嵌套的一维数组用Transpose转置后就是二维数组了，这个是我之前不知道的

半百

jaxxcyh 发表于 2024-7-28 01:12
我试过没出错呀，就是下标很奇怪是从0开始，而且肯定是4行3列的二维数组，后面还能转置成3到4到的数组。

确定你试的时候没出错？

jaxxcyh

lcs_2046 发表于 2024-7-27 21:17
这Arr大概不是你想象中的四行三列的数组，好像是一个套嵌数组吧，

您说的对，的确是一维的嵌套数组。但能够通过transpose转置为一个3行4列的二维数组（brr就是）,也是让人容易迷糊。