快速複製陣列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 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」的引用，您會發現它。