實(shí)例代碼
腳本文件：d.vbs，包含堆棧的添加元素（壓棧）、刪除元素（出棧）、遍歷、統(tǒng)計(jì)元素個(gè)數(shù)、清空
|
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"'查看堆棧中的元素?cái)?shù)WScript.Echo "堆棧中的元素?cái)?shù): " & 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 "堆棧中的元素?cái)?shù): " & Stk.Count |
調(diào)用方法：通過雙擊d.bat調(diào)用，d.bat代碼如下：
cscript d.vbs
pause
運(yùn)行結(jié)果截圖：
可以看出，遍歷隊(duì)列和堆棧時(shí)，遍歷順序時(shí)由出隊(duì)和出棧的順序決定的，而不是入隊(duì)和壓棧的順序
