[已解决]关于数组

Dj_soo

Option Base 0
Sub test()
    Dim ArrData As Variant
    Dim Arr As Variant
    ArrData = Array(1, 2, 3)
    Arr = ArrData
    Stop
End Sub

如上,ArrData这个时候下标最小为0,这样赋值给Arr的时候,Arr下标也会为0,我应该怎么定义这个Arr,在不用循环的情况下,进行怎样的处理,可以使Arr最小下标为1,且结果为:

Arr(1)=1,Arr(2)=2,Arr(3)=3

最佳答案

月排行榜 / 总排行榜

amulee

2009-12-15 08:45

Option Base 0
Sub test()
    Dim ArrData As Variant
    Dim Arr As Variant
    ArrData = Array(1, 2, 3)
    Arr = ArrData
    ReDim Preserve Arr(1 To UBound(Arr) + 1)
    Stop
End Sub

跳转到最佳答案楼层

Dj_soo

前提是ArrData结构不变.也就是ArrData实际上是一个已经固定了的数组.

Dj_soo

[em04][em04][em04]

[此贴子已经被作者于2009-12-14 15:24:43编辑过]

Dj_soo

没有人回答么?

实际上这样的问题感觉挺需要解决的呀

比如数组和字典一起用的时候

把字典直接赋值给数组,就只能最小下标是0而不能是1,我习惯的最小下标是1,要把它转化,用循环吧,又觉得太奢侈..

不知道有没有更简单的方法.

yuhe0008

Option Base 1
Sub test()
    Dim ArrData As Variant
    Dim Arr As Variant
    ArrData = Array(1, 2, 3)
    Arr = ArrData
    Stop
End Sub

零点★沉思

楼上正解

和气生财

DJ, 你好，哈哈

将Option Base 0 改 Option Base 1 不算么？

吕?布

这可能很难吧，字典是这样，Split好象也是这样。

你要统一也只能统一成option base 0(C中好象数组全部从0开始，没得选择)

你不改也好象没什么关系，到时记得减1便行了。

Dj_soo

回答上面,改了不算.我加上这句就是为了限制不能更改.[em04]

Dj_soo

QUOTE:

以下是引用吕?布在2009-12-14 15:53:00的发言：

这可能很难吧，字典是这样，Split好象也是这样。

你要统一也只能统一成option base 0(C中好象数组全部从0开始，没得选择)

你不改也好象没什么关系，到时记得减1便行了。

对啊,我就是在字典转数组的过程中遇到这样的问题的.

option base 1对字典好像无效.