实例讲解Vb/Vba中的ByVal于ByRef传参

ByVal与ByRef的区别

说去二者之间的区别，就在于其传递的是什么，也许这句话很模糊，我们来做一下解释。
1、ByVal-按值传递，也就是说，我们传递给函数是一个单纯的数值过去，如下代码来帮助我们理解：

<table width="620" align="center" border="0" cellpadding="1" cellspacing="1" style="background:#FB7"> <tr> <td width="464" height="27" bgcolor="#FFE7CE"> 代码如下</td> <td width="109" align="center" bgcolor="#FFE7CE" style="cursor:pointer;" onclick="doCopy('copy9280')">复制代码</td> </tr> <tr> <td height="auto" colspan="2" valign="top" bgcolor="#FFFFFF" style="padding:10px;" class="copyclass" id=copy9280>

Sub Run()
   Dim i As Integer
   i = 1
   Add i
   MsgBox i
End Sub
Sub Add(ByVal i As Integer)
i = i 3
End Sub

上述代码，最后对话框中显示的i值还是1，因为编译器，或者是说Vba的解析器会对其传递的i创建一个副本，用于Add过程中的计算。
2、ByRef-按地址传递，类似于C、C 或者是ObjectPascal等语言中的指针，其会传递一个全局的内存地址给函数（过程），当函数在运算过程中修改了你所传递的参数时，那么这个值会被延伸下去，为了便于理解，大家来看一下如下的代码：

<table width="620" align="center" border="0" cellpadding="1" cellspacing="1" style="background:#FB7"> <tr> <td width="464" height="27" bgcolor="#FFE7CE"> 代码如下</td> <td width="109" align="center" bgcolor="#FFE7CE" style="cursor:pointer;" onclick="doCopy('copy7243')">复制代码</td> </tr> <tr> <td height="auto" colspan="2" valign="top" bgcolor="#FFFFFF" style="padding:10px;" class="copyclass" id=copy7243>

Sub Run()
   Dim i As Integer
   i = 1
   Add i
   MsgBox i
End Sub
Sub Add(ByRef i As Integer)
i = i 3
End Sub

这段代码与，前一段代码只有一个区别，就是将Add过程中参数i的传递方式由ByVal修改成了ByRef，但运算结果会完全不同，Msgbox对话框，最后给出的结果是4。

通过上述两个代码，大家是否对ByVal与ByRef这两种参数传递方式有了比较好的理解呢？

注意事项
值得我们各位童鞋注意的是，Vb/Vba默认的参数传递方式为ByRef，也就是说ByRef是可以省略的，这个与其他的语言不太相同。

您可能感兴趣的文章：
实例讲解Vb/Vba中的ByVal于ByRef传参
VB.NET 获取磁盘信息程序示例
VB 从零开始编外挂(十二)
VB图像处理，（一）像素的获取和输出
python和vba学哪个
asp.net中操作符简单介绍
在vb中实现超连接的方法！和直接发邮件！
Visual Basic中Chart控件的使用示例
VB图像处理，（四）几个常用滤镜的实现2
如何实现VB和VC的联合调试