For Each ……Next格式：語句只為集合與陣列二種資料型別專門度身定做的。 For Each In [] [Exit For ] Next [] 例子中a為一個數組；x是成員，不用定義！ 例： For Each x In a sum = sum + x Next xVB For Each.Next語句在陣列中的使用： VB For Each.Next語句好像只是為二種資料型別專門度身定做的，其一就是集合，另外一個就是陣列了。透過VB For Each.Next語句，可以十分方便的訪問陣列中的任一元素。請仔細分析一下下列程式碼： Dim arrString ( 2 ) As String = {"星期一","星期二","星期三"} Dim Temp As String For Each Temp In arrString If Temp = "星期三" Then MsgBox ( "在陣列中尋找到""星期三""字串") Exit For "退出For Each …. Next語句 End If Next Temp上面程式碼的功能是透過VB For Each.Next語句訪問arrString陣列中各元素，如果發現有元素為字串“星期三”，則彈出提示框，並退出迴圈。 同樣用For … Next語句也能夠實現上面同樣的功能，只是感覺有點不專業，並且有點繁瑣，下面程式碼是用For … Next語句實現上面VB For Each.Next語句同等功能的程式碼： Dim i As Integer For i = 0 To 2 If arrString ( i ) = "星期三" Then MsgBox ( "在陣列中尋找到""星期三""字串" ) Exit For End If Next i
For Each ……Next格式：語句只為集合與陣列二種資料型別專門度身定做的。 For Each In [] [Exit For ] Next [] 例子中a為一個數組；x是成員，不用定義！ 例： For Each x In a sum = sum + x Next xVB For Each.Next語句在陣列中的使用： VB For Each.Next語句好像只是為二種資料型別專門度身定做的，其一就是集合，另外一個就是陣列了。透過VB For Each.Next語句，可以十分方便的訪問陣列中的任一元素。請仔細分析一下下列程式碼： Dim arrString ( 2 ) As String = {"星期一","星期二","星期三"} Dim Temp As String For Each Temp In arrString If Temp = "星期三" Then MsgBox ( "在陣列中尋找到""星期三""字串") Exit For "退出For Each …. Next語句 End If Next Temp上面程式碼的功能是透過VB For Each.Next語句訪問arrString陣列中各元素，如果發現有元素為字串“星期三”，則彈出提示框，並退出迴圈。 同樣用For … Next語句也能夠實現上面同樣的功能，只是感覺有點不專業，並且有點繁瑣，下面程式碼是用For … Next語句實現上面VB For Each.Next語句同等功能的程式碼： Dim i As Integer For i = 0 To 2 If arrString ( i ) = "星期三" Then MsgBox ( "在陣列中尋找到""星期三""字串" ) Exit For End If Next i