実行可能なステートメント
更新 : 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 パラメータの値の回数だけ呼び出します。