如何将数组进行合并？

Question

我要解决的问题是：
现有数组A（0，5）和数组B（0，5），都定义为二维数组
能不能在不使用循环的情况下，将两个数组合并为一个C（1，5）啊！谢谢了！
举例：
A（0，0）=1    B（0，0）=2
A（0，1）=2    B（0，1）=3
合并为
C(0,0）=1    C(0,1)=2
C(1,0)=2     C(1,1)=3
谢谢了！

Answer 1

一维数组可以直接拷贝，二维的没有研究过。Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Dim bytes As LongDim intSrc(1 To 6000000) As Integer
Dim intDest(1 To 6000000) As Integerbytes = (UBound(intSrc) - LBound(intSrc) + 1) * Len(intSrc(LBound(intSrc)))CopyMemory intDest(LBound(intDest)), intSrc(LBound(intSrc)), bytes

Answer 2

CopyMemory 不过你要注意的是：
ＶＢ中的２惟数组在内存的存储结构和Ｃ中不一样
Ｃ中是　a[0,0] ,a[0,1]....横向优先
VB:    a(0,0) ,a(1,0).....纵列优先