это быстро и бесплатно
Оформите заказ сейчас и получите скидку 100 руб.!
Ознакомительный фрагмент работы:
Итак, функция. Что это такое? Функция выполняет служебное действие, например вычисление, и возвращает значение. Вызвать функцию можно, написав её имя и передав ей аргументы, в нужном месте вашей программы. Чем же полезна функция? Сейчас объясню на очень простом примере! Например, Вы пишите простенькую программу, которая вычисляет среднее арифметическое трёх чисел, потом умножает полученный результат на каждое число и отнимает их сумму. Неважно зачем вам такая программа, это ведь пример ;-). Вот она (пишем в модуле):
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 - передаваемые значения. Но функция это стандартна.
Сделайте индивидуальный заказ на нашем сервисе. Там эксперты помогают с учебой без посредников 
Разместите задание – сайт бесплатно отправит его исполнителя, и они предложат цены.
Цены ниже, чем в агентствах и у конкурентов
Вы работаете с экспертами напрямую. Поэтому стоимость работ приятно вас удивит
Бесплатные доработки и консультации
Исполнитель внесет нужные правки в работу по вашему требованию без доплат. Корректировки в максимально короткие сроки
Гарантируем возврат
Если работа вас не устроит – мы вернем 100% суммы заказа
Техподдержка 7 дней в неделю
Наши менеджеры всегда на связи и оперативно решат любую проблему
Строгий отбор экспертов
К работе допускаются только проверенные специалисты с высшим образованием. Проверяем диплом на оценки «хорошо» и «отлично»
Работы выполняют эксперты в своём деле. Они ценят свою репутацию, поэтому результат выполненной работы гарантирован 
Ежедневно эксперты готовы работать над 1000 заданиями. Контролируйте процесс написания работы в режиме онлайн 
изменить 3 главу полностью и заключение на проблемы и решения которые...
Диплом, Уголовно-процессуальное право
Срок сдачи к 3 окт.
Написать реферат. Правовые механизмы природопользования и защиты окружающей среды. В-01862
Реферат, Право
Срок сдачи к 12 окт.
Правосубъектность военнослужащих войск национальной гвардии РФ
Курсовая, Правоведение
Срок сдачи к 16 окт.
Контрольная работа по Теоретической и прикладной механике
Контрольная, Теоретическая и прикладная механика
Срок сдачи к 6 окт.
7 вариант, две контрольные работы
Контрольная, Теоретические основы обеспечения устойчивости функционирования объектов экономики и территорий
Срок сдачи к 19 окт.
Необходимо подготовить работу по дисциплине «учебно-проектная деятельность — 2» на основе приложенных материалов упд-1 и методического пособия тусур
Лабораторная, Учебно-проектная деятельность (УПД-2)
Срок сдачи к 9 окт.
Страхование и договор страхования: проблемы правового регулирования
Курсовая, Гражданское право
Срок сдачи к 2 нояб.
Выполнить тесты по Технологическое предпринимательство. В-01861
Решение задач, Менеджмент
Срок сдачи к 9 окт.
Требуется написать качественный и понятный текст для карточки товара...
Другое, Русский язык
Срок сдачи к 8 окт.
«Всё сдал!» — безопасный онлайн-сервис с проверенными экспертами
Используя «Свежую базу РГСР», вы принимаете пользовательское соглашение
и политику обработки персональных данных
Сайт работает по московскому времени:
Принимаем к оплате
© 2011—2026 Всё сдал!
Заполните форму и узнайте цену на индивидуальную работу!
Мы ВКонтакте 
Трейлер о сайте