Исполняемые операторы
Обновлен: Ноябрь 2007
Исполняемый оператор выполняет действия. Он может вызвать процедуру, переход на другое место в коде, цикл по нескольким инструкциям или вычислить значение выражения. Оператор присваивания является особым случаем исполняемого оператора.
В следующем примере используется управляющая структура 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, то вызывается метод spinClockwise из aWidget. Если значение равно False, то вызывается метод spinCounterClockwise из aWidget. Управляющая структура If...Then...Else завершается End If.
Цикл For...Next в каждом блоке вызывает соответствующий метод определенное количество раз, равное значению параметра revolutions.