数组重组问题
dim a() as long
redim a(2)
a(0)=0
a(1)=1
a(2)=2
'redim preserve a(0 to 1) '* 如果用这句 OK
redim preserve a(1 to 2) '* 出错 问怎样可以保留后面的元素
问题点数：20、回复次数：3Top
1 楼ExeMan（愚公移山(笨)--精卫填海(傻)）回复于 2005-08-02 08:21:57 得分 0
dim a() as long
redim a(2)
a(0)=0
a(1)=1
a(2)=2
'redim preserve a(0 to 1) '* 如果用这句 OK
redim preserve a(1 to 2) '* 出错 问怎样可以保留后面的元素
''''''''''''''''''''''''''''
dim b(1 to 2)
dim i as byte
for i=1 to 2
b(i)=a(i)
next
redim a(1 to 2)
for i=1 to 2
a(i)=b(i)
nextTop
2 楼of123（）回复于 2005-08-02 08:39:55 得分 0
Dim a() As Long
ReDim a(2)
a(0) = 1
a(1) = 2
a(2) = 3
Dim b(1) As Long
Call CopyMemory(b(0), a(1), Len(b(0)) * 2)
Debug.Print b(0)
Debug.Print b(1)
Top
3 楼wangtopcool（逆水行舟,不进则退）回复于 2005-08-02 08:43:04 得分 0
在用 Preserve 关键字时，只能改变多维数组中最后一维的上界；如果改变了其它维或最后一维的下界，那么运行时就会出错Top
