Array VB6.0中的快速复制数组

Question

我有一个我想要以二维方式复制的数组（如锯齿状） 这是我的代码：

Dim cB(1000000) As Double
Dim buffer(50, 1000000) As Double

For I = 1 To 1000000
    cB(I) = CInt(Int((50 * Rnd()) + 1))
Next

我可以使用for来将cB复制到缓冲区。喜欢这段代码：

For I = 1 To 10

   For j = 1 To 1000000
        buffer(I, j) = cb(j)
   Next

Next

但我想知道有没有更快的方法来做到这一点？ 在vb.net或C＃中我可以使用List。 在vb6.0中有这样的东西吗？

感谢。

Answer 1

也许根本不复制数组？

Function AccessMyArray(arr, i, j)
    ' TODO: add range check using LBound() / UBound()
    AccessMyArray = arr(i * 1024 + j)
End Function

Answer 2

VB6中没有通用的List对象，但是有一个Dictionary对象大致相当于.Net中的通用Dictionary对象。设置对“Microsoft Scripting Runtime”的引用，您将找到它。