为什么最后答案是10

Public Sub fun(a(), ByRef x As Integer)
For i = 1 To 5
x = x + a(i)
Next
End Sub
Private Sub Command1_Click()
Dim arr(5) As Variant
For i = 1 To 5
arr(i) = i
Next
n = 10
Call fun(arr(), n)
Text1.Text = n
End Sub
过程声明：[可选：有多个的，第一个为缺省。]
[Public/Private] [Static] Sub/Function/(Property Get/Let/Set) 名称([ByRef/Byval] 必须参数[类型], Optional [ByRef/ByVal] 可选参数[类型][ = 缺省值], ParamArray 任意参数()[类型])
… …
[Let/Set] 名称 = 返回值 '仅Function和Property Get过程。
Exit Sub/Function/Property
… …
End Sub/Function/Property


谢谢楼上两位了