Бесплатные рефераты


В мире
Календарь новостей
« Дек.2017»
Пн.Вт.Ср.Чт.Пт.Сб.Вс.
    123
45678910
11121314151617
18192021222324
25262728293031
ВНИМАНИЕ!!!
УВАЖАЕМЫЕ ПОЛЬЗОВАТЕЛИ!!!
Сайт поменял владельца и на нём грядут большие перемены.
Убедительная просьба не пользоваться покупкой рефератов через смс.
ДАННЫЙ СЕРВИС БОЛЬШЕ НЕ РАБОТАЕТ
Стоит вопрос об его удалении, дабы сделать рефераты бесплатными. Извините за неудобство и спасибо за понимание
Поиск реферата

Реферат, курсовая, контрольная, доклад на тему: Для чего нужна процедура Function?

ВНИМАНИЕ! Работа на этой странице представлена для Вашего ознакомления в текстовом (сокращенном) виде. Для того, чтобы получить полностью оформленную работу в формате Word, со всеми сносками, таблицами, рисунками (вместо pic), графиками, приложениями, списком литературы и т.д., необходимо скачать работу.

Для чего нужна процедура 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/


ВНИМАНИЕ! Работа на этой странице представлена для Вашего ознакомления в текстовом (сокращенном) виде. Для того, чтобы получить полностью оформленную работу в формате Word, со всеми сносками, таблицами, рисунками (вместо pic), графиками, приложениями, списком литературы и т.д., необходимо А можно заказать оригинальный реферат
Опубликовано: 20.08.10 | [ + ]   [ - ]  
Просмотров: 136
Загрузок: 0
Рекомендуем
{dnmbottom}
БАНК РЕФЕРАТОВ содержит более 70 000 рефератов, курсовых, контрольных работ, сочинений и шпаргалок.