VB.Net For Each…Next、Exit、Continue 语句及示例

VB.Net For Each 循环

VB.Net For Each 是一个循环命令。当您需要为集合中的每个项目重复一组语句时，应使用此语句。您可以使用它来操作集合或数组中包含的所有元素。

VB.Net For Each… Next 语句的语法

VB.Net for each 语句采用以下语法

For Each item [ As data_type ] In group  
    [ statement(s) ]  
    [ Continue For ]  
    [ statement(s) ]  
    [ Exit For ]  
    [ statement(s) ]  
Next [ item ]

此处，

item 是将用于迭代集合中所有项目的变量。在 for each 语句中是必需的，但在 Next 语句中是可选的。
data_type 是元素的数据类型。如果尚未声明 item，则需要此项。
group 是要重复语句的集合。这是必需的。
statement(s) 是可选的。它表示要为组中的每个项目执行的一个或多个语句。
Continue For 将控制转移到 For Each 循环的开头。这是可选的。
Exit For 将控制转移出 For Each 循环。这是可选的。
Next 标记 For Each 循环的结束。这是必需的。

如何在 VB.Net 中使用 For Each 循环

以下示例演示了如何在 VB.Net 中使用 For Each 循环

步骤 1) 创建一个新的控制台应用程序
首先创建一个新的控制台应用程序。

步骤 2) 使用以下代码
使用以下代码学习 VB.Net 中的 For Each 循环

Module Module1
    Sub Main()
        Dim myArray() As Integer = {10, 3, 12, 23, 9}
        Dim item As Integer
        For Each item In myArray
            Console.WriteLine(item)
        Next
        Console.ReadKey()
    End Sub
End Module

步骤 3) 单击“开始”按钮
单击顶部栏中的“开始”按钮运行代码。您应该会看到以下结果

这是代码的屏幕截图：

代码解释

创建一个名为 Module1 的模块。
开始主子过程。
创建一个名为 myArray 的数组，其中包含 4 个整数。
创建一个名为 item 的整数变量。
使用 item 变量迭代名为 myArray 的数组中的项目。
在控制台上打印上述语句在数组中找到的项目。
For Each 循环结束。
暂停控制台窗口一段时间，等待用户采取行动关闭窗口。
main 子过程结束。
模块结束。

VB.Net 中的嵌套 For 循环

For Each 循环可以嵌套。当我们把一个 For Each 循环放在另一个 For Each 循环中时，就会发生这种情况。让我们通过一个例子来演示。

步骤 1) 创建一个新的控制台应用程序。

步骤 2) 使用以下代码

Module Module1
    Sub Main()
        Dim nums() As Integer = {12, 23, 35}
        Dim names() As String = {"Guru99", "alice", "antony"}
        For Each n As Integer In nums
            For Each st As String In names
                Console.Write(n.ToString & st & " ")
            Next
        Next
        Console.ReadKey()
    End Sub
End Module

步骤 3) 单击顶部栏中的“开始”按钮执行代码。您应该会看到以下输出

这是代码的屏幕截图：

代码解释

创建一个名为 Module1 的模块。
开始主子过程。
创建一个名为 nums 的数组，其中包含一组整数。
创建一个名为 names 的数组，其中包含一组名称。
创建一个名为 n 的变量，并使用它来迭代名为 nums 的数组中的项目。这是外部 For Each 循环。
创建一个名为 st 的变量，并使用它来迭代名为 names 的数组中的项目。这是内部 For Each 循环。
组合来自两个数组的项目。nums 数组中的每个项目都将与 names 数组中的每个项目组合。ToString 函数帮助我们将从 nums 数组读取的数字转换为字符串。“ ”在每个组合后创建一个空格。组合是通过 &（和号）实现的。
内部 For Each 循环结束。
外部 For Each 循环结束。
暂停控制台窗口，等待用户采取行动关闭它。
主子程序结束。
模块结束。

VB.Net Exit For 和 Continue For 语句

当您使用 Exit For 语句时，执行将退出 For Each … Next 循环，并将控件转移到 Next 语句之后的语句。

当您使用 Continue For 语句时，控件将转移到循环的下一次迭代。让我们通过一个例子来演示。

步骤 1) 首先创建一个新的控制台应用程序。

步骤 2) 使用以下代码

Module Module1
    Sub Main()
        Dim nums() As Integer =
    {10, 12, 14, 17, 19, 23, 26, 31, 33, 37, 40, 48}
        For Each n As Integer In nums
            If n >= 17 And n <= 25 Then
                Continue For
            End If
            Console.Write(n.ToString & " ")
            If n = 37 Then
                Exit For
            End If
        Next
        Console.ReadKey()
    End Sub
End Module

步骤 3) 通过单击顶部栏中的“开始”按钮运行代码。您应该会看到以下结果

这是代码的屏幕截图：

代码解释

创建一个名为 module1 的模块。
开始主子过程。
创建一个名为 nums 的数组，其中包含一组整数。
创建一个名为 n 的变量，然后我们使用它来迭代 nums 数组中包含的元素。
使用 If…Then 条件检查变量 n 的值。如果该值在 17（含 17）和 25（含 25）之间，则迭代将跳到数组中的下一个项目。
上述值的跳过在此处完成。这是执行跳过的必需语句。这意味着 For Each 循环不会为跳过的项目运行。
结束 If 条件。
在控制台上打印从数组中获取的值。ToString 函数帮助我们将值从数字转换为字符串。“ ”将在每个打印值后创建一个空格。
使用 If…Then 条件检查迭代变量 n 的值是否为 37。
当上述条件为真时，即 n=37 时，退出 For Each 循环。这意味着数组项的迭代将停止。
结束上述 If 条件。
For … Each 语句结束。
暂停控制台窗口，等待用户采取行动关闭它。
main 子过程结束。
模块结束。

摘要

For Each 语句用于迭代集合或数组中包含的每个项目。
在开发过程中，您可以将 For Each 语句与 Exit For 和 Continue For 语句结合使用，以控制迭代的执行方式。

VB.Net For Each 循环

VB.Net For Each… Next 语句的语法

如何在 VB.Net 中使用 For Each 循环

VB.Net 中的嵌套 For 循环

相关文章

VB.Net Exit For 和 Continue For 语句

摘要

订阅新闻通讯