實例代碼
腳本文件：d.vbs，包含堆棧的添加元素（壓棧）、刪除元素（出棧）、遍歷、統計元素個數、清空
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
運行結果截圖：
可以看出，遍歷隊列和堆棧時，遍歷順序時由出隊和出棧的順序決定的，而不是入隊和壓棧的順序
新聞熱點
疑難解答
