1 Private Sub Form_Load() 2 Dim x As Integer 3 x = 2 4 A x 5 Debug.Print x 6 End Sub 7 Sub A(ByRef t As Integer) 8 t = t - 1 9 End Sub 10 Sub B(ByVal t As Integer) 11 t = t - 1 12 End Sub 13 Sub C(t As Integer) 14 t = t - 1 15 End Sub 这是一个极为简单的Toy程序（呵呵，就是小玩具），不过他却体现了传值和传引用的巨大区别。 第7、10、13行分别是一个过程，这些过程都实现了同一功能，即将参数t的值减一。 在窗体的Load事件中，我们定义了一个变量x，然后调用第一个过程（A）,注意到第7行中的参数列表中ByRef关键字，它代表传引用。 对于传引用，参数t 和 x其实就是一个变量。就像人有大名也可能有外号的道理一样。现在对于变量x，它的大名是x，外号是t。那么t-1其实就是x-1.最后打印出来的结果是x-1=1. 再看第10行，对于过程B，它的参数传递方式使用了ByVal关键字（即传值） 对于ByVal（传值），参数t和x根本就是不相关的两个变量。就如同两个人一样（以甲、乙为例），起初甲有两个苹果，然后甲告诉乙，你现在也有两个苹果了，于是乙乐呵呵的拿着两个苹果去过程B中，过程B的作用是将乙的苹果数减一，那么最后程序所要打印的是甲的苹果数，显然，苹果数2。根本没发生变化。那么有的朋友会问，这时乙的苹果数是1吧。答案是错的。对于变量，它是有生命周期的（在编程中叫做变量的作用域）。上面的代码中，变量x的有效期从Form_Load事件激活开始，到End Sub（也就是这个事件结束时）为止。而变量t的有效期从过程的第一句开始，到End Sub为止。一旦超过这个有效期，变量的值就不复存在了。所以，如果想要打印出乙的苹果数，只能在使用该变量的过程中打印，超出这个过程对该变量的任何操作都是毫无意义的。
