Для чого потрібна процедура Function?
Отже,
функція. Що це таке? Функція виконує службове дію, наприклад
обчислення, і повертає значення. Викликати функцію можна, написавши її ім'я та
передавши їй аргументи, в потрібному місці вашої програми. Чим же корисна функція?
Зараз поясню на дуже простому прикладі! Наприклад, Ви пишіть простеньку
програму, яка обчислює середнє арифметичне трьох чисел, потім множить
отриманий результат на кожне число і забирає їх суму. Неважливо навіщо вам
така програма, це ж приклад ;-). Ось вона (пишемо в модулі):
Sub
Main ()
Dim
a As Integer оголошуємо змінну для
першого числа
Dim
b As Integer оголошуємо змінну для
другого числа
Dim
c As Integer оголошуємо змінну для
третього числа
a
= InputBox ( "Введіть перше число") отримуємо перше число
b
= InputBox ( "Введіть друге число") отримуємо друге число
c
= InputBox ( "Введіть третє число") отримуємо третє число
проробляємо
потрібну операцію над числами
виводимо
результат на екран
MsgBox ((((( a + b + c)/3) * a) *
b) * c) - (a + b + c)
End
Sub
Начебто
б все нормально. А тепер уявіть собі, що програма почала шириться й
формулою доводиться користуватися з різних місць програми і Ви повинні тому
її колом писати 8:-O!!!
Так,
негарно виходить ... Для цього можна скористатися функцією, яка буде
мати цю формулу і тільки чекати свого виклику і ваших чисел ;-)! Напишемо таку
функцію і назвемо її, наприклад FuncX (поза межами підпрограми Sub): оголошуємо функцію і ставимо що передаються
аргументи
Public Function FuncX (a, b, c) As
Integer прісваевает собі значення формули
FuncX = ((((( a + b + c)/3) * a) *
b) * c) - (a + b + c)
End
Function
Є!
А тепер Ви можете викликати функцію з будь-якого місця вашої програми, написав її
ім'я та передав три числа a, b і з:
FuncX (a, b, c) або FuncX (4, 5, 6)
і
не треба більше цієї довгої формули! Замість
((((( a + b + c)/3) * a) * b) * c)
- (A + b + c)
Тепер
можна писати
FuncX (a,
b, c)
Неправда
це зручніше? Сподіваюся я пояснив зрозуміло;)?
Примітка:
передаються значення функції змінюються! Напрмер:
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 - передаються
значення. Але функція це стандартна.
Список літератури
Для
підготовки даної роботи були використані матеріали з сайту http://visualprogs.narod.ru/
