VB循环结构之For Each...Next详解

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()   '这里随便定义一个数组，数组名为arr
    arr = Array(2, 5, 13, 17)   '为数组赋值    
    For Each a In arr   '遍历数组内元素        
        Print a    
    Next
End Sub
5
6
7
8

上