Передача данных при вызове подпрограммы

End Sub

End Sub

'****************************

Описание констант на уровне проекта:

Public Const Num1 As String = "Tomsk Polytechnic Univ."

'****************************

Sub UsingConst()

MsgBox Num1

'****************************

Передача аргументов из одной программы в другую осуществляется двумя способами:

· по ссылке (by reference);

· по значению (by value)

По ссылке – передается сама переменная (имя переменной), поэтому ее значение в подпрограмме можно изменить.

По значению – передается только значение переменной; изменить это значение в вызванной подпрограмме нельзя.

Выбор способа передачи – с помощью ключевых слов ByRef и ByVal

При отсутствии в описании ключевых слов передача осуществляется по ссылке.

Пример: передача переменной по ссылке

Sub PassArgumentByReference()

Dim Username As String

Username = "Mike"

ChangeName Username

MsgBox Username

Дата добавления: 2014-01-07