Лекция: 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

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

Loop While умова

Параметр умова перевіряється після однократного проходження циклу. Блок операторів виконується тільки в тому випадку, якщо умова — True. Така форма оператораDo…Loopвикористовується в тих випадках, коли виконання блоку команд необхідне як мінімум один раз.

г) Do

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

Loop Until умова

Параметр умова перевіряється після однократного проходження циклу. Блок операторів виконується тільки в тому випадку, якщо умова — False. Така форма оператораDo…Loopвикористовується в тих випадках, коли виконання блоку команд необхідне як мінімум один раз.

Приклад 1. Скласти програму табулювання функції

y=, де xÎ[x0, xk] і змінюється із кроком h.