实例代码
脚本文件：d.vbs，包含堆栈的添加元素（压栈）、删除元素（出栈）、遍历、统计元素个数、清空
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
Option Explicit'建立堆栈Dim Stk : Set Stk = CreateObject("System.Collections.Stack")Stk.Push "Element1"Stk.Push "Element2"Stk.Push "Element3"'查看堆栈中的元素数WScript.Echo "堆栈中的元素数: " & Stk.CountWScript.Echo'遍历堆栈Sub TraverseStk Dim ArrStk : ArrStk = Stk.ToArray Dim Counter For Counter = 0 To UBound(ArrStk) WScript.Echo ArrStk(Counter) NextEnd SubTraverseStkWScript.Echo'元素出栈WScript.Echo Stk.PopWScript.Echo "---"TraverseStkWScript.Echo'清空堆栈Stk.ClearWScript.Echo "堆栈中的元素数: " & Stk.Count |
调用方法：通过双击d.bat调用，d.bat代码如下：
cscript d.vbs
pause
运行结果截图：
可以看出，遍历队列和堆栈时，遍历顺序时由出队和出栈的顺序决定的，而不是入队和压栈的顺序
