End Sub. Function Add1(ByVal Num1 as integer, ByVal Num2 as integer) as integer

Dim B As integer

Dim A As integer

Dim sum AS integer

End Function

End Function

и

Function Add1(ByVal Num1 as integer, ByVal Num2 as integer) as integer

5 В шаблоны записать следующий фрагмент программного кода:

Add = Num1 + Num2

Num1 = 0

Num2 = 0

6 Добавьте в проект форму. Присвоить Name = FrmArg, а Caption = «Передача параметров».

7 Поместите на форму две командных кнопки с именами Cmd1 и Cmd2 и свойствами Caption соответственно «Передача по ссылке» и «Передача по значению». Поместите на форму текстовые метки соответственно с именами lb1add и lbladd1 и значением Caption соответственно «Рузультат» и «Результат1». Рис. 4.

8 Откройте программное окно кнопки управления cmd1 и запишите следующий программный фрагмент в процедуре события Click кнопки:

A=10

B=30

Sum = Add(A, B)

Lbladd.caption = Sum

Print A

Print B

9 Запустите приложение. При нажатии кнопки «Передача по ссылке» реализуется передача параметра по ссылке. Функция Add складывает значение двух переменных и устанавливает их значение равным 0. Изменения, которым подверглись аргументы функции, остаются даже после завершения программы.

Результат отобразится в окне проверки.

10 При нажатии кнопки «Передача по значению» Visual Basc передает функции копии параметров. В результате функция изменяет параметры, но эти изменения действуют только внутри ее.

Результат отобразится в окне проверки.

11 Задайте режим конструирования и сохраните приложение.

При передаче параметров по ссылке тип аргумента должен соответствовать объявленному типу. В случае несоответствия проблема разрешается двумя способами. Первый - непосредственное преобразование типа (направление преобразования определяется возможностью получения желаемого результата). Второй – предоставить Visual Basic право выполнения этого преобразования. Для этого необходимо заключить аргумент в круглые скобки

MsgBox Degrees ((CTemp))

и Visual Basic выполнит преобразование к требуемому виду.

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

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

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