Порядок виконання лабораторної роботи

Послідовність виконання роботи така ж сама як і попередньої. Спочатку створюємо форму для одержання даних від користувача та виводу результатів обчислення за алгоритмом. Потім записуємо мовою Basic всі підпрограми для обчислення за наданим алгоритмом. Далі зв'язуємо дії з елементами форми (кнопками) з підпрограмами, так щоб натискання на кнопці призвело до запуску відповідної процедури. Накінець перевіряємо роботу програми на різноманітних наборах даних.

Варіанти завдань

№ варіанта	Індивідуальне завдання
1	2
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

Лабораторна робота №4. Програмування циклічних алгоритмів

Мета роботи: Створити додаток засобами VBA для одержання вхідних даних від користувача, обчислення значень за циклічним алгоритмом та виводу результатів.

Послідовність виконання:

1. Ознайомитись з можливостями Visual Basic for Application (VBA) для запису циклічного алгоритму: операторів організації циклів For Next, Do While.

2. Намалювати блок-схему алгоритму для обчислення згідно до варіанту завдання.

3. Створити форму користувача для вводу всіх вхідних змінних, використаних в алгоритмі та виводу результатів обчислення. На формі в полі вихідних даних розташувати елемент управління ListBox для виводу у нього результатів обчислень.

4. Написати мовою VBA процедуру обчислення значень за своїм алгоритмом. В процедурі необхідно виконати ввід даних від користувача, виконати всі обчислення і вивести результати у форму.

5. Оформити та захистити звіт з лабораторної роботи, в якому навести найменування та мету виконання лабораторної роботи, завдання, послідовність створення форми користувача та процедури, текст процедури, результати обчислення та висновки.

Порядок виконання лабораторної роботи

Послідовність виконання роботи така ж сама як і попередньої. Спочатку створюємо форму для одержання даних від користувача та виводу результатів обчислення за алгоритмом. Вхідними даними є константи a та b, діапазон [X_н;X_к] для змінної x, та крок цієї змінної h. Потім записуємо мовою Basic всі підпрограми для обчислення за наданим алгоритмом. Для організації повторних обчислень необхідно використовувати цикл For Next. Результат обчислення необхідно записати в елемент управління список (ListBox). Далі зв'язуємо дії з елементами форми (кнопками) з підпрограмами, так щоб натискання на кнопці призвело до запуску відповідної процедури. На кінець перевіряємо роботу програми на різноманітних наборах даних.

Приклад процедури обчислення функції

на інтервалі [-3,1416;3,1416] з кроком 0,314 наведено далі.

Private Sub CommandButton1_Click()

Dim x As Single

Const a As Single = 0.4

Const Pi As Single = 3.1416

Dim y As Single

For x = -3.1416 To 3.1416 Step 0.314

y = a * Cos(Pi * x) * Sin(Pi * x) * Cos(3 * Pi * x)

yListBox.AddItem str$(y)

End Sub

В наведеній процедурі результати обчислення записуються до списку yListBox.