最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

VBS基礎篇 - vbscript隊列

 更新時間:2018年05月29日 22:45:14   投稿:mdxy-dxy  
VBS中的隊列需要使用System.Collections.Queue,包含隊列的添加元素(入隊)、刪除元素(出隊)、遍歷、統(tǒng)計元素個數(shù)、清空 ,需要的朋友可以參考下

實例代碼

腳本文件: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.Count

WScript.Echo

'遍歷隊列
Sub TraverseQue
 Dim ArrQue : ArrQue = Que.ToArray
 Dim Counter
 For Counter = 0 To UBound(ArrQue)
  WScript.Echo ArrQue(Counter)
 Next
End Sub
TraverseQue

WScript.Echo

'退出隊列
WScript.Echo Que.DeQueue
WScript.Echo "---"
TraverseQue
WScript.Echo

'清空隊列
Que.Clear
WScript.Echo "隊列中的元素數(shù): " & Que.Count

調(diào)用方法:通過雙擊c.bat調(diào)用,c.bat代碼如下:

cscript c.vbs
pause

運行結(jié)果截圖:

相關文章

最新評論

镇平县| 怀仁县| 澄城县| 陕西省| 年辖:市辖区| 宾川县| 南木林县| 新河县| 页游| 启东市| 霍山县| 屏东市| 兰考县| 大港区| 土默特右旗| 土默特右旗| 日土县| 华亭县| 郎溪县| 蒙山县| 紫云| 桂平市| 衡阳市| 禄丰县| 游戏| 青铜峡市| 莱西市| 新干县| 平邑县| 班玛县| 呈贡县| 禹城市| 屏东县| 封丘县| 岳普湖县| 楚雄市| 饶阳县| 潮州市| 盐源县| 阳曲县| 松滋市|