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 "Тепер можна продовжувати"
Оператори циклу. Програмування циклічних
Обчислювальних процесів
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.
Sub Р1()
Dim x0 As Single, xk As Single, h As Single