国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

VBS基礎篇 - vbscript隊列

2020-07-26 11:44:37
字體:
來源:轉載
供稿:網友

實例代碼

腳本文件:c.vbs,包含隊列的添加元素(入隊)、刪除元素(出隊)、遍歷、統(tǒng)計元素個數、清空

'建立隊列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

運行結果截圖:

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 肥城市| 柳江县| 聊城市| 从江县| 兰溪市| 教育| 柞水县| 修水县| 乳山市| 大名县| 邵阳市| 休宁县| 前郭尔| 工布江达县| 吉林省| 五家渠市| 察雅县| 青岛市| 加查县| 龙游县| 遂平县| 西平县| 聊城市| 芜湖县| 内乡县| 安溪县| 蓬莱市| 文成县| 抚松县| 大竹县| 蕲春县| 瑞金市| 望城县| 北安市| 济阳县| 安顺市| 闽侯县| 随州市| 河池市| 万州区| 双辽市|