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

时间:2022-06-23
本文章向大家介绍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的使用是正确的。

原文地址:https://www.cnblogs.com/young89/p/16406472.html