实验结果：
Dim x As Byte
Private Sub Command1_Click()
Dim y As Byte
Dim z As Byte
Call init(y, z)
Call op(x, y, z)
Print x, y, z '3,5,11
End Sub
Private Sub init(a As Byte, b As Byte)
a = a + 1 '0+1=1
b = b + 2 '0+2=2
x = a + b '1+2=3
End Sub
Private Sub op(ByVal u As Byte, v As Byte, ByRef w As Byte)
u = u + 1 '3+1=4
v = v + u '1+4=5
w = u + v + w '4+5+2=11
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024