End Sub. Такой оператор удобен, когда в зависимости от выполнения условия в каждой ветви необходимо выполнить блоки операторов

End If

Else

End If

Такой оператор удобен, когда в зависимости от выполнения условия в каждой ветви необходимо выполнить блоки операторов. Блочная структура оператора If обязательно должна заканчиваться ключевыми словами End If.

Любой из операторов блоков операторов может, в свою очередь, быть условным оператором, т.е. условные операторы могут быть вложенными. В этом случае требуется осуществлять переход управления в зависимости от результатов проверки нескольких условий.

Дополнительные условия можно задавать с помощью оператора ElseIf.

Пример 1:

Private Sub ПУСК_ Click()

Dim X As Single

X= InputBox (“Введите значение X”)

Txt. Text = Х

If X>0 Then

TxtРез. Text = X

Lbl1. Caption = “ Х - положительное”

ElseIf X = 0 Then

TxtРез. Text = X

Lbl1. Caption = “Значение Х равно 0”

TxtРез. Text = X

Lbl1. Caption = “ Х - отрицательное”

Рис. 6.1. Экранная форма, Программный код

Дата добавления: 2014-01-04