22. Створення і вживання функцій

Функції – це процедури, що повертають результуюче значення в своєму імені.

Функція поводиться, як субпроцедура. Відмінність може використовуватися безпосередньо у формулі, як змінна.

Синтаксис:

Function ім’я_функції(аргументи) As тип

…

ім’я_функції =повертаєме_значення

End Function

Процедури на відміну від функцій не можна викликати з клітин робочого аркуша, але можна викликати усередині функцій і інших процедур.

Function Prodact_1(V1 As Single, V2 As Single) As Single ‘ значення функції Prodact_1 ‘ дійсне число з плаваючою крапкою

Prodact_1 = V1*V2 ‘ розрахунок значення функції Prodact_1, як добуток V1, V2

End Function

Можна використовувати як функцію в таблиці Excel або звертатися з процедури або іншої функції.

Sub Program_1()

DIM Result As Single, VALA As Single, VALB As Single

DIM VALC As Single, VALD As Single, VALE As Single

‘ оголошення змінних Result, VALA, VALB, VALC, VALD ,VALE типу дійсне число

VALA = 5

VALB = 7

VALC = 3

VALD = 12

VALE = 4

Debug.Print Prodact_1(3,5), Prodact_1(ValA,ValB) ‘ друк у вікні відладки

‘ значення функції Prodact_1, що розраховане за значеннями V1=3, V2=5, та ‘ значення функції Prodact_1, що розраховане за значеннями V1= ValA, V2= ValB

Debug.Print Prodact_2(ValA,ValB,ValC,ValD,ValE) ‘ друк у вікні відладки

‘ значення функції Prodact_2, що розраховане за значеннями п’яти елементів ‘ набору Values(), який складається з значень ValA,ValB,ValC,ValD,ValE

Result = Prodact_1(ValC,ValD) /2 + Prodact_2(ValA,ValB,ValC) ‘ розрахунок ‘ змінної Result за значеннями, що надає функція Prodact_1, яка приймає ‘ значеннями V1= ValС, V2= ValD, поділена на 2 та за значеннями, що надає ‘ функція Prodact_2, яка приймає значення для набору Values():ValA,ValB,ValC

Debug.Print Result ‘ друк у вікні відладки значення Result

End Sub

Function Prodact_2 (PаramArray Values()) As Single

‘функція знаходження суми елементів набору невизначеної розмірності

DIM Pr As Single

‘ оголошення змінної Pr

Pr = 0 ‘ початкове значення змінної Pr, що відповідає за значення суми

‘ набору Values()

FOR Each Element In Values() ‘ цикл для пошуку суми елементів набору Values()

Pr = Pr + Element

NEXT Element

Prodact_2= Pr ‘ привласнення Prodact_2 значення знайденої суми набору

End Function

Контрольні завдання по темі

1. Теоретичні питання

2. Тести

3. Практичні завдання

Оператори ухвалення рішень

Багато програм засновано на порівнянні двох величин і зміні послідовності виконання відповідно до результату цього порівняння. Результатом порівняння двох величин може бути : True (істина), False (похибка).

Для побудови розгалужених алгоритмів застосовуються оператори ухвалення рішень: оператор IF, Select Case, неструктурований перехід.

23.Оператор IF

Простим оператором вибору (ухвалення рішення) є оператор IF. Цей оператор має наступний синтаксис:

IF логічний_вираз THEN оператор

логічний_вираз – логічне вираження, звичайне порівняння двох величин, або формула з логічним результатом (TRUE або FALSE).

Оператор IF перевіряє значення вираження. Якщо це значення рівне TRUE, виконується оператор, якщо ж значення – FALSE, оператор не виконується, і виконується наступний оператор програми.

Оператор IF часто застосовується для перевірки діапазону, особливо, коли визначає нижній або верхній кордон.