vbs过程参数byref和byval

vbs过程参数--byref(默认)和byval

请看例子：

On error resume Next

Sub A1(byval s)
    s = s & "125"
End Sub

Function A2(byval s)
    s = s & "125"
    A2 = s
End Function

Dim p1, p2, p3
p1 = "what1"
p2 = "what2"
A1 p1
p3 = A2(p2)
MsgBox p1 & " : " & p2 & " : " & p3

'结论：byval: 传值，byref: 传引用