Using the c2f Procedure
At the start of the procedure:
c gets 38
At the end of the procedure:
s gets 100.4
…
‘ Sydney temp is 38
Call c2f(38, s)
Msgbox(“Temp is ”
& s)
...
Private Sub
c2f (c
As Integer,
f
As Double
)
f = 9 * c / 5 + 32
End Sub