Доклад- Для чего нужна процедура Function
Работа добавлена на сайт samzan.net:
Для чего нужна процедура 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/
2. 121420 Univ
3. Подогреватель катод и первые несколько анодов образуют электронную пушку
4. Введение 3 Принципы организаций финансов предприятий и организации
5. Статья 43. Понятие и цели наказания 1
6. тематический план практических занятий по биологии для студентов педиатрического факультета на весенн
7. РЕФЕРАТ дисертації на здобуття наукового ступеня кандидата політичних наук КИЇВ.
8. Реферат- Основи есхатології
9. технологія виробництва продуктів тваринництва А В Т О Р Е Ф Е Р А Т дисертації на здобуття наук.html
10. Тема 1. Педагогика- предмет категории структура ПЛАН Педагогика как наука и искусство
11. Столыпинская модернизация
12. I Исторические понятия и термины 1 1 Автономия самоуправл
13. тема имеющая сложнейшую функциональную и территориально ~ производственную структуру включающую отраслев
14. а и обязанностями принять груз и доплатить провозную плату
15. Петербурге на карманные деньги На фото- Анна ПУЛЬЧЕВА Основательница сети хостелов Nrni 22летняя Анна Пу
16. Сущность издержек производства
17. водонасыщение массаг рплотностьг-см3 V ~ объем см3 VM2M1-M1p Для какого вида объема материала применяется
18. Качества которые свойственны зданию удовлетворяют жителя в том случае если они сохраняются в течение всег.html
19. Культурология как наука Сущность, структура и функции культуры
20. Тема 13 МОТИВАЦИЯ Цель лекции- знакомство студентов с сущностью понятия мотивация и основными теориям