實例代碼
腳本文件：c.vbs，包含隊列的添加元素（入隊）、刪除元素（出隊）、遍歷、統計元素個數、清空
| '建立隊列Dim Que : Set Que = CreateObject("System.Collections.Queue")Que.EnQueue("Element1")Que.EnQueue("Element2")Que.EnQueue("Element3")'查看隊列中的元素數WScript.Echo "隊列中的元素數: " & Que.CountWScript.Echo'遍歷隊列Sub TraverseQue Dim ArrQue : ArrQue = Que.ToArray Dim Counter For Counter = 0 To UBound(ArrQue) WScript.Echo ArrQue(Counter) NextEnd SubTraverseQueWScript.Echo'退出隊列WScript.Echo Que.DeQueueWScript.Echo "---"TraverseQueWScript.Echo'清空隊列Que.ClearWScript.Echo "隊列中的元素數: " & Que.Count |
調用方法：通過雙擊c.bat調用，c.bat代碼如下：
cscript c.vbs
pause
運行結果截圖：
新聞熱點
疑難解答
圖片精選
