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

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