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

roych · 发表于 2012-9-23 02:29:09

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

Dim a As Integer
Sub test()
Dim b As Integer
a = 1
b = 2
Debug.Print fun1(fun1(a, b), b)
Debug.Print a
Debug.Print b
End Sub
Function fun1(x As Integer, y As Integer) As Integer
Dim i As Integer
For i = 1 To y
y = y + 1
x = x + 1
a = x + y
Next i
fun1 = a + y
End Function

复制代码

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

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

Dim a As Integer
Sub test()
Dim b As Integer
a = 1
b = 2
Debug.Print fun1(fun1(a, b), b)
Debug.Print a
Debug.Print b
End Sub
Function fun1(ByVal x As Integer, ByVal y As Integer) As Integer
Dim i As Integer
For i = 1 To y
y = y + 1
x = x + 1
a = x + y
Next i
fun1 = a + y
End Function

复制代码

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

roych · 发表于 2012-9-23 02:29:29

本帖最后由 roych 于 2012-9-23 21:27 编辑

问题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 · 发表于 2012-9-23 13:47:37

thanks you sharing it

yanghua1900363 · 发表于 2012-9-23 14:38:45

学习学习

lynnwang · 发表于 2012-9-23 15:43:09

正好，我这里也有一个，更有意思的！{: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 · 发表于 2012-9-23 15:44:11

输出：
1000
1
1000

谁知道呢？{:soso_e128:}

lynnwang · 发表于 2012-9-23 15:50:11

同样给出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 · 发表于 2012-9-23 21:37:34

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

Sub testFuns()

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

t小宝 · 发表于 2012-9-23 21:46:49

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

ycxchen · 发表于 2012-9-24 20:38:39

本帖最后由 ycxchen 于 2012-9-24 20:39 编辑

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

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] 【新手入门】之五：公共变量与传址过程、传值过程

本帖被以下淘专辑推荐:

点评

群介绍
主题无相 (随机显示版	同地区群块其他地区)