ТЕМА № 1. Функции пользователя

Задание: разработайте приложение для вычисления факториала, использовав функцию пользователя.

Ход работы

1   Создайте новый проект и самостоятельно разработайте интерфейс новой формы (рис. 31).

2   Необходимо запрограммировать кнопку Вычислить, создав для этого функцию пользователя:

Private Function Факториал (N As Integer) As Long

            Тело функции

End Function

3   Как мы видим из описания функции, ее аргументом будет являться целое число, а значение (возвращаемое значение) будет типа Long.

4   В модуль формы необходимо поместить следующий код функции:

Private Function Факториал(n As Integer) As Long

            Dim i As Integer

            Dim p As Long

            p = 1

            For i = 1 To n

                        p = p * i

            Next i

            Факториал = p

End Function

Рис. 31. Приложение в работе

5   Теперь, чтобы вычислить значение факториала при нажатии кнопки Вычислить, необходимо лишь запрограммировать ее следующим образом:

Private Sub cmdВычислить_Click()

            txtФакториал = Факториал(Val(txtN))

End Sub

6   Запустите и отладьте приложение.

7   Но, так как наша функция описана с помощью оператора Private, то доступна она будет только из модуля данной формы. Для того, чтобы сделать ее доступной для любого модуля нашего приложения, необходимо описать ее в стандартном модуле.

8   С помощью меню Project и пункта Add Module добавьте в Ваш проект стандартный модуль. Перенесите описание функции Факториал в добавленный стандартный модуль, изменив оператор Private на Public.

9   Запустите и отладьте программу. Посмотрите, как изменилось содержимое кода формы. Сохраните проект приложения, не забыв про добавленный стандартный модуль.

Дополнительное задание

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

Контрольные задания

Добавьте в стандартный модуль описание следующих функций и измените соответственно внешний вид формы (при выполнении контрольного задания учтите область допустимых значений аргумента функции):

1) ;                    2) ;

3) ;                          4) ;

5) ;

6) ;                               7) ;

8) , где n – натуральное число;

9) функция для вычисления n-гo числа Фибоначчи по следующим правилам: , ;

10) функция расчета дохода от банковского вклада, если известны процентная ставка, первоначальный взнос и срок вклада.

Вопросы для самоконтроля

1   Что такое функция пользователя?

2   Как сделать функцию пользователя доступной из любого модуля проекта?

3   Где указывается тип данных возвращаемых функцией?

4   Как создать функцию от нескольких аргументов?

5   Для чего необходимо применять функции пользователя? Приведите примеры.

6   Как добавить в Ваш проект стандартный модуль?

7   Для каких целей можно использовать стандартный модуль?

Скачано с www.znanio.ru