• Гідрологія і Гідрометрія
• Господарське право
• Економіка будівництва
• Економіка природокористування
• Економічна теорія
• Земельне право
• Історія України
• Кримінально виконавче право
• Медична радіологія
• Методи аналізу
• Міжнародне приватне право
• Міжнародний маркетинг
• Основи екології
• Предмет Політологія
• Соціальне страхування
• Технічні засоби організації дорожнього руху
• Товарознавство продовольчих товарів

Тлумачний словник
Авто
Автоматизація
Архітектура
Астрономія
Аудит
Біологія
Будівництво
Бухгалтерія
Винахідництво
Виробництво
Військова справа
Генетика
Географія
Геологія
Господарство
Держава
Дім
Екологія
Економетрика
Економіка
Електроніка
Журналістика та ЗМІ
Зв'язок
Іноземні мови
Інформатика
Історія
Комп'ютери
Креслення
Кулінарія
Культура
Лексикологія
Література
Логіка
Маркетинг
Математика
Машинобудування
Медицина
Менеджмент
Метали і Зварювання
Механіка
Мистецтво
Музика
Населення
Освіта
Охорона безпеки життя
Охорона Праці
Педагогіка
Політика
Право
Програмування
Промисловість
Психологія
Радіо
Регилия
Соціологія
Спорт
Стандартизація
Технології
Торгівля
Туризм
Фізика
Фізіологія
Філософія
Фінанси
Хімія
Юриспунденкция

Sub Разв1()

Dim a As Single, b As Single, c As Single

a = Val (InputBox("Введіть значення а"))

b = Val (InputBox("Введіть значення b"))

c = Val (InputBox("Введіть значення c"))

If a < 0 then a=a^2

If b < 0 then b=b^2

If c < 0 then c=c^2

MsgBox “a=” & a & “ b=” & b & “ c=” & c

End Sub

2) Оператор If...Then...Else.

Синтаксис оператора:

If умова Then

Блок операторів для значення true

Else

Блок операторів для значення false

End If

Приклад 2. Знайти розмір комісійних залежно від суми продажів за наступними правилами: якщо сума продажів (s) більше 15000, то комісійні (c) установлюються на рівні 8 відсотків. У протилежному випадку - 5 відсотків

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 "Тепер можна продовжувати"

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

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

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

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

а) Do While умова

Loop

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

б) Do Until умова

Loop

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

в) Do

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

Переглядів: 479