2014-02-02
362
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) 
