3. Практичні завдання
Перепишіть вкладену блочну структуру IF у одно блочну структуру IF:
If Name = “Інформатика” Then
If Value >=91 Then
Debug.Print “Оцінка – відмінно!!!”
End If
End If
Розробити алгоритм, що складається з двох процедур, для обчислення y. Значення х береться з клітини С2 робочого листа, а функція F(x) розраховується в іншій процедурі за формулою:
Результат відобразити в клітинці сусідній із значенням х.
Розробити алгоритм, що складається з двох процедур.
Перша:
для розв’язання рівняння: ax2+bx+c=0,
a,b
Z.
Друга: для передачі коефіцієнтів – цілих чисел, безпосередньо через діалогове вікно шляхом введення значень з клавіатури.
Результат відобразити у вікні відладки.
У разі можливої помилки вивести повідомлення у вікні повідомлень.
Розробити алгоритм, що складається з процедури та функції.
Функція: для обчислення ідеальної ваги m людини за формулою:
.
Процедура отримує зріст людини а в см, вік b в роках та стать, безпосередньо через діалогове вікно.
Результат (ідеальну вагу людини) відобразити у вікні повідомлень.
Цикли і структури, що повторюються
Поняття циклічних обчислювальних процесів було розкрито в темі 1. Характерністю цих процесів є повторення дій.
Існує три типи циклів: обчислювальні, логічні і об’єктного типу.
1. Вживання обчислюваних циклів
Обчислювальні цикли призначені для повторення одного блоку коду заданої кількості раз. Обчислювальний цикл застосовується у тих випадках, коли заздалегідь відомо (можливо визначити), скільки разів потрібно виконати блок коду.
Наприклад,
Коли потрібно форматувати десять послідовних клітин таблиці, то можна застосувати обчислювальний цикл, дозволяючи по черзі змінювати формат, значення кожної із клітин;
Коли потрібно виконати блок дій для змінної X, що змінюється від значення a до значення b з кроком прирощення h, тобто для
та 
.
1.1. Циклічна структура for – next
Обчислювальні цикли реалізуються в Visual Basic за допомогою циклічної структури FOR – NEXT. Обчислювальний цикл може перериватися упереджено за допомогою оператору EXIT FOR.
Синтаксис:
FOR змінна_циклу = початок TO кінець STEP [крок]
БЛОК
[EXIT FOR]
БЛОК
NEXT змінна_циклу
В даному випадку змінна_циклу є ім’ям змінної, яка дозволяє підрахувати кількість повторів циклу. Змінні початок та кінець визначають початкове та останнє значення для змінної_циклу. Крок – величина нарощування змінної_циклу після кожного виконання перед новим повтором. Якщо значення кроку дорівнює одиниці, то його можна опускати (не вказувати). Квадратні дужки вказують на необов’язковий елемент структури.
Коли в програмі зустрічається цикл FOR – NEXT, змінна_циклу отримує значення початок, потім виконується блок коду до оператору NEXT. Далі змінна_циклу змінюється на значення крок и порівнюється із значенням кінець. Якщо значення змінна_циклу більше ніж значення кінець, цикл припиняє дію і передається керування до оператору, що знаходиться після оператора NEXT. Якщо значення змінна_циклу менше або дорівнює значенню кінець, то блок коду циклу виконується ще раз. І так продовжується до тих пір поки значення змінна_циклу не стане більше значення кінець.
Коли в ході виконання блоку коду циклу зустрічається оператор EXIT FOR, цикл негайно припиняє свою роботу і передає управління до оператору, що знаходиться після оператора NEXT.
Приклад:
Код циклу для десятикратної подачі сигналу:
FOR I = 1 TO 10
BEEP ‘ сигнал
NEXT I ‘ I = I + 1 та І ≤ 10
Приклад:
Побудувати
таблицю з десяти рядків в стовпцях А,
В, С
(А - № з/п, В - значення х
задане користувачем через вікно
повідомлення,
С – значення
).
Sub Table ()
Dim x, y As Single, i As Integer ‘ змінна i відповідає за номер рядка у таблиці
Range(“A1”).Value = “№ з/п” ‘ назва першого стовпчика у таблиці
Range(“B1”).Value = “Х” ‘ назва другого стовпчика у таблиці
Range(“C1”).Value = “У(х)” ‘ назва третього стовпчика у таблиці
For i = 2 To 11 ‘ заповнення таблиці починаючи з рядка під номером 2
x = Val(InputBox(“x=”)) ‘ введення значення х
y = Sqr(Abs(x – x ^ 2)) ‘ розрахунок значення у за формулою для введеного х
Cells(i, 1).Value = i-1 ‘ заповнення елементу першого стовпчика
Cells(i, 2).Value = x ‘ заповнення елементу другого стовпчика (значення х)
Cells(i, 3).Value = y ‘ заповнення елементу третього стовпчика (значення у)
Next i ‘ перехід до наступного значення і (нового рядка таблиці), i=i+1 та і ≤11
Range(“A1:C1”).Select ‘ вибір шапки створеної таблиці, для форматування
Selection.HorizontalAlignment = xlCenter ‘ розташування по центру клітини
With Selection.Font ‘ форматування шрифту для вибраного об’єкту
.Name = “Arial Cyr” ‘ шрифт – Arial Cyr
.FontStyle = “напівжирний” ‘ стиль шрифту – «напівжирний»
.Size = 12 ‘ розмір шрифту – 12
.ColorIndex = 5 ‘ колір шрифту – синій (5 — код кольору)
End With
Range(“A15”).Select ‘ перехід до клітини A15
End Sub
Примітка. !!! Крапка в останньому блоці процедури на початку рядка вказує на застосування формату для вибраного діапазону клітин.
Результат роботи програми відображається на поточному аркуші Лист2 книги Excel Книга1 (рисунок 8.1)
|
Рисунок 8.1. Результат роботи процедури Table |
