传址和传值 (byref,byval)

hyefeifei

简单讲讲传址与传值，错漏之处望大家指正补充。 一： 传址，即把参数在内存中的地址传给子程序。 测试代码： Sub ref_val() Dim r          As Integer Dim dblarea    As Double     r = 10     calcarea r   '传址，参数r变化     Debug.Print "半径 =" & r End Sub '此函数传址 Function calcarea1(ByRef radius As Integer) As Double     radius = radius ^ 2     calcarea = Application.Pi() * radius End Function 复制代码 运行到：calcarea r，子程序会按地址在内存中寻找到r，然后对r平方处理，运行debug.print "半径=“ & r ,会发现r值已经变为100。 二： 传值，会在内存找一个新地址复制参数值，把这个新地址传给子程序，子程序的操作，不会改变原地址中的值(即不会改变原参数的值）。 测试代码： Sub ref_val() Dim r          As Integer Dim dblarea    As Double     r = 10     calcarea r    '传值，参数r无变化     Debug.Print "半径 =" & r End Sub '此函数传值 Function calcarea(ByVal radius As Integer) As Double     radius = radius ^ 2     calcarea = Application.Pi() * radius End Function 复制代码 运行到：calcarea r，子程序会去新地址找复制的值，然后进行操作，原参数值不会受影响，运行debug.print "半径=“ & r ,会发现r值仍为10。

hyefeifei

三： 强制传值，如果我们在调用子程序时，把参数加上括号，此时，参数会按传值处理，即子程序的传址无效。 测试代码： Sub ref_val() Dim r          As Integer Dim dblarea    As Double     r = 10     calcarea1 (r)     '强制传值，参数r无变化     Debug.Print "半径 =" & r End Sub '此函数传址 Function calcarea1(ByRef radius As Integer) As Double    radius = radius ^ 2    calcarea1 = Application.Pi() * radius End Function 复制代码 运行至Debug.Print "半径 =" & r，仍然输出10，因调用子程序时，参数加括号，强制传值了。 注意，当我们使用 call calcarea1(r)调用参数时，并没有强制传值，只有我们使用call calcarea1((r))调用参数时，才是强制传值。

静听溪流

例行顶帖   感谢分享

hyefeifei

四：
数组，当我们把数组做为参数传给子程序时，只能传址，传值会提示错误。
测试代码：

1. Sub arr_ref_val()
   
2.     Dim arr(1 To 2)
   
3.     arr(1) = 10.5
   
4.     arr(2) = 15.3
   
5.     calcint arr
   
6.     Debug.Print arr(1), arr(2)
   
7. End Sub
   
8. 
   
9. '参数为数组,只能传址
   
10. Function calcint(ByRef a())
    
11.     Dim i          As Long
    
12.     For i = LBound(a) To UBound(a)
    
13.         a(i) = Int(a(i))
    
14.     Next i
    
15.     calcint = a
    
16. End Function

复制代码

运行到 Debug.Pring arr(1),arr(2)时，会输出 10 15，因数组参数按址传递，原值已经改变。

hyefeifei

五：
数组传值，如果我们不想改变原数组，可以在子程序中把参数做为Variant变量传递，此时可以传值。

1. Sub arr_ref_val()
   
2.     Dim arr(1 To 2)
   
3.     arr(1) = 10.5
   
4.     arr(2) = 15.3
   
5.     calcint arr
   
6.     Debug.Print arr(1), arr(2)
   
7. End Sub
   
8. 
   
9. '参数为variant数据类型，可以传值
   
10. Function calcint(ByVal a As Variant)
    
11.     Dim i          As Long
    
12.     For i = LBound(a) To UBound(a)
    
13.         a(i) = Int(a(i))
    
14.     Next i
    
15.     calcint = a
    
16. End Function

复制代码

运行主程序，可以看到输出值为10.5 15.3，没有变化，此时数组已强制按值传递。

hyefeifei

六：
字典，对于字典来说，如果子程序没有重新实例化参数，则传址和传值都会改变原参数。
测试代码：

1. Sub testDict()
   
2.     Dim d          As Dictionary
   
3.     Dim i          As Long
   
4.     Dim arr
   
5.     Set d = New Dictionary
   
6.     d("a") = 2
   
7.     d("b") = 10
   
8.     pDict d
   
9.     arr = d.Items
   
10.     For i = LBound(arr) To UBound(arr)
    
11.         Debug.Print arr(i)
    
12.     next i
    
13. End Sub
    
14. '虽然是传值方式传递参数，但是原字典还是会被改变
    
15. Function pDict(ByVal odc As Dictionary)
    
16.     odc("c") = 100
    
17. End Function

复制代码

运行主程序，会看到输出了 2 10 100，说明原参数已经被改变，虽然参数是按值传递的，如果子程序参数按byref传递参数，结果相同。

如果我们在子程序中重新实例化了对象会是什么结果？

1. Function pDict(ByVal odc As Dictionary)
   
2.     Set odc = New Dictionary '重新实例化对象
   
3.     odc("c") = 100
   
4. End Function
   

复制代码

可以看出，参数是按值传递的，此时会在内存中另一个地址生成一个字典，然后添加一个 100，原字典并没有被触碰，主程序输出为 2 10。

1. Function pDict(ByRef odc As Dictionary)
   
2.      Set odc = New Dictionary '重新实例化对象
   
3.      odc("c") = 100
   
4. End Function

复制代码

可以看出，参数是按地址传递的，此时会在内存中原字典地址生成一新字典，原字典被覆盖，主程序输出为 100

对于集合（collection)，应该与字典情况相同，其他情况没做测试，欢迎大家补充。

morpheus126

很不错的分享，有学习到不错的点
最后，字典传值并且重新实例化，感觉有点不可思议