【新手入门】之五：公共变量与传址过程、传值过程

roych

在百度里见到一道很有意思的编程题，先贴上两段代码代码给大家练练：
第一段代码：返回值是什么？

1. 
   
2. Dim a As Integer
   
3. Sub test()
   
4.     Dim b As Integer
   
5.     a = 1
   
6.     b = 2
   
7.     Debug.Print fun1(fun1(a, b), b)
   
8.     Debug.Print a
   
9.     Debug.Print b
   
10. End Sub
    
11. Function fun1(x As Integer, y As Integer) As Integer
    
12.     Dim i As Integer
    
13.     For i = 1 To y
    
14.         y = y + 1
    
15.         x = x + 1
    
16.         a = x + y
    
17.     Next i
    
18.     fun1 = a + y
    
19. End Function

复制代码

游客，如果您要查看本帖隐藏内容请回复

第二段代码：和上面的代码相比，只是加了“ByVal”关键字，返回结果还是一样吗？

1. 
   
2. Dim a As Integer
   
3. Sub test()
   
4.     Dim b As Integer
   
5.     a = 1
   
6.     b = 2
   
7.     Debug.Print fun1(fun1(a, b), b)
   
8.     Debug.Print a
   
9.     Debug.Print b
   
10. End Sub
    
11. Function fun1(ByVal x As Integer, ByVal y As Integer) As Integer
    
12.     Dim i As Integer
    
13.     For i = 1 To y
    
14.         y = y + 1
    
15.         x = x + 1
    
16.         a = x + y
    
17.     Next i
    
18.     fun1 = a + y
    
19. End Function

复制代码

游客，如果您要查看本帖隐藏内容请回复

公共变量的影响：
问题3：对第一段代码删除 Dim a As Integer，并把参数(x As Integer, y As Integer)改为：(x,y)【注】会有怎样的结果呢？
问题4：对于第二段代码同样删除这句公共变量，又会有怎样的结果呢？

答案嘛，大家可以在模块的立即窗口（Ctrl+G）中得到，实在不清楚的再问我。为什么会这样。由于时间关系，我得稍后一些时间才能回复了，先占个楼层。
【注：由于删除公共变量，x,y均为缺省变量类型Variant。如果仍保留子函数中的Integer类型，则会在传址过程中出现变量不匹配的编译错误，因而需要改为(x,y)】
【新手入门】之一：If分支语句
【新手入门】之二：分支语句总结
【新手入门】之三：循环语句For
【新手入门】之四：循环语句Do和死循环
【新手入门】之五：公共变量与传址过程、传值过程
【新手入门】之六：“悲欢离合总无情”——浅谈Split和Join
【新手入门】之七：嵌套与并列——再谈If流程问题
【新手入门】之八：“连就连”——浅谈“&”和“+”连接符的区别
【新手入门】之九：从百钱百鸡谈起——浅谈“规划求解”兼答lingjiang问
【新手入门】之十：书到用时方恨少——自定义菜单（Access 2003）的制作
【新手入门】之十一：浅谈ADO之序言
【新手入门】之十二：浅谈ADO之Connection
【新手入门】之十三：浅谈ADO之Conmmand（上）
【新手入门】之十四：浅谈ADO之Command（下）
【新手入门】之十五：浅谈ADO之Recordset（上）
【新手入门】之十六：浅谈ADO之Recordset（下）
【新手入门】之十七：浅谈列表框的使用
【新手入门】之十八：双击列表框修改数据
【新手入门】之十九：从“书与女友恕不外借”谈起——浅谈“Bookmark”的使用
【新手入门】之二十：“书与书签”——bookmark属性答疑
【新手入门】之二十一：记录集的“凌迟”——逐条导出记录集

【新手进阶】之一：基础算法（一）
【新手进阶】之二：基础算法（二）
【新手进阶】之三：基础算法（三）
【新手进阶】之四：基础算法（四）
【新手进阶】之五：排序搜索（一）
【新手进阶】之六：排序搜索（二）
【新手进阶】之七：递归算法
【新手进阶】之八：冒泡排序
【新手进阶】之九：浅谈不绑定数据源操作记录
【新手进阶】之十：工作日的计算
【新手进阶】之十一：“庖丁解牛”和“纪昌学射”——浅谈表格式文本数据的导入
【新手进阶】之十二：从四脚腾空的奔马谈起——原来界面可以这样设计
【新手进阶】之十三：Outlook风格导航界面
【新手进阶】之十四：仓库管理系统

roych

问题3：
取消公共变量之后，实际上嵌套函数已经发生很大变化的了。具体过程是：
第1次传址过程，没什么好说的，x=a+1=2,y=b+1=3,a=x+y=5
第2次传址过程，x=x+1=2+1=3,y=y+1=3+1=4,a=x+y=7。
从上面来看，实际上第2次传址过程并没有把a=5传递给fun1，而是继续进行循环内运算的（这和定义公共变量是完全不同的），换句话说，fun1(a,b)=a+y=7+4=11（这时候x=3，y=4）。

因此：fun1(fun1(a,b),b)=fun1(11,4)，这样一来，那么显然循环就得执行4次了。
第1次：x=11+1=12,y=4+1=5,a=12+5=17
第2次：x=12+1=13,y=5+1=6,a=13+6=19
第3次：x=13+1=14,y=6+1=7,a=12+5=21
第4次：x=14+1=15,y=7+1=8,a=13+6=23
那么fun1(fun1(a,b),b)=fun1(11,4)=a+y=23+8=31。
因此得到的结果，显然是31,3,8【为什么是3，而不是15？以x才是15，a一直停留在嵌套内的循环里，即x=x+1+1=3。也就是说，嵌套前a已经定型了~~】
*************************************************************************************************
问题4：
事实上这和之前的解释没太大不同。过程如下：
第1次：x=a+1=2,y=b+1=3,a=x+y=5
第2次：x=x+1=2+1=3,y=y+1=3+1=4,a=x+y=7 fun1(a,b)=7+4=11。
而我们前面说过，传值过程，传递完之后，那个值是不会发生变化的。因此，外循环也只是循环2次。即：fun1(fun1(a,b),b)=fun1(11,2)
第1次：x=11+1=12,y=2+1=3,a=x+y=15
第2次：x=12+1=13,y=3+1=4,a=x+y=17
fun1(fun1(a,b),b)=fun1(11,2)=a+y=17+4=21。
b肯定是不变的2了，那么取消公共变量后的a呢？
不用猜了，取消公共变量后，传值完之后，变量便回复到初始值了，也就是a=1。会感到意外吗？

啰啰嗦嗦地讲这么多，也不知道会不会有人觉得，这些代码到底有没有实际用途呢？事实上，曾经为一个同事写过一段ADO的代码，他问了一个很专业的问题，为什么在Update记录集后，非要加上一句a=0呢？如果他了解传值过程和传址过程就很清楚原因了：加上这句后才能初始化数据啊。

yanwei82123300

thanks you sharing it

yanghua1900363

学习学习

lynnwang

正好，我这里也有一个，更有意思的！{:soso_e104:}

Sub testFuns()
Dim lngRet As Long, varLong As Long
varLong = 1
fun1 varLong
Debug.Print varLong

varLong = 1
fun1 (varLong)
Debug.Print varLong

varLong = 1
Call fun1(varLong)
Debug.Print varLong
End Sub
Function fun1(ByRef lng As Long) As Integer
lng = 1000
End Function

lynnwang

输出：
1000
1
1000

谁知道呢？{:soso_e128:}

lynnwang

同样给出SUB。

Sub testSubs()
Dim lngRet As Long, varLong As Long
varLong = 1
sub1 varLong
Debug.Print varLong

varLong = 1
sub1 (varLong)
Debug.Print varLong

varLong = 1
Call sub1(varLong)
Debug.Print varLong

varLong = 1
Call sub1(lng:=varLong)
Debug.Print varLong

varLong = 1
sub1 lng:=varLong
Debug.Print varLong
End Sub
Sub sub1(ByRef lng As Long)
lng = 1000
End Sub

大家慢慢找答案吧{:soso_e113:}

roych

lynnwang 发表于 2012-9-23 15:43
正好，我这里也有一个，更有意思的！

Sub testFuns()

有点意思，哈哈~~~可以加深大家对传址过程的理解。

t小宝

看了头会晕，我还是不看了

ycxchen

很长时间不见版主有“新手进阶”东西了，我要学习！