阵列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" 的引用，您会找到它。

Fast Copy Array in Array VB6.0