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

1. Option Explicit
   
2. 
   
3. '建立堆栈
   
4. Dim Stk : Set Stk = CreateObject("System.Collections.Stack")
   
5. 
   
6. Stk.Push "Element1"
   
7. Stk.Push "Element2"
   
8. Stk.Push "Element3"
   
9. 
   
10. '查看堆栈中的元素数
    
11. WScript.Echo "堆栈中的元素数: " & Stk.Count
    
12. 
    
13. WScript.Echo
    
14. 
    
15. '遍历堆栈
    
16. Sub TraverseStk
    
17.   Dim ArrStk : ArrStk = Stk.ToArray
    
18.   Dim Counter
    
19.   For Counter = 0 To UBound(ArrStk)
    
20.     WScript.Echo ArrStk(Counter)
    
21.   Next
    
22. End Sub
    
23. TraverseStk
    
24. 
    
25. WScript.Echo
    
26. 
    
27. '元素出栈
    
28. WScript.Echo Stk.Pop
    
29. WScript.Echo "---"
    
30. TraverseStk
    
31. 
    
32. WScript.Echo
    
33. 
    
34. '清空堆栈
    
35. Stk.Clear
    
36. WScript.Echo "堆栈中的元素数: " & Stk.Count

复制代码

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

1. cscript d.vbs
   
2. pause

复制代码

运行结果截图：

可以看出，遍历队列和堆栈时，遍历顺序时由出队和出栈的顺序决定的，而不是入队和压栈的顺序

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