For Each…Next语句用于逐一循环数组或集合中的每个元素。
语法格式如下：
For Each <数组或集合中的元素> in <数组或集合><循环体>[Exit For]Next <数组或集合中元素>
说明：
数组或集合中的元素：必要参数，用来接受遍历集合或数组中的元素，通常为变体类型的变量。
数组或集合：必要参数，集合或数组的名称。
循环体：可选参数，用户根据需求自定义语句块。
Exit For：可选参数，与前面学习的for循环一样，可以使用exit for强制提前退出循环。
For Each…Next语句是专门用于遍历数组和集合的，采用For Each语句可以非常方便的遍历数组或集合内的所有元素，可以这样来理解这个循环语句，即程序执行到该语句时，会从这个集合或数组内的第一个元素开始逐一取出每个元素赋值给<数组或集合中的元素>，直到取到最后一个元素后，则结束该循环。
举例1：遍历一个数组内的全部元素
代码如下，单击按钮后，则可以在窗体上显示该数组内所有元素值
Private Sub Command1_Click()Dim a 定义一个变体型变量Dim arr() 这里随便定义一个数组，数组名为arrarr = Array(2, 5, 13, 17) 为数组赋值 For Each a In arr 遍历数组内元素 Print a NextEnd Sub
上
