Function Add(Num1 as integer, Num2 as integer) as integer
и нажать Enter. VB автоматически создаст шаблоны следующего вида
Function Add(Num1 as integer, Num2 as integer) as integer
End Function
3. Аналогично задать функцию
Function Add1(ByVal Num1 as integer, ByVal Num2 as integer) as integer
4. В шаблоны записать следующиt фрагмент программного кода:
Add = Num1 + Num2 и
Num1 = 0
Num2 = 0
Add1 = Num1 + Num2
Num1 = 0
Num2 = 0
5
Рис. 4 Передача
параметров
6. Поместить на форму две кнопки с именами Cmd1 и Cmd2 и свойствами Caption соответственно «Передача по ссылке» и «Передача по значению». Поместить на форму текстовые метки соответственно с именами lbladd и lbladd1 и значением Caption соответственно «Результат» и «Результат1» (Рис. 4.).
7. Дважды щелкнуть на кнопке cmd1 и записать следующий программный код:
Private Sub Cmd1_Click()
Dim sum As Integer
Dim A As Integer
Dim B As Integer
A = 10
B = 30
sum = Add(A, B)
Lbladd.Caption = sum
Print A
Print B
End Sub
8
Рис. 5 Работа
приложения
Private Sub Cmd1_Click()
Dim sum As Integer
Dim A As Integer
Dim B As Integer
A = 10
B = 30
sum = Add1(A, B)
Lbladd1.Caption = sum
Print A
Print B
End Sub
9. Запустить приложение. При нажатии кнопки «Передача по ссылке» реализуется передача параметра по ссылке. Функция Add складывает значение двух переменных и устанавливает их значение равным 0. Изменения, которым подверглись аргументы функции, остаются даже после завершения программы. При нажатии кнопки «Передача по значению» VB передает функции копии параметров. В результате функция изменяет параметры, но эти изменения действуют только внутри ее.
10. Сохранить проект.
Область видимости переменных. Переменные могут быть объявлены в модулях, формах или процедурах.
-
Если переменная объявлена внутри процедуры, то доступ к ней возможен, только из кода данной процедуры, даже если она объявлена как Static.
-
Переменная, объявленная в секции General (общая) формы доступна в пределах всей формы.
Область видимости переменных, объявленных на уровне модуля, зависит от ключевых слов, использованных при их объявлении.
-
Если переменная используется во всех процедурах модуля или формы, то её объявляют в разделе определения формы. Область видимости её в этом случае форма, где она объявлена. Если переменная должна быть доступна всему приложению, то она объявляется как Public (вместо оператора Dim). Она имеет глобальную видимость.
Кроме типа и области видимости переменные характеризуются временем жизни. Переменная, объявленная в процедуре, по завершении процедуры прекращает своё существование и выделенная ей память возвращается системе. Так же ведут переменные, объявленные в модуле. При повторном вызове процедуры или модуля эти переменные создаются вновь и инициализируются. Если переменная объявлена посредством Dim, то область ее видимости - модуль. Примеры: Dim Res as string, Global Your Name as string.
Упражнение 5 Область видимости переменных.
1. Добавить в проект модуль Module2 и записать в него следующий код:
Option Explicit
Global User As string
Global ACL As string
2. Добавить в Module2 следующую процедуру:
Public Sub InitApp
User =”Павел”
ACL = 255
End Sub
Объявление переменных
User
и ACL
с ключевым словом Global
позволяет
обратиться к ним из любой процедуры
или модуля данного приложения. 
Поскольку
функция InitApp
находится внутри модуля и сопровождается
ключевым словом Pudlic,
она является глобальной и может
быть вызвана из любой процедуры
приложения.
В ней происходит инициализация приложения
– переменной User
присваивается значение “Павел”, а
переменной ACL
– 255.
3. Добавить в проект новую форму со свойствами Name=frmLogon, Caption =Регистрация пользователя.
4. Создать на форме надпись со свойствами Name=lblUser, Caption=Имя пользователя.
5.Создать на форме надпись со свойствами: Name=lblPassword, Caption=Пароль (рис 6.).
6. Добавить текстовое поле справа от Имени пользователя со свойством Name=txtUser.
7. Добавить текстовое поле справа от Пароля со свойствами: Name=txtPassword, PasswordChar=*.
8. Разместить на середине нижней части формы кнопку со свойствами: Name=cmdLogon, Caption=Регистрация (рис.6).
9. Открыть окно программы двойным щелчком на форме frmLogon. Переключить на секции (General)(Declrations). Перед строкой Private Sub Form_Load() ввести код: Private Password As string. Открыть процедуру события Load формы и добавить следующий фрагмент:
Private Sub Form_Load()