Private Sub cmdRoot_Click

End if

End if

Exit Function

Public Function CubeRoot(x as Double) as Double

End Function

End Function

Процедуры – функции

Ф ункции во многом похожи на процедуры. Существует лишь одно существенное отличие – при вызове возвращают значение. Функция получает один или несколько объектов данных, называемых аргументами, и выполняет с ними некоторые действия. И результат этого действия возвращается функцией.

Процедура – функция имеет следующий синтаксис:

Function ИмяФункции(список аргументов) [ As Тип ]

Операторы

Эти операторы в точности соответствуют операторам процедуры подпрограмм, но их использование имеет некоторые отличия.

· При обозначении списка аргументов должны всегда пользоваться круглыми скобками, Call для вызова функции не используется.

· Процедурам – функциям приписывают некоторый тип, подобный типу переменной, что нужно для задания типа возвращаемого функцией значения.

· Возвращаемое значение присваивается собственно имени функции.

Наряду со встроенными функциями Visual Basic пользователь может использовать собственные процедуры функции.

Упражнение 3

1 Откройте модуль MyLibrary.

2 Дважды щелкните на файле MyLibrary.bas в окне проекта. Открывается окно программы модуля Добавьте в модуль процедуру – функцию (Инструменты ► Добавить процедуру - функцию, установив кнопку выбора – Function). Задайте имя функции CubeRoot. В программное окно модуля Visual Basic автоматически создаст шаблон процедуры – функции:

Public Function CubeRoot()

4 Вставьте в шаблон следующий фрагмент кода:

If x=0 then

CubeRoot = 0

CubeRoot = EXP((Log(abs(x)/3)

If x<0 then

CubeRoot = - CubeRoot

E nd Function

5 Выполните команду File ►Save MyLibrary

6 Добавьте в проект форму и присвойте ей имя FrmRoot. Заголовку Caption присвойте значение «Функция - корень».

7 Создайте на форме кнопку. Задайте ее свойству Name значение cmdRoot, а свойству Caption значение Кубический корень.

8 Дважды щелкните на кнопке cmdRoot – откроется окно программы с процедурой события кнопки cmdRoot_Click

9 Вставьте в процедуру следующий фрагмент:

Дата добавления: 2015-05-10