可执行语句
更新:2007 年 11 月
可执行语句执行一项操作。它调用过程、分支到代码中的另一个位置、循环执行多个语句中,或计算表达式的值。赋值语句是可执行语句的一种特殊情况。
下面的示例使用 If...Then...Else 控制结构根据变量的值运行不同的代码块。在每个代码块内,For...Next 循环将运行指定的次数。
Public Sub startWidget(ByVal aWidget As widget, _
ByVal clockwise As Boolean, ByVal revolutions As Integer)
Dim counter As Integer
If clockwise = True Then
For counter = 1 To revolutions
aWidget.spinClockwise()
Next counter
Else
For counter = 1 To revolutions
aWidget.spinCounterClockwise()
Next counter
End If
End Sub
前面示例中的 If 语句检查参数 clockwise 的值。如果该值为 True,它将调用 aWidget 的 spinClockwise 方法。如果该值为 False,它将调用 aWidget 的 spinCounterClockwise 方法。If...Then...Else 控制结构以 End If 结尾。
每个块内的 For...Next 循环将调用相应的方法一定的次数(与 revolutions 参数的值相等)。