Для чого потрібна процедура Function?

Для чого потрібна процедура Function?

Итак, функція. Що це таке? Функція виконує службове дію, наприклад обчислення, і повертає значення. Викликати функцію можна, написавши її ім'я і передавши їй аргументи, у властивому місці вашої програми. А чим корисна функція? Зараз поясню на дуже простому прикладі! Наприклад, Ви пишіть простеньку програму, яка обчислює середнє арифметичне трьох чисел, потім множить отриманого результату кожне число і віднімає їх суму. Неважливо навіщо вам таку програму, це ж приклад ;-). Ось воно (пишемо в модулі):

Sub Main ().

Dim a As Integer оголошуємо зміну для першого числа.

Dim b As Integer оголошуємо зміну для другого числа.

Dim з As Integer оголошуємо зміну для третього числа.

a = InputBox («Запровадьте перше число ») отримуємо перше число.

b = InputBox («Запровадьте друге число ») отримуємо друге число.

c = InputBox («Запровадьте третє число ») отримуємо третє число.

проделываем потрібну операцію над числами.

выводим результат на екран.

MsgBox (((((a + b + з) / 3) * a) * b) * з) — (a + b +з).

End Sub.

Вроде б усе нормально. Нині ж представте собі, що ваша програма початку поширюється і формулою доводиться користуватися із різних місць програми розвитку й Ви повинні тому її колом писати 8:-O !!!

Да, негарно виходить… І тому можна скористатися функцією, яка мати цієї формули і чекати свого виклику та Ваших чисел ;-)! Напишемо таку функцію і назвемо її, наприклад FuncX (поза межами підпрограми Sub): оголошуємо функцію і задаём передані аргументи.

Public Function FuncX (a, b, з) As Integer присваевает собі значення формули.

FuncX = (((((a + b + з) / 3) * a) * b) * з) — (a + b + з).

End Function.

Есть! Нині ж Можете викликати функцію із будь-якої місця вашої програми, написавши її ім'я та передавши три числа a, b і з:

FuncX (a, b, з) чи FuncX (4, 5, 6).

и зайве більше на цій довгій формули! Замість.

(((((a + b + з) / 3) * a) * b) * з) — (a + b +з).

Теперь можна писати.

FuncX (a, b, з).

Неправда це зручніше? Сподіваюся я обьяснил зрозуміло ;)?

Примечание: передані значення функції змінюються! Наприклад:

Function ABC (X, Y).

ABC = (2 * X) + (2 * Y).

End Function.

Теперь X одно 2 * Х, а Y одно 2 * Y, тобто. їх значення подвоїлися. Щоб передані значення не змінювалися то дужках треба писати перед аргументом ByVal. Наприклад:

Function ABC (ByVal X, ByVal Y).

Сами того і не підозрюючи, ми часто-густо використовуємо функції. Наприклад InputBox. Дивіться:

A = InputBox (Prompt, Title).

А — це результат, возвращаемый функцією. InputBox — це функції. Prompt і Title — передані значення. Але функція це стандартна.

Список литературы

Для підготовки даної роботи було використані матеріали із сайту internet.