MstnVBA学习--Vol2.按值和按饮用传递--20220623

提示：文章写完后，目录可以自动生成，如何生成可参考右边的帮助文档

---

前言

值的传递方式有两种: 值传递ByVal 和 引用传递ByRef

声明关键字有三种: 私有Dim = 私有Private 和 公共Public

---

一、值的传递

缺省情况下,参数值是按引用传递!!!
ByRef 的意思是：参数的值可以在过程内被修改。如果参数的值在过程中被修改了，这些变量
在过程外也将保持它们的值。
ByVal 的意思是: 保证传递给函数和过程的参数不变

二、使用步骤

Function Test1(ByVal a As Long) As Long
    a = a + 1
    Test1 = a
End Function

Function Test2(ByRef a As Long) As Long
    a = a + 1
    Test2 = a
End Function

Sub Main2()
    Dim I As Long
    I = 10
    Debug.Print Test1(I)
    Debug.Print I
    Debug.Print Test2(I)
    Debug.Print I
End Sub

上述代码打印结果为:

11
10
11
11

因为Test2里会修改I（对应函数内部变量名a）的值。

需要特别注意的是：VB6里默认是ByRef的，如果传参类型不匹配，可能会有莫名其妙的错误出现，

为了代码可靠，尽量多使用ByVal的方式，除非你确定ByRef的使用是正确的。