谁知道以下代码的执行效率有多高吗？
[quote]
Public Property Get RAWData()
RAWData=Array(tplStore,dicVars.Keys,dicVars.Items,dicBkRAW.Keys,dicBkRAW.Items,dicBkDone.Keys,dicBkDone.Items)
End Property
Public Property Let RAWData(ByRef data)
Dim i,u,k,d
ResetDics
tplStore=data(0)
k=data(1)
d=data(2)
u=UBound(k)
For i=0 To u
dicVars.Item(k(i))=d(i)
Next
k=data(3)
d=data(4)
u=UBound(k)
For i=0 To u
dicBkRAW.Item(k(i))=d(i)
Next
k=data(5)
d=data(6)
u=UBound(k)
For i=0 To u
dicBkDone.Item(k(i))=d(i)
Next
End Property
[/quote] | 
