以下を参照してください、私はここで少し混乱しています:
Dim myQueue
Set myQueue= CreateObject("System.Collections.ArrayList")
myQueue.add("over")
myQueue.add("") 'is this valid statement
myQueue.add("") 'is this valid statement
ここで、array(6)=(a、d ,,, e、t)と仮定します。
For I=0 to Ubound(array)-1
myQueue.add(I)
Next
これで、Arraylist myQueue
には非ヌル値(つまり、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
ありがとう