vb一维数组怎么转换成二维数组??

[ediex]

已知一维数组adcdatarray,每12个数字放到二维数组adata(i+12,j)一行中,怎么解决?

[tmd007]

Dim adcdatarray(20), adata(12, 10)
Private Sub Command1_Click()
Dim i, j
For i = 0 To 20: adcdatarray(i) = i: Next
For i = 0 To UBound(adcdatarray) Step 12
For j = 0 To 11
If j + i > UBound(adcdatarray) Then Exit For
adata(j, i \ 12) = adcdatarray(j + i)
Next
Next
For i = 0 To UBound(adcdatarray) \ 12
For j = 0 To 11
Print adata(j, i);
Next: Print
Next
End Sub

[gguueesstt]

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)


Private Sub Form_Load()
Dim m As Long
Dim adcdatarray(1 To 12 * 6) As Long

For m = 1 To UBound(adcdatarray)
adcdatarray(m) = m
Next m

Dim adata(1 To 12, 1 To 6) As Long
CopyMemory adata(1, 1), adcdatarray(1), UBound(adcdatarray) * Len(adcdatarray(1))
Debug.Print adata(1, 1), adata(2, 1)
Debug.Print adata(1, 2), adata(2, 2)
End Sub

[ediex]

到底那个更快,我的数组 数据量比较大

[Dunzip]

理论上用CopyMemory要快些，但没有去测试。一测便知。