vb for each..next的用法

For Each...Next 语句
针对一个数组或集合中的每个元素，重复执行一组语句。
语法:
For Each element In group '就是在数组或集合中开始对每个元素进行遍历寻找
[statements] '寻找情况，即你要运行的代码
[Exit For] '可随时退出遍历寻找
[statements] '寻找情况，即你要运行的代码
Next [element] '寻找下一个元素 这跟for next 循环是一样的

说明：
如果数组或集合group中至少有一个元素，就会进入 For...Each 块执行。一旦进入循环，便先针对数组或集合group中第一个元素执行循环中的所有语句。如果 group 中还有其它的元素，则会针对它们执行循环中的语句，当 group 中的所有元素都执行完了，便会退出循环，然后从 Next 语句之后的语句继续执行。
在循环中可以在任何位置放置任意个 Exit For 语句，随时退出循环。Exit For经常在条件判断之后使用，例如If then，并将控制权转移到紧接在 Next 之后的语句。

你要理解含义比较重要的是group对象，即集合或数组的名称（用户定义类型的数组除外）。
Dim Found, MyObject, MyCollection 'Found是自己定义的为了便于理解,MyObject是MyCollection中的一个成员，即定MyObject是数组或集合MyCollection中的一个元素
Found = False ' 设置变量初始值。
For Each MyObject In MyCollection ' 对每个成员作一次迭代。
If MyObject.Text = "Hello" Then ' 如果MyObject的Text 属性值等于“Hello”。
Found = True '