3 Приклад виконання
3.1 .1 Скласти графічний алгоритм та програму для визначення пори року
3
1
2
3
5
6
7
8
4
9
Рисунок 3.1 – Графічний алгоритм
3.1.3 Пояснення до графічног алгоритму
Блок 1 – початок програми;
Блок 2 – введення значення аргумента х;
Блок 3 – визначення <змінної>;
Блоки 4,5,6,7,8 –виведення назви пори року, та повідомлення "такої пори не існує";
Блок 9 – закінчення програми
3.2.1 Виконати програму Сервіс →Макрос →Редактор VBA;
3.2.2 Виконати команду Вставка →Модуль;
3.2.3 Ввести ім’я модуля Sub розгалуження_множинний_вибір()
3.2.4 Набрати текст програми
3.3 Код програми мовою VBA
Sub розгалуження_множинний_вибір()
Dim x As Integer
x = Val(InputBox("введіть число"))
Select Case x
Case 1
MsgBox ("Зима")
Case 2
MsgBox ("Весна")
Case 3
MsgBox ("Літо")
Case 4
MsgBox ("Осінь")
Case Else
MsgBox ("такої пори року не існує")
End Select
End Sub
3.5 Створений макрос привязати до графічного обєкта (Рис.3.2)
Рисунок 3.2
3.6 Результат виконання програми
Лабораторна робота № 7,8
Мета работи: застосування операторів циклу з передумовою і післяумовою
КОРОТКІ ТЕОРЕТИЧНІ ВІДОМОСТІ.
1. Оператор циклу For…, з використанням лічильника циклу
Оператор циклу For дозволяє повторяти групу операторів певну кількість раз. Синтаксис:
For лічильник_циклу = початок TO кінець [step крок]
Тіло циклу
Next [лічильник_циклу]
Тут лічильник_циклу – це числова змінна. На початку виконня циклу вона приймає значенння, яке задається числовим виразом початок. Числовий вираз кінець – задає кінцевий вираз лічильника циклу. Числовий вираз крок не обов’язково і по замовчуванню=1. Тіло циклу – це послідовність операторів які будуть виконані задану кількість раз. Якщо крок додатній, то цикл завершується, тоді коли вперше виконається умова:
лічильник_циклу > кінець
Якщо крок циклу відємний, умова його завершення така:
лічильник_циклу < кінець
Ця умова перевіряється перед початком виконання циклу, а потім – після кожного додавання кроку до лічильника циклу в операторі Next. Якщо вона виконана, управління передається на оператор, наступний за Next, якщо ні – виконуються оператори із тіла циклу. Закінчити цикл For…Next можно і за допомогою оператора Exit For. Такі оператори можуть бути розміщені в тих місцях тіла циклу, де необхідно із нього вийти не дочекавшись виконання умови завершення.
Рисунок 2.1 – Графічний алгоритм циклу з "лічильником"
Приклад
: Обчислити значення функції y=
на проміжку [0;2] з кроком 0.2
Sub цикли()
Dim x, y As Single, i, n As Byte
n = 11
x = 0
Worksheets(1).Range("a1").Value = " значення y="
Worksheets(1).Range("b1").Value = "значеня x="
For i = 2 To n + 1
y = Cos(2 * x) ^ 2
Worksheets(1).Range("a" & i).Value = y
Worksheets(1).Range("b" & i).Value = x
x = x + 0.2
Next i
End Sub