Неважно зачем вам такая программа, это ведь пример ;-). Вот она (пишем в модуле):
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/