请看下面,我在这里有点困惑:
Dim myQueue
Set myQueue= CreateObject("System.Collections.ArrayList")
myQueue.add("over")
myQueue.add("") 'is this valid statement
myQueue.add("") 'is this valid statement
现在假设一个数组(6)=(a,d,,,e,t)
For I=0 to Ubound(array)-1
myQueue.add(I)
Next
现在 Arraylist myQueue
将包含非 Null 值(即 a、d、e、t)或所有数组元素?
我刚刚测试过的代码 ,现在结果很好
Option Explicit
Dim myQueue,i
Set myQueue = CreateObject("System.Collections.ArrayList")
'Dim Set Dic = CreateObject("Scripting.Dictionary
myQueue.Add("jumped")
myQueue.Add("over")
myQueue.Add("")
myQueue.Add("")
myQueue.Add("dog")
myQueue.Add("Cat")
i=0
Do While myQueue.Count > i
MsgBox(myQueue(i))
i=i+1
Loop
MsgBox("Capacity=" & myQueue.Capacity & "Count:" & myQueue.Count)
myQueue.Remove("dog")
MsgBox("Capacity=" & myQueue.Capacity & "Count:" & myQueue.Count)
i=0
Do While myQueue.Count > i
MsgBox(myQueue(i))
i=i+1
Loop
谢谢