實例代碼
腳本文件: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
運行結果截圖:
新聞熱點
疑難解答