Условные операторы

Операторы в программе-обработчике событий выполняются в той последовательности, в которой они записаны. Однако достаточно часто требуется изменить порядок выполнения операторов в зависимости от выполнения (или невыполнения) определенного условия.

Выбор одного из альтернативных путей работы программного кода в зависимости от результата проверки какого-либо условия (логического выражения) обеспечивает условный оператор If.

Условный оператор If существует в двух формах: полной и сокращенной, и схематично может быть изображен следующим образом:

Сокращенная форма	Полная форма

Условный оператор в VB может иметь однострочную (простую) и многострочную (блочную) структуру. Однострочная структура имеет следующий синтаксис:

Сокращенная форма

If Условие Then Оператор

Полная форма

If Условие Then Оператор_1 Else Оператор_2

Выполнение оператора заключается в следующем: если Условие имеет значение True, то выполняется оператор после ключевого слова Then, а если оно имеет значение False, то выполняется оператор, следующий за ключевым словом Else, если таковой имеется. Например,

If a= 7 Then Beep

If x < 9 Then Print ”False!” Else Print ”True!”

Многострочная структура условного оператора имеет следующий синтаксис:

Сокращенная форма	Полная форма
If Условие Then Оператор_1 Оператор_2 ...... End if	If Условие Then Операторы для обработки истинного условия Else Операторы для обработки ложного условия End if

Замечание. Ключевое слово End if обозначает конец многострочной конструкции.

Команда if может проверить только одно условие. Если необходимо осуществить переход управления в зависимости от результатов проверки нескольких условий, то их можно задать с помощью оператора Elseif. Оно будет анализироваться только в том случае, если предыдущее условие ложно. Например:

If x>0 Then

Label1.Caption=”Значение х положительно”

Elseif x=0 Then

Label1.Caption=”Значение х равно нулю”

Else

Label1.Caption=”Значение х отрицательно”

End If

Пример1.

Фрагмент программы	Что на экране
A=10 If A>2 Then Print “!!!” Else Print “!”	!!!
A=4 If A>5 Then A=A+10 Else A=A-1 Print A	3
S=6 If S-8<>0 Then S=S+10 Print S	16
S=6 If S<0 Then S=S+10 S=S+1 Print S

Пример2.

If а<>4 Then

а=а+10

b=3

Print b

End If

Пример3.

If а<>4 Then

а=а+10

b=3

Print b

Else

b=0

a=b+5

c=6

End If

Пример4.

Задача. В компьютер вводится целое число а. Если а<0, то компьютер должен сказать «Число отрицательно», если а=0, то компьютер должен сказать «Вы ввели нуль», если а>100, то компьютер должен сказать «Число большое», в остальных случаях компьютер ничего недолжен говорить, а только вычислить и напечатать квадрат числа.

Программа:

Private Sub Command1_Click()

a=InputBox(“Введите число”)

If а<0 Then

MsgBox(“Число отрицательно ”) ‘ MsgBox - Выводит окно сообщения

ElseIf а=0 Then

MsgBox(“Вы ввели нуль ”)

ElseIf а>100 Then

MsgBox(“Число большое ”)

Else

Print a*a

End If

MsgBox(“До свидания! ”)

End Sub

Оператор выбора Select … Case

Оператор выбора позволяет обрабатывать в программе несколько условий и аналогичен блоку конструкций if...Then...Else. Используется он для частичного облегчения программирования задач, в которых содержится большое число различных проверок. Его также удобно применять тогда, когда выполнение одного из многочисленных действий зависит от значения какой-либо переменной.

Синтаксис оператора выбора Select … Case:

Select Case Выражение

Case Диапазон значений _1

Операторы, выполняемые при попадании Выражения в Диапазон значений _1

Case Диапазон значений _2

Операторы, выполняемые при попадании Выражения в Диапазон значений _2

...

Case Диапазон значений _N

Операторы, выполняемые при попадании Выражения в Диапазон значений _2

[ Case Else

Операторы, выполняемые при непопадании ни в один из указанных

диапазонов]