Variable as a reference or value to a function

[bplus]

Example:

Code: (Select All)

Dim ich As Integer
ich = 1
ichnicht ich
Print "from main ich is "; ich

Print "Call returns: "; ichSo%(ich)

Print "from main ich is "; ich

Sub ichnicht (i As Long)
    i = i * 10
    Print "from Sub i is "; i
End Sub

Function ichSo% (i As Long)
    i = i * 10
    Print "from Function i is "; i
    ichSo% = i
End Function