脚本文件：b.vbs，包含动态数组的添加元素、删除元素、遍历、统计元素个数、清空
实例代码

1. '建立动态数组
   
2. Dim Arrl : Set Arrl = CreateObject("System.Collections.ArrayList")
   
3. 
   
4. '添加元素
   
5. Arrl.Add "Element3"
   
6. Arrl.Add "Element2"
   
7. Arrl.Add "Element1"
   
8. 
   
9. '查看动态数组中的元素数
   
10. WScript.Echo "动态数组中现有元素数量: " & Arrl.Count
    
11. WScript.Echo "动态数组容量: " & Arrl.Capacity
    
12. 
    
13. WScript.Echo
    
14. 
    
15. '遍历动态数组
    
16. Sub TraverseArrl
    
17. Dim Counter
    
18. For Counter = 0 To Arrl.Count - 1
    
19.   WScript.Echo Arrl(Counter)
    
20. Next
    
21. End Sub
    
22. TraverseArrl
    
23. 
    
24. WScript.Echo
    
25. 
    
26. '动态数组排序
    
27. Arrl.Sort
    
28. TraverseArrl
    
29. 
    
30. WScript.Echo
    
31. 
    
32. '删除指定元素
    
33. Arrl.Remove("Element1")
    
34. TraverseArrl
    
35. 
    
36. WScript.Echo
    
37. 
    
38. '清空全部元素
    
39. Arrl.Clear
    
40. WScript.Echo "动态数组中现有元素数量: " & Arrl.Count
    
41. WScript.Echo "动态数组容量: " & Arrl.Capacity

复制代码

调用方法：通过双击b.bat调用，b.bat代码如下：

1. cscript b.vbs
   
2. pause

复制代码

运行结果截图：

来源：互联网
免责声明：如果侵犯了您的权益，请联系站长（1277306191@qq.com），我们会及时删除侵权内容，谢谢合作！