关于 byval和byref参数传递

topalps

Sub try()
    Dim i As Integer
    i = 1
    Debug.Print i
    f1 (i)
    Debug.Print i
    Dim j As Integer
    f2(i)
    Debug.Print i

End Sub

Private Function f1(ByVal n As Integer)
    n = n + 1
End Function

Private Function f2(ByRef n As Integer)

    n = n + 1

End Function



n的值始终没被改变，byref好像没起作用，为什么？