Question

VB语言中for each ....next...循环语句如何使用？

VB语言中for each ....next...循环语句如何使用？

Answer 1

For Each ……Next格式：语句只为集合与数组二种数据类型专门度身定做的。
For Each <成员>In<数组或集>
[<语句组>]
[Exit For ]
Next [<成员>]
例子中a为一个数组；x是成员，不用定义！ 例：
For Each x In a
sum = sum + x
Next x

VB 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

Answer 2

dim a(1)
a(0)=1
a(1)=2

for each i in a
msgbox i

next