首页 > 代码库 > VBS基础篇 - 循环语句(4) - For Each...Next
VBS基础篇 - 循环语句(4) - For Each...Next
For Each...Next 循环与 For...Next 循环类似。For Each...Next 不是将语句运行指定的次数,而是对于数组中的每个元素或对象集合中的每一项重复一组语句。这在不知道集合中元素的数目时非常有用。
语法结构如下:
1 2 3 4 5 | For Each element In group [statements] [ Exit For ] [statements] Next [element] |
主要参数:
element:用来枚举集合或数组中所有元素的变量。对于集合,element可能是Variant变量、通用Object变量或任意指定的Automation对象变量。对于数组,element只能是Variant变量。
group:对象集合或数组的名称。
具体实例代码如下:
1 2 3 4 5 6 7 8 | Dim Dics ‘定义一个变量 Set Dics = CreateObject( "Scripting.Dictionary" ) ‘定义一个Dictionary对象 Dics.Add "0" , "Athens" ‘为Dictionary对象赋值 Dics.Add "1" , "Belgrade" Dics.Add "2" , "Cairo" For Each Dic in Dics MsgBox Dics.Item(Dic) ‘循环遍历,且输出Dictionary键值 Next |
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。