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

首頁 > 編程 > VBScript > 正文

VBS基礎篇 - vbscript隊列

2020-06-26 17:16:36
字體:
來源:轉載
供稿:網(wǎng)友

實例代碼

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

'建立隊列Dim Que : Set Que = CreateObject("System.Collections.Queue")Que.EnQueue("Element1")Que.EnQueue("Element2")Que.EnQueue("Element3")'查看隊列中的元素數(shù)WScript.Echo "隊列中的元素數(shù): " & 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 "隊列中的元素數(shù): " & Que.Count

調用方法:通過雙擊c.bat調用,c.bat代碼如下:

cscript c.vbs
pause

運行結果截圖:

VBS,vbscript,隊列


發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 汽车| 科技| 黄山市| 梁山县| 平罗县| 南京市| 宝丰县| 昌图县| 诸城市| 三台县| 同德县| 长乐市| 都江堰市| 南皮县| 集贤县| 五寨县| 桦南县| 通海县| 莱阳市| 永和县| 揭西县| 宁德市| 荥经县| 巴彦淖尔市| 突泉县| 文昌市| 五家渠市| 永登县| 南和县| 阜新市| 泰来县| 民丰县| 社会| 新安县| 湟中县| 龙山县| 永登县| 融水| 藁城市| 梅州市| 天镇县|