
Option Explicit
Public Sub predici_il_risultato()
Dim i As Long, j As Long, k As Long
i = 10
j = i
k = i
test (i)
test j
test k + 20
MsgBox Replace("i = " & i & ", j = " & j & ", k = " & k, ",", vbNewLine), vbQuestion, "Hai indovinato?"
End Sub
Private Sub test(ByRef var As Long)
var = 5
End Sub
|
