Private Sub Form_Load()
Dim x,y
x = 3
y = 5
Call ByReference(x, y)
' Результат : x=4, y=6
x = 3
y = 5
Call ByValue(x, y)
' Результат : x=4, y=5
End Sub
' Передача параметров по ссылке
Sub ByReference(a, b)
a = a + 1
b = b + 1
End Sub
' Передача параметров по значению
Sub ByValue(a, ByVal b)
a = a + 1
b = b + 1
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2