 |
|
ПРОГРАМУВАННЯ АЛГОРИТМІВ СТРУКТУРИ, ЩО РОЗГАЛУЖУЄТЬСЯ
Мета роботи:
Вивчення складу та призначення елементів мови програмування VBA для написання коду програми, наприклад для створення функцій користувача в Excel, автоматизації діяльності, пов’язаної з розробкою різних типів документів.
Завдання:
6. Ознайомтесь із складом та змістом системного меню мови програмування VBA .
7. Вивчіть функції та призначення командних кнопок вікна управління мови програмування VBA .
8. Вивчіть склад та порядок зміни параметрів середовища мови програмування VBA .
9. Виконайте команду Сервіс/ Редактор Visual Basic. Відкриється вікно редактора Visual Basic
Виберіть у меню пункт Insert, а в ньому пункт UserForm.
Алгоритм структури, що розгалужується, – це алгоритм такого процесу, в якому його реалізація здійснюється по одному із заздалегідь передбачених (можливих) напрямів залежно від початкових умов або проміжних результатів. Кожен окремий напрям обробки інформації в такому процесі називається гілкою. Вибір гілки визначається перевіркою виконання логічної умови, що визначає властивості початкових даних або проміжних результатів. У кожному конкретному випадку процес обробки даних виконується лише по одній з гілок. Для їх реалізації використовуються оператори управління порядком виконання команд, розглянуті вище.
Приклад. Дано дійсне число x. Обчислити у.
Програма.
Sub Raz2()
Dim x, у As Double
x = Val(InputBox("Введіть x")) ‘введення значення змінної x
If x > 0 Then у = Sin(x) Else у = 2 * x
MsgBox ("Значення y=" + Str(y#))
End Sub
Приклад 1. Дано дійсне число x. Обчислити у.
Програма
Sub Raz3()
Dim x, у As Double
x = Val(InputBox("Введіть x"))
If x < 0.1 Then у = Cos(x ^ 2) Else If x > 0.1 Then у = Exp(x) Else у = x ^ 3 - 2
MsgBox ("Значення y=" + Str(y#))
End Sub
Приклад 2. Дано три числа. З’ясувати, чи існує трикутник з такими сторонами.
Програма
Sub Treug()
Dim а, b, з As Double
а = Val(InputBox("Введіть сторону а"))
b = Val(InputBox("Введіть сторону b"))
з = Val(InputBox("Введіть сторону з"))
If (а + b) > з And (b + з) > а And (а + з) > b Then MsgBox ("Трикутник існує") Else MsgBox ("Трикутник не існує") ‘оператора друкувати в одному рядку
End Sub
Приклад 3. Дано дійсне число x. Обчислити z, y, h, якщо відомо, що
Програма
Sub Raz3()
Dim x, z, у, h As Double
x = Val(InputBox("Введіть x"))
If x > 0.8 Then
z = 2 * Sin(x)
у = Log(x)+ 4 * x
h = Cos(x)
Else
If x = 0.8 Then
z = Sqr(Sin(x))
у = Cos(x ^ 2)+ x
h = 2 * x
Else
z = Abs(x - 2)
у = 2 + x ^ 2 * Sin(x)
h = 0
End If
End If
Cells(1, 1)= "x=": Cells(1, 2)= x
Cells(2, 1)= "z=": Cells(2, 2)= z
Cells(3, 1)= "y=": Cells(3, 2)= у
Cells(4, 1)= "h=": Cells(4, 2)= h
End Sub
Зміст звіту по роботі:
1. Назва роботи.
2. Постановка задачі.
3. Теоретична підготовка.
4. Опис виконаної роботи та отриманих результатів по кожному з пунктів інструкції.
5. Висновки.
6. Список використаних джерел.
7. Зберегти звіт у власну папку з ім’ям „Прізвище_25.doc”.
8. Підготуватися до захисту роботи у викладача.
ЛАБОРАТОРНА РОБОТА № 23