如何把一个二维数组赋给一个一维数组，并输出---在线等！！！

Question

如何把一个二维数组赋给一个一维数组，并输出---在线等！！！

Answer 1

这个不是很难，
假设二维数组AA,一维数组为BB，请参考下列程序
Dim AA(10,10) as long  'AA为一个11行11列的二维数组
Dim BB(120) as long    'BB为一个长度为121的一维数组
Dim X as long
dim Y as Long
...   '数组AA的赋值等等，我不写出来了
...
For X=0 to 10
   For Y=0 to 10
      BB(X*11+Y)=AA(X,Y)
   next
next

Answer 2

直接拷贝过去
Dim AA(10, 10) As Long
Dim BB(99) As LongCopyMemory ByVal VarPtr(BB(0)), ByVal VarPtr(AA(0, 0)), (UBound(BB)-LBound(BB)+1)*48过必须保证同长

Answer 3

Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)