Проверка условия — If

Условие — логическое выражение, принимающее значение True (Истина) или False (Ложь), или арифметическое выражение, для которого 0 эквивалентен False, а другие значения соответствуют True.

В зависимости от результатов проверки условия, выполняется определенный блок инструкций. Инструкция Ifимеет разновидности.

Вариант 1. Однострочный If — выполняется единственная инструкция в случае истинности условия:

If <условие> Then <инструкция>

Пример 6

Проверка значения TaxNalog, вычисление Sale, если
TaxNalog больше 0.

Фрагмент программного кода:

IF TaxNalog>0 Then Sale=Summ1*(1+TaxNalog)

Вариант 2. Блочный If — выполняется заданная последовательность инструкций в случае истинности условия:

If <условие=True> Then

<блок инструкций>

End If

Пример 7

Проверка значения TaxNalog, если значение положительное, вычисляются значения Sale и SumNalog.

Фрагмент программного кода:

IF TaxNalog>0 Then

Sale=Summ1*(1+TaxNalog)

SumNalog=SumNalog+Sale

End If

Вариант 3. Выполнение определенного блока инструкций в зависимости от условия:

If <условие=True> Then

<блок инструкций1>

Else

<блок инструкций2>

End If

Пример 8

Проверка значения TaxNalog, вычисление значения Sale в зависимости от результата проверки.

Фрагмент программного кода:

IF TaxNalog>0 Then

Sale=Summ1*(1+TaxNalog)

Else

Sale=0

End If

SumNalog=SumNalog+Sale

Вариант 4.Последовательная проверка нескольких условий:

If <условие1=True> Then

<блок инструкций 1>

ElseIf <условие2=True> Then

<блок инструкций 2>

……………

ElseIf<условиеn=True> Then

<блок инструкций n>

Else

<блок инструкций Else>

End If

Пример 9

Выполнить проверку taxnalog и выбрать алгоритм вычисления Sale.

Фрагмент программного кода:

taxnalog = InputBox("Введите ставку налога")

summ1 = InputBox("Укажите сумму")

If taxnalog < 0.12 Then

sale = summ1 * (1 + taxnalog)

ElseIf taxnalog < 0.25 Then

sale = (summ1 - 200) * (1 + taxnalog)

ElseIf taxnalog < 0.35 Then

sale = (summ1 - 500) * (1 + taxnalog)

Else sale = (summ1 - 1000) * (1 + taxnalog)

End If

MsgBox sale