IBM Lotus Symphony


For...Next 语句 [运行时]

按照指定的次数重复执行 For...Next 块中的语句。

语法:

For counter=start To end [Step step]

语句块

[Exit For]

语句块

Next [counter]

变量:

Counter:其初始值为等号右边的值(start)的循环计数器。它只能为数字变量。循环计数器会根据 step 变量来递增或递减,直到达到 end 对应的值。

start:数字变量,用于定义循环开始时的初始值。

end:数字变量,用于定义循环结束时的终止值。

step:设置循环计数器递增或递减的步长值。如果不指定 step,那么循环计数器的增量为 1。在这种情况下,end 必须大于 start。如果要递减计数器,那么 end 必须小于 start,并且必须将 step 指定为负值。

For...Next 循环根据参数指定的次数重复执行循环中所有的语句。

在计数器变量的值递减时,Lotus® Symphony™ Basic 会检查是否到达 end 对应的值。一旦计数器到达 end 对应的值,循环就会自动结束。

可以嵌套 For...Next 语句。如果 next 语句后没有指定变量,那么 Next 将自动指向最近的 For 语句。

当将增量指定为 0 时,会一直重复执行 Fornext 之间的语句。

当计数器变量的值递减时,Lotus Symphony Basic 会检查是否发生了溢出或下溢。当计数器大于 end(step 为正值)或小于 end(step 为负值)时,循环结束。

Exit For 语句用于无条件地退出循环。此语句必须位于 For...Next 循环内。If...Then 语句用于测试退出条件,如下所示:

For...

语句

If condition = True Then Exit For

语句

下一个

注:在嵌套的 For...Next 循环中,如果使用 Exit For 无条件退出循环,将仅退出一级循环。

示例

在下面的示例中,将使用两个嵌套的循环对含有 10 个元素的字符串数组(sEntry())进行排序,这 10 个元素已被填充为不同的内容:

Sub ExampleSort

Dim sEntry(9) As String

Dim iCount As Integer

Dim iCount2 As Integer

Dim sTemp As String

sEntry(0) = "Jerry"

sEntry(1) = "Patty"

sEntry(2) = "Kurt"

sEntry(3) = "Thomas"

sEntry(4) = "Michael"

sEntry(5) = "David"

sEntry(6) = "Cathy"

sEntry(7) = "Susie"

sEntry(8) = "Edward"

sEntry(9) = "Christine"

For iCount = 0 To 9

For iCount2 = iCount + 1 To 9

If sEntry(iCount) > sEntry(iCount2) Then

sTemp = sEntry(iCount)

sEntry(iCount) = sEntry(iCount2)

sEntry(iCount2) = sTemp

Loop Until sFile = ""

Next iCount2

Next iCount

For iCount = 0 To 9

Print sEntry(iCount)

Next iCount

End Sub


产品反馈 | 其他文档 | 商标