实例代码
脚本文件：c.vbs，包含队列的添加元素（入队）、删除元素（出队）、遍历、统计元素个数、清空

1. '建立队列
   
2. Dim Que : Set Que = CreateObject("System.Collections.Queue")
   
3. 
   
4. Que.EnQueue("Element1")
   
5. Que.EnQueue("Element2")
   
6. Que.EnQueue("Element3")
   
7. 
   
8. '查看队列中的元素数
   
9. WScript.Echo "队列中的元素数: " & Que.Count
   
10. 
    
11. WScript.Echo
    
12. 
    
13. '遍历队列
    
14. Sub TraverseQue
    
15. Dim ArrQue : ArrQue = Que.ToArray
    
16. Dim Counter
    
17. For Counter = 0 To UBound(ArrQue)
    
18.   WScript.Echo ArrQue(Counter)
    
19. Next
    
20. End Sub
    
21. TraverseQue
    
22. 
    
23. WScript.Echo
    
24. 
    
25. '退出队列
    
26. WScript.Echo Que.DeQueue
    
27. WScript.Echo "---"
    
28. TraverseQue
    
29. WScript.Echo
    
30. 
    
31. '清空队列
    
32. Que.Clear
    
33. WScript.Echo "队列中的元素数: " & Que.Count

复制代码

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

1. cscript c.vbs
   
2. pause

复制代码

运行结果截图：

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