【VB技巧】VB For循环逐个枚举整个数组的值

VB For循环逐个枚举整个数组的值：

方法一：
Dim I
For Each I In Data                                  '枚举整个数组赋值给I
    Debug.Print I
Next

方法二：
Dim I  As Integer
For I = LBound(Data) To UBound(Data)                '从数组最小下标循环到最大下标(大于(65535-1)/2会溢出)
    MsgBox Data(I)
Next I

Exit For                                            '中途退出循环