![]() |
Условная инструкция If : Then : ElseDate: 2015-10-07; view: 460. Необходимость использования инструкции If : Then : Else возникает, если имеются альтернативные пути выполнения программы; при еe использовании проводится проверка условий и в зависимости от их истинности выполняются определeнные действия. Используется простой и полный синтаксис. Простой синтаксис: If условие Then инструкция [Else инструкция] - если условие, стоящее после If истинно ( True ), то выполняется инструкция, следующая за Then, если условие ложно (False ), то выполняется инструкция, следующае за Else. Полный синтаксис: If условие 1 Then инструкция 1.[инструкция m][ElseIf условие 2 Then инструкция k] [Elseинструкция n]End IfВо втором случае синтаксиса инструкция 1 : инструкция m,: записываются на новых строчках, присутствует инструкция End If. Наличие ElseIf позволяет анализировать дополнительные условия. Добавлением нескольких инструкций ElseIf можно анализировать дополнительное количество условий. Else используется для обработки противоположных ситуаций. Если нужно проверить некоторое условие при наличии другого условия, то используются вложенные инструкции, пример: If условие 1 ThenIf условие 2 Then инструкция 1.Elseинструкция mEnd IfElseинструкция nEnd IfДля демонстрации различия синтаксиса рассмотрим пример нахождения максимального из 2-х чисел. Dim max As IntegerIf Val(txt1.Text) > Val(txt2.Text) Then max = Val(txt1.Text) Else max = Val(txt2.Text)lblMax.Caption = maxили:If Val(txt1.Text) > Val(txt2.Text) Thenmax = Val(txt1.Text)Else: max = Val(txt2.Text)End IflblMax.Caption = max |