相关疑难解决方法(0)

我的小样本代码

Function AddNr(ByRef x As Integer) As Integer
    x = x + 2
    AddNr = x
End Function

Sub test()
    Dim ana As Integer
    ana = 1
    AddNr (ana)
    MsgBox ana
End Sub

应输出3但输出1.更具体地说,ana在调用AddNr函数后不修改变量.

我的环境是Excel 2007中的Microsoft Visual Basic 6.5.