Зміст звіту по роботі:

1. Назва роботи.

2. Постановка задачі.

3. Теоретична підготовка.

4. Опис виконаної роботи та отриманих результатів по кожному з пунктів інструкції.

5. Висновки.

6. Список використаних джерел.

7. Зберегти звіт у власну папку з ім’ям „Прізвище_24.doc”.

8. Підготуватися до захисту роботи у викладача.

Лабораторна робота № 25 програмування алгоритмів структури, що розгалужується

Мета роботи:

Вивчення складу та призначення елементів мови програмування 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