11.2. Передача параметров по ссылке и по значению
В Visual Basic 2005 существует два режима передачи параметров в подпрограмму: передача по значению и передача по ссылке.
Когда параметр передается по значению, перед его именем ставится ключевое слово ByVal. В этом случае в подпрограмму передается копия параметра. Любые изменения значения данного параметра, выполненные в теле подпрограммы, теряются при возвращении в вызывающую программу. Другими словами, изменение копии параметра не отображается на оригинале. Как правило, по значению передаются входные параметры.
Параметр, передаваемый по ссылке, обозначается ключевым словом ByRef. В этом случае в подпрограмму передается ссылка на область памяти, в которой хранится оригинальное значение данного параметра (иногда грубо говорят, что в подпрограмму передается оригинал параметра). При этом любое изменение значение параметра в теле подпрограммы сразу записывается в память компьютера на место старого значения параметра. Таким образом, после завершения работы подпрограммы в памяти хранится измененное значение параметра. Другими словами, передача параметра по ссылке позволяет сохранить в памяти компьютера измененное значение параметра. Выходные параметры могут передаваться только по ссылке.
Рассмотрим пример использования различных режимов передачи параметров. Сначала проанализируем используемые подпрограммы.
Процедура printпредназначена для вывода значения целочисленной переменной в окно списка. У нее два входных параметра:stroka– это поясняющий текст, который будет выводиться перед значением переменной,znach– значение, которое надо вывести. Это значение может быть только целым числом. Так как обе переменных в процессе вывода не меняют своих значений, то они передаются по значению. Перед их именами ставим ключевое словоByVal. Обратите внимание, что по правилам языка Visual Basic 2005 режим передачи указывается отдельно для каждого параметра.
Private Sub print(ByVal stroka As String, _
ByVal znach As Integer)
В окно списка lstAвыводим поясняющий текст и значение, которое предварительно преобразуем с помощью функцииStr.
lstA.Items.Add(stroka + Str(znach))
End Sub
Следующая процедура иллюстрирует передачу параметра по значению. Ее единственный параметр – целочисленная переменная a. Перед ней стоит ключевое словоByVal, которое показывает, что параметр передается по значению.
Private Sub Test1(ByVal a As Integer)
К переменной aдобавляем число 5 и записываем результат на место старого значения этой же переменной.
a += 5
Выводим значение переменной aв окно списка, указывая в поясняющем тексте имена процедуры и переменной.
print("Sub Test1 a=", a)
End Sub
Третья процедура иллюстрирует передачу параметра по ссылке. Ее единственный параметр – целочисленная переменная a. Перед ней стоит ключевое словоByRef, которое показывает, что параметр передается по ссылке.
Private Sub Test2(ByRef a As Integer)
К переменной aдобавляем число 5 и записываем результат на место старого значения этой же переменной.
a += 5
Выводим значение переменной aв окно списка, указывая в поясняющем тексте имена процедуры и переменной.
print("Sub Test2 a=", a)
End Sub
Теперь рассмотрим текст вызывающей (или главной) программы.
Объявляем целочисленную переменную a.
Dim a As Integer
Присваиваем ей начальное значение.
a = 2
Очищаем окно списка от результатов предыдущих запусков программы.
lstA.Items.Clear()
Выводим поясняющий текст. Сначала рассмотрим передачу параметра по значению.
lstA.Items.Add("ByVal")
Выводим в окно списка значение переменной a, хранящееся в главной программе.
print("Main prog. a=", a)
Вызываем процедуру Test1, в которую параметрaпередается по значению.
Test1(a)
Печатаем значение переменной aпосле выполнения процедуры.
print("Main prog. a=", a)
Еще раз вызываем процедуру Test1.
Test1(a)
И снова печатаем значение переменной a, полученное после выполнения процедуры.
print("Main prog. a=", a)
Третий раз вызываем процедуру Test1.
Test1(a)
И третий раз печатаем значение переменной a.
print("Main prog. a=", a)
Выводим горизонтальную черту, чтобы зрительно отделить результаты одной подпрограммы от результатов другой.
lstA.Items.Add("----------------------------------")
Опять задаем начальное значение переменной a.
a = 2
Выводим поясняющий текст. Теперь мы рассматриваем передачу параметра по ссылке.
lstA.Items.Add("ByRef")
Выводим в окно списка значение переменной a, хранящееся в главной программе.
print("Main prog. a=", a)
Вызываем процедуру Test2, в которую параметрaпередается по ссылке.
Test2(a)
Печатаем значение переменной aпосле выполнения процедуры.
print("Main prog. a=", a)
Еще раз вызываем процедуру Test2.
Test2(a)
И снова печатаем значение переменной a, полученное после выполнения процедуры.
print("Main prog. a=", a)
Третий раз вызываем процедуру Test2.
Test2(a)
И третий раз печатаем значение переменной a.
print("Main prog. a=", a)
Пример работы этой программы приведен на рис. 70. Проанализируем полученные результаты. В первом блоке параметр передавался по значению. При этом изменения значения параметра, происходящие в теле подпрограммы, не влияют на значение соответствующей переменной в вызывающей программе. Это прекрасно видно на рис. 70. Сначала в главной программе переменная aимеет значение 2. Внутри процедурыTest1к ней прибавляется число 5, и значение параметра становится равным 7. Но при возвращении в вызывающую программу этот результат теряется, и значение переменнойaпо-прежнему равно 2. Этот процесс повторяется трижды.
Рис. 70.Передача параметров по значению и по ссылке
Иначе происходит передача параметра по ссылке. Это иллюстрирует второй блок результатов (рис. 70). Сначала в главной программе переменная aимеет значение 2. Внутри процедурыTest2к ней прибавляется число 5, и значение параметра становится равным 7. Так как параметрaпередается в процедуруTest2по ссылке, то любые изменения его значения, происходящие в подпрограмме, сохраняются при возвращении в вызывающую программу. Что мы и видим в четвертой строке второго блока. Измененное значение переменнойaеще два раза передается в подпрограммуTest2, где к ней добавляется число 5. Так как параметрaпередается по ссылке, то измененный результат всякий раз будет сохраняться в главной программе.