Visual Basic 2008 中 For Each...Next在数组中的使用

1、For    Each...  Next 语句通常用于扫描数组或集合中的所有元素，其一般语法格式如下：

                            For     Each      变量        In         数组名或集合名

                                 。。。。。。。。

                                    。。。。。。。。。。。。。

                           Next

声明一个字符串数组starr,并初始化，用 For   Each     Next  语句在其中找“星期三”的元素

 

例：

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim starr() As String = {"星期一", "星期二", "星期三", "星期四"}
        For Each temp As String In starr
            If temp = "星期三" Then
                MsgBox("成功找到星期三")
                Exit For
            End If
        Next
    End Sub
End Class

 

 

 

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim starr() As String = {"星期一", "星期二", "星期三", "星期四"}

        For Each temp As String In starr
            MsgBox(temp)
        Next

        MsgBox("for each 循环完毕")
    End Sub
End Class