Категория
Информатика
Тип
реферат
Страницы
2 стр.
Дата
02.04.2008
Формат файла
.rtf — Rich Text Format (Wordpad)
Архив
20786.zip — 4.05 kb
  • dlja-chego-nuzhna-procedura-function_20786_1.rtf — 14.03 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо


Текст работы

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



Ваше мнение



CAPTCHA