版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

当需要为集合或数组的每个元素重复执行一组语句时，可以使用 For Each...Next 循环，通过For Each遍历出每个元素。

 

 

 

还是采用《流程控制:循环语句 For...Next》中的题目

 

一组数按照由小到大的顺序进行排序：

 

    Sub Main()

        '需要排序的数字在数组内

        Dim source() As Integer = {32, 12, 44, 43, 79, 1, 10, 65, 21, 53}

        '外层循环每一次循环结束时，输出数组

        Dim outputString As String = ""

        '对循环次数进行计数

        Dim counti As Integer = 0

 

        Dim i As Integer

        Dim j As Integer

 

        Dim tmp As Integer

 

        '循环

        For i = 0 To 8

            outputString = ""

            '嵌套循环

            For j = 0 To (8 - i)

                '循环次数+1

                counti += 1

                '如果前面那个数大于后面那个数，就把前面那个数排到后面

                If source(j) > source(j + 1) Then

                    tmp = source(j)

                    source(j) = source(j + 1)

                    source(j + 1) = tmp

                End If

            Next

            '枚举出source中的每个元素

            For Each k As Integer In source

                outputString &= k & " "

            Next

            Console.WriteLine(outputString)

        Next

        '输出循环次数

        Console.WriteLine("循环次数：{0}", counti)

        Console.ReadKey()

    End Sub

运行结果如下：

 

 

 

可以看到外层循环了9次，虽然在第5次就得到了正确的结果，但是这个只是和代码内数组中的数值顺序有关系。

 

各位读者可以更换一下顺序：Dim source() As Integer = {79， 65, 53, 44, 12, 10, 21, 32, 43, 1}

————————————————

版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/uruseibest/article/details/65018515