第3章 节 VB.NET快速参考 《Web高级程序设计教程》电子教案.pptVIP

可以选择在 Next 语句中指定 counter。这提高了程序的可读性。必须指定与 For 语句中出现的变量相同的变量。 下面的过程将某数组的所有元素都预设为 128。For 语句指定计数器变量 I 及其起始和结束值。Next 语句按 1 递增计数器，因为未提供 step。 Sub Preset(ByRef A() As Integer) Dim I As Integer For I = 1 To UBound(A) A(I) = 128 Next I End Sub 在循环开始前，仅计算一次迭代值 start、end 和 step。如果语句块更改 end 或 step，这些更改不影响循环的迭代。在前面的示例中，仅当第一次执行 For 语句时调用 UBound 函数。如果语句块随后更改了数组 A 的长度，For 循环将仍使用原始长度作为结束值，因为它没有再次调用 UBound。 递增和递减计数器变量 使用 Step 关键字，可按指定的值递增或递减计数器。在下面的示例中，计数器变量 J 每次循环重复时递增 2。循环结束后，Total 为 2、4、6、8 和 10 的总和 Sub TwosTotal() Dim J, Total As Integer For J = 2 To 10 Step 2 Total = Total + J Next J End Sub 若要减少计数器变量，可使用负的 Step 值。这样做之后，应指定小于起始值的结束值。在下面的示例中，计数器变量 N 每次循环重复时减2。循环结束后，Total 为 16、14、12、10、8、6 和 4 的总和。 Sub NewTotal() Dim N, Total As Integer For N = 16 To 4 Step -2 Total = Total + N Next N End Sub For语句可在计数器超过其结束值之前退出 For...Next 循环。可以使用 Exit For 语句在计数器超过其结束值之前退出 For...Next 循环。例如，如果检测到使继续迭代不必要或不可能的条件（如错误值或终止请求），则可能需要退出循环。而且，如果在 Try...Catch...Finally 中捕获异常，则可以在 Finally 块的结尾使用 Exit For。 2. For Each...Next For Each...Next 循环类似于 For...Next 循环，但它为集合中的每个元素执行语句块，而不是执行指定次数。语法如下所示： For Each elementvariable In collection 被执行的语句块 Next [ elementvariable ] collection 的元素可以是任何数据类型。elementvariable 的数据类型必须是集合的每个元素都可以转换为的数据类型。 对于循环的每次迭代，Visual Basic 将变量 elementvariable 设置为集合中的元素之一，然后执行语句块。当为集合中的所有元素都分配给 elementvariable 后，For Each 循环终止，控制传递给 Next 语句后面的语句。 可以选择在 Next 语句中指定元素变量。这提高了程序的可读性。必须指定与出现在 For Each 语句中的变量相同的变量。 因为可将数组实现为集合，所以可使用 For Each...Next 循环循环访问数组。下面的过程将某数组的所有元素都预设为 128： Sub Preset(ByRef A() As Integer) Dim Elt As Integer For Each Elt In A Elt = 128 Next Elt End Sub 3. Do语句 可使用 Do...Loop 语句将语句块执行不确定的次数，具体取决于条件的 Boolean 值。可以在条件为 True 时或者在条件变为 True 之前一直重复语句。条件通常从两个值的比较得到，但它可以是任何计算为 Boolean 值（True 或 False）的表达式。这包括已转换为 Boolean 的其他数据类型（如 numeric 类型）的值。 （1）当条件为 True 时重复执行语句 使用 While 关键字检查 Do 循环中的条件有两种方法。可以在进入循环前检查条件，或在循环至少运行一次后检查条件。在条件保持为 True 时循环会继续下去。 在下面的示例中，CheckWhileFirst 过程在进入循环前先测试条件。如果 Number 已被初始化为 6 而不是 10，则循环中的语句永远不会运