For...Next 语句

2023-11-16 05:26| 来源: 网络整理| 查看: 265

For...Next 语句 (Visual Basic) 项目 04/07/2023

按指定次数重复一组语句。

语法 For counter [ As datatype ] = start To end [ Step step ] [ statements ] [ Continue For ] [ statements ] [ Exit For ] [ statements ] Next [ counter ] 组成部分组成部分说明 counter 在 For 语句中是必需的。数值变量。循环的控件变量。有关更多信息，请参见本主题中后面的反参数。 datatype 可选。 counter 的数据类型。有关更多信息，请参见本主题中后面的反参数。 start 必需。数值表达式。 counter 的初始值。 end 必需。数值表达式。 counter 最终值。 step 可选。数值表达式。每次通过循环递增 counter 的量。 statements 可选。在 For 和 Next 之间运行指定次数的一个或多个语句。 Continue For 可选。将控制转移到下一个循环迭代。 Exit For 可选。将控制转移到 For 循环外。 Next 必需。终止 For 循环的定义。

注意

此语句中使用 To 关键字来指定计数器的范围。还可以在 Select...Case 语句和数组声明中使用此关键字。有关数组声明的信息，请参阅 Dim Statement。

简单示例

若要多次重复一组语句，请使用 For...Next 结构。

在下面的示例中，index 变量以值 1 开头，并随循环的每次迭代递增，在 index 的值达到 5 后结束。

For index As Integer = 1 To 5 Debug.Write(index.ToString & " ") Next Debug.WriteLine("") ' Output: 1 2 3 4 5

在下面的示例中，number 变量以值 2 开头，并随循环的每次迭代减少 0.25，在 number 的值达到 0 后结束。 -.25 的 Step 参数在循环每次迭代时将值减少 0.25。

For number As Double = 2 To 0 Step -0.25 Debug.Write(number.ToString & " ") Next Debug.WriteLine("") ' Output: 2 1.75 1.5 1.25 1 0.75 0.5 0.25 0

提示

如果事先不知道在循环中运行语句多少次，While...End While 语句或 Do...Loop 语句就很有效。但是，当预期运行循环特定次数时，For...Next 循环是更好的选择。首次输入循环时，可确定迭代次数。

嵌套循环

可以通过将 1 个循环放入另一个循环来嵌套 For 循环。以下示例演示具有不同的步骤值的嵌套 For...Next 结构。外部循环为循环的每次迭代创建一个字符串。对于循环的每次迭代，内部循环都会缩小循环计数器变量。

For indexA = 1 To 3 ' Create a new StringBuilder, which is used ' to efficiently build strings. Dim sb As New System.Text.StringBuilder() ' Append to the StringBuilder every third number ' from 20 to 1 descending. For indexB = 20 To 1 Step -3 sb.Append(indexB.ToString) sb.Append(" ") Next indexB ' Display the line. Debug.WriteLine(sb.ToString) Next indexA ' Output: ' 20 17 14 11 8 5 2 ' 20 17 14 11 8 5 2 ' 20 17 14 11 8 5 2

嵌套循环时，每个循环必须具有唯一的 counter 变量。

还可以在彼此之间嵌套不同种类的控制结构。有关详细信息，请参阅嵌套控件结构。

退出并继续

语句 Exit For 会立即退出 For...Next 循环立即将控件传递给 Next 语句后面的语句。

Continue For 语句立即将控制转移到循环的下一次迭代。有关详细信息，请参阅 Continue 语句。

下面的示例阐释了 Continue For 和 Exit For 语句的用法。

For index As Integer = 1 To 100000 ' If index is between 5 and 7, continue ' with the next iteration. If index >= 5 AndAlso index =(ByVal op1 As Distance, ByVal op2 As Distance) As Boolean Return (op1.Number >= op2.Number) End Operator Public Shared Operator

【本文地址】

公司简介

联系我们