VB数组用for循环赋值，很耗时间，有没有优化的办法，谢谢
Dim i As LongDim j As Long
For i = 0 To 800
For j = 0 To 800
B1(2, i, j) = B2(2, i, j)
B1(1, i, j) = B2(1, i, j)
B1(0, i, j) = B2(0, i, j)
Next j
Next i
感觉这个地方十分耗时间，数组B1和B2是两个大小不一样的数组，B1的范围比B2大，用不了CopyMemory
