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

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

@[TOC](MstnVBA学习--Vol2.按值和按饮用传递--20220623)

---

# 前言

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

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

---

# 一、值的传递

缺省情况下,参数值是按引用传递!!!

ByRef 的意思是：参数的值可以在过程内被修改。如果参数的值在过程中被修改了，这些变量

在过程外也将保持它们的值。

ByVal 的意思是: 保证传递给函数和过程的参数不变

# 二、使用步骤

```basic

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

```

上述代码打印结果为:

```

11

10

11

11

```

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

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

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