End Function

End Sub

_______________________________

Function FFF(ByVal x As Double)

FFF = 1/x^2

______________________________________

Sub TTTT(ByVal x As Double, ByRef y As Double)

процедуре ТТТТ передаются значения х=1.1 по значению (способные не изменяться при выходе из процедуры), у=2.2 по ссылке (способные изменяться при выходе из процедуры)

 

MsgBox (y)

y=x+y

MsgBox (y)

x=5.5

MsgBox (x)