国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板: 镇巴县| 故城县| 梁山县| 汉中市| 云浮市| 读书| 灌云县| 鹤岗市| 长寿区| 平谷区| 惠东县| 冕宁县| 望江县| 绩溪县| 司法| 平塘县| 北碚区| 岳池县| 达州市| 渑池县| 武义县| 库伦旗| 垫江县| 泽普县| 安吉县| 新巴尔虎右旗| 东丰县| 祥云县| 柏乡县| 哈尔滨市| 澜沧| 罗源县| 三都| 琼中| 林口县| 社旗县| 太康县| 泸溪县| 阿克苏市| 富蕴县| 二手房|