Sub Sales1()

Dim s As Single, c As Single

s = Val(InputBox(" Введіть суму продажів"))

If s > 15000 Then c = 0.08*s Else c = 0.05*s

MsgBox " Комісійні=" & c

End Sub

Тепер приведемо програму для цього ж прикладу з використанням багаторядкового синтаксису оператора if.

Sub Sales2()

Dim s As Single, c As Single

s = Val(InputBox(" Введіть суму продажів"))

If s > 15000 Then

c = 0.08*s

Else

c = 0.05*s

End If

MsgBox " Комісійні=" & c

End Sub

4) Оператор безумовного переходу GoTo

Оператор GoTo дозволяє виконати безумовний перехід до заданого рядка. Його синтаксис:

GoTo Мітка

Мітка (ціле число або ім'я змінної) з двома крапками, яка ставиться перед рядком, до якого здійснюється перехід. Кількість міток не обмежена, але кожна повинна бути унікальної. Приведемо наступний фрагмент програми (тут міткою служить NN):

MsgBox " Даний оператор виконується"

GoTo NN

Msgbox " Даний оператор пропускається"

NN:

Msgbox " Тепер можна продовжувати"

2.12. Оператори циклу. Програмування циклічних

обчислювальних процесів

1) Оператор Do...Loop

Цей оператор має чотири варіанти синтаксису:

а) Do While умова

Loop

Якщо умова має значення True, виконуються Блок операторів до Loop. Потім управління повертається до Do While і знову перевіряється умова. Якщо умова, як і раніше, має значення True, процес повторюється. Якщо умова має значення False, виконання відновляється з операторів, що знаходяться за Loop. Цикли Do While... Loop можуть мати будь-яку глибину вкладеності.

б) Do Until умова

Loop

Перед циклом перевіряється умова. Блок операторів виконується тільки в тому випадку, якщо значення умови дорівнює False.

в) Do

Блок операторів