'建立動態(tài)數(shù)組
Dim Arrl : Set Arrl = CreateObject("System.Collections.ArrayList")
'添加元素
Arrl.Add "Element3"
Arrl.Add "Element2"
Arrl.Add "Element1"
'查看動態(tài)數(shù)組中的元素數(shù)
WScript.Echo "動態(tài)數(shù)組中現(xiàn)有元素數(shù)量: " Arrl.Count
WScript.Echo "動態(tài)數(shù)組容量: " Arrl.Capacity
WScript.Echo
'遍歷動態(tài)數(shù)組
Sub TraverseArrl
Dim Counter
For Counter = 0 To Arrl.Count - 1
WScript.Echo Arrl(Counter)
Next
End Sub
TraverseArrl
WScript.Echo
'動態(tài)數(shù)組排序
Arrl.Sort
TraverseArrl
WScript.Echo
'刪除指定元素
Arrl.Remove("Element1")
TraverseArrl
WScript.Echo
'清空全部元素
Arrl.Clear
WScript.Echo "動態(tài)數(shù)組中現(xiàn)有元素數(shù)量: " Arrl.Count
WScript.Echo "動態(tài)數(shù)組容量: " Arrl.Capacity