Конструкции управления

Зачастую в определенном месте программы необходимо выполнять те или иные операторы, в зависимости от некоторых условий. Эта возможность в VB реализуется при помощи управляющих конструкций, которые состоят из структур принятия решений и циклов.

Конструкция If…..Then

If условие Then оператор[Else орератор]

Когда результатом проверки условия является True(истина), то выполняется оператор, находящийся после служебного слова Then, если False(ложь), то выполняется оператор, следующий за ключевым словом Else, если оно отсутствует, то следующий по порядку оператор.

Если при выполнении условия требуется выполнить не один, а несколько операторов, то используется такая конструкция:

If условие Then

Операторы

End If

При необходимости выполнения того или иного оператора (или блока операторов) в зависимости от результата проверки определенного условия, используют такую конструкцию:

If условие Then

Операторы 1

Else

Операторы 2

End If

Или

If условие Then

Операторы 1

Else: Операторы 2

End If

Если определенное действие (набор действий) нужно выполнять после проверки не одного, а нескольких условий, на языке VB следует использовать такую конструкцию:

If условие Then

Операторы 1

Else If условие 2 Then

Операторы 2

.

.

[Else

операторы N]

End If

Конструкция: IIf(условие, значение1, значение2)

Возвращает одно из двух значений, в зависимости от проверяемого условия.

Например:

Dim intA As Integer, StrA As String

intA=6

strA=IIf(intA Mod 2 = 0, “Четное”, “Нечетное”)

Конструкция Select Case

Когда существует несколько операторов (или блоков операторов), которые необходимо выполнять в зависимости от истинности того или иного условия, то запись конструкции If …Then окажется достаточно громоздкой и следует использовать структуру:

Select Case переменная

Case значение 1

Операторы1

Case значение 2

Операторы 2

.

[Case Else

операторы N]

End Select

Если переменная содержит значение1, то выполняется блок операторов 1 и т.д.

Например:

Select Case x

Case 1

x=x+1

Case 2, 3, 4

x=10

Case Else

x=20

End Select


Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:  



double arrow
Сейчас читают про: