VB 12. Функции пользователя

Выполнение:

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

Private Function Факториал(ByVal n As Integer) As Long
       Тело функции
End Function

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

1
2
3
4
5
6
7
8

Private Function Факториал(ByVal n As Integer) As Long
  Dim i As Integer
  Dim p As Long
  p = 2
  For i = 3 To n
    p = p * i
  Next
End Function

5. Остался последний штрих: необходимо присвоить имени функции значение, а именно:

…
Факториал = p

Присваивание необходимо добавить в конец кода функции. Или написать Return p, что фактически одно и то же.

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

1
2
3

Private Sub btnВычислить_Click ...
  txtФакториал.Text = Факториал(txtN.Text)
End Sub

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

• С помощью меню Project (Проект) и пункта Add Module (Добавить модуль) добавьте в Ваш проект стандартный модуль, изменив ключевое слово Private на Public.

9. Запустите и отладьте программу.

О работе с пользовательскими функциями в Visual Basic можно просмотреть в видео-фрагменте:
youTube

Об использовании модуля и области видимости переменных можно просмотреть в видео:
youTube