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
|
