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: 传引用