For Next 循环

17 Mar 2025 | 5 分钟阅读

For Next 循环 用于重复执行一段代码或一个代码块，直到满足给定条件。当我们知道一个代码块必须执行多少次时， For 循环在这种情况下非常有用。在 VB.NET 中，For 循环也称为 For Next 循环。

语法

For variable_name As [ DataType ] = start To end [ Step step ]
[ Statements to be executed ]
Next

让我们详细了解 For Next 循环。

For：它是定义开头出现的关键字。
variable_name：它是 For 循环语句中需要的变量名。变量的值决定何时从 For-Next 循环退出，并且该值只能是数字。
[数据类型]：它表示 variable_name 的数据类型。
start To end：start 和 end 是两个重要的参数，表示 variable_name 的初始值和最终值。这些参数在执行开始时非常有用，变量的初始值由 start 设置。在每次重复完成之前，将变量的当前值与结束值进行比较。如果变量的值小于结束值，则执行将继续，直到变量的当前值大于结束值。如果值超过了结束值，则循环终止。
Step：step 参数用于确定程序中每次迭代后变量的 counter 值增加或减少的量。如果未指定 counter 值；它使用 1 作为默认值。
语句：语句可以是单个语句或语句组，它们在循环中每次迭代完成期间执行。
Next：在 VB.NET 中，Next 是一个关键字，表示 For 循环的结尾。

For Next 循环的流程图

以下流程图表示 VB.NET 编程语言中 For Next 循环的功能。

在上面的流程图中，第一步是用起始值初始化变量名。然后，将变量的值与 end 表达式或值进行比较。如果条件为真，则控制进入循环体并执行语句。之后，变量的值将由编译器自动递增。在每次迭代完成后，变量的当前值将再次与结束表达式进行比较。如果条件不为真，则控制退出循环。

示例 1. 编写一个简单的程序，使用 For Next 循环打印从 1 到 10 的数字。

Number.vb

Imports System
Module Number
    Sub Main()
        ' It is a simple print statement, and 'vbCrLf' is used to jump in the next line.
        Console.Write(" The number starts from 1 to 10 " & vbCrLf)
        ' declare and initialize variable i
        For i As Integer = 1 To 10 Step 1
            ' if the condition is true, the following statement will be executed
            Console.WriteLine(" Number is {0} ", i)
            ' after completion of each iteration, next will update the variable counter
        Next
        Console.WriteLine(" Press any key to exit... ")
        Console.ReadKey()
    End Sub
End Module

输出

在上面的例子中，我们用初始值 1 初始化了一个整数变量 i。 For 循环将持续执行其主体，直到 i 的值小于或等于 10。每次迭代后，i 的值都会自动增加 'Step 1'。如果 i 的值达到 10，循环将终止，控制权转移到 Main() 函数。

此外，我们可以更改 For Next 循环中的 Step。编写以下程序以跳过数字 2。

Number.vb

Imports System
Module Number
    Sub Main()
        ' declaration of variable i
        Dim i As Integer
        Console.Write(" Skip one number at the completion of each iteration in between 1 to 10 " & vbCrLf)
        ' initialize i to 1 and declare Step to 2 for skipping a number
        For i = 1 To 10 Step 2
            ' if condition is true, it skips one number
            Console.WriteLine(" Number is {0} ", i)
            ' after completion of each iteration, next will update the variable counter to step 2
        Next
        Console.WriteLine(" Press any key to exit... ")
        Console.ReadKey()
    End Sub
End Module 

输出

正如我们在上面的输出中看到的，变量 i 的值初始化为 1，并且变量 i 的值在每次迭代的循环中被 'Step 2'跳过，以打印从 1 到 10 的跳过数字。

示例 2：编写一个简单的程序以在 VB.NET 中打印表格。

Table.vb

Imports System
Module Table
    Sub Main()
        'declaration of i and num variable
        Dim i, num As Integer
        Console.WriteLine(" Enter any number to print the table")
        num = Console.ReadLine() ' accept a number from the user
        Console.WriteLine(" Table of " & num)
        'define for loop condition, it automatically initialize step to 1
        For i = 1 To 10
            Console.WriteLine(num & " * " & i & " = " & i * num)
        Next
        Console.ReadKey()
    End Sub
End Module

输出

VB.NET 中的嵌套 For Next 循环

在 VB.NET 中，当我们在另一个 For Next 循环的主体中编写一个 For 循环时，它被称为嵌套 For Next 循环。

语法

For variable_name As [Data Type] = start To end [ Step step ]
	For variable_name As [Data Type] = start To end [ Step step ]
		[ inner loop statements ]
	Next
	[ Outer loop statements ]
Next

以下是 VB.NET 中嵌套 For Next 循环的示例。

Nested_loop.vb

Imports System
Module Nested_loop
    Sub Main()
        Dim i, j As Integer
        For i = 1 To 3
            'Outer loop
            Console.WriteLine(" Outer loop, i = {0}", i)
            'Console.WriteLine(vbCrLf)

            'Inner loop
            For j = 1 To 4
                Console.WriteLine(" Inner loop, j = {0}", j)
            Next
            Console.WriteLine()
        Next
        Console.WriteLine(" Press any key to exit...")
        Console.ReadKey()
    End Sub
End Module

输出

在上面的例子中，在外层循环的每次迭代中，内层循环会重复执行其整个周期，直到条件不满足。

示例 2：编写一个程序以在 VB.NET 中打印一个模式。

Pattern.vb

Imports System
Module Pattern
    Sub Main()
        Dim i, n, j As Integer
        Console.WriteLine(" Enter a number to show rows in a Pattern")
        ' take a number from user
        n = Console.ReadLine()

        'Outer loop
        For i = 1 To n
            'Inner loop
            'value of j should be less than i
            For j = 1 To i
                Console.Write(" * ")
            Next
            Console.WriteLine("")
        Next
        Console.WriteLine(" Press any key to exit...")
        Console.ReadKey()
    End Sub
End Module

输出