大家好,我们今日继续讲解VBA代码解决方案的第124讲内容:VBA程序执行过程中,参数的传递形式。在代码的编写过程中,为了深入的理解代码,有时候要对一些理论的知识必须要做必要的深入了解。我将在这节和下阶内容中着重讲解程序在运行时参数是如何传递的。理论的成分多些,但还是希望朋友们能好好掌握。
首先,我们先来理解一下几个定义:什么是形式参数,什么是实际参数,什么是参数的传递,参数传递有几种形式。
1形式参数 指出现在Sub 和Function过程中的变量名、数组名。该过程在被调用前,没有为它们分配内存,其作用是说明自变量的类型和形态以及在过程中的作用。形参可以是变量名,也可以是数组名。
2 实际参数:就是在调用Sub 和Function过程时,从主调过程传递给被调用过程的参数值。实参可以是变量名、数组名、常数或表达式。在过程调用传递参数时,形参与实参是按位置结合的,形参表和实参表中对应的变量名可以不必相同,但它们的数据类型、参数个数及位置必须一一对应。
3 参数的传递:在程序运行过程中,实际参数将参数值传递给相应的形式参数,然后在函数中实现数据处理和返回的过程。
4 参数的传递有两种:按值传递和按地址传递
① 按值传递:在过程被调用时,传递给形参的是调用过程中的相应实参的值,形参与实参各占有不同位置的储存空间,被调用过程在执行过程中,改变了形参变量的值,但不会调用过程的实参值。在函数声明行在参数名称之前加上关键字ByVal。
② 按地址传递:就是当调用一个过程时,是把实参变量的内存地址(指针)传递给被调用过程的形参,也就是说形参与实参使用相同地址的内存单元。因此当在被调用过程中改变形参的值,就等于改变了实参的值。
上面的几个定义或许你不是很理解,下面我们看一个实例:
Sub MynzNumbers()
Dim a As Integer, b As Integer, c As Integer
a = 10
b = 20
c = 30
MsgBox MyAverage(a, b, c) & " " & a & " " & b & " " & c
End Sub
Function MyAverage(ByVal a, ByVal b, ByVal c)
a = a + 60
MyAverage = (a + b + c) / 3
End Function
代码截图:
![07e61df727d19990418b2cad1bb8b30f.png](https://i-blog.csdnimg.cn/blog_migrate/92f96a3d50c505ac8b79a1c68fe08c8f.jpeg)
看了上面的代码,大家想想maxbox弹出的对话框是什么内容呢?
![9204eed915c42684a81b0ad737dc9b47.png](https://i-blog.csdnimg.cn/blog_migrate/29a19450ffe054248a202e59d9dbf1df.jpeg)
看看上面的结果,是否和你想的一致呢?
上述过程中使用关键字ByVal在参数名称前,可以防止函数改变参数值。MynzNumbers给三个变量赋值,再调用函数MyAverage来计算该三个变量的平均值。函数的参数就是变量a,b和 c。注意,所有变量的前面都有关键字ByVal。在计算均值之前,函数MyAverage 改变了变量a的值,在函数内部,变量a等于70(10+60),因此,当函数将计算的均值传递给过程MynzNumbers时,MyAverage显示的结果是40而不是20,接下来的三个显示每个变量的内容,变量储存的内容和它们开始被赋的值一致——10,20,30。
那么:
1 如果不是按值传递,结果会是什么呢?
2 a,b,c 变量传递的又是如何由实参变成形参的呢?过程又是如何进行的呢?
3 形参会改变指针吗?
我们下节内容再接着谈。
今日内容回向:
1 什么是形参、实参?
2 如何理解参数的传递过程?参数的传递有几种形式?