【新手入門】之五：公共變量與傳址過程、傳值過程

roych · 發(fā)表于 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

復制代碼

游客，如果您要查看本帖隱藏內(nèi)容請回復

第二段代碼：和上面的代碼相比，只是加了“ByVal”關鍵字，返回結(jié)果還是一樣嗎？

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

復制代碼

游客，如果您要查看本帖隱藏內(nèi)容請回復

roych · 發(fā)表于 2012-9-23 02:29:29

本帖最后由 roych 于 2012-9-23 21:27 編輯

問題3：
取消公共變量之后，實際上嵌套函數(shù)已經(jīng)發(fā)生很大變化的了。具體過程是：
第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，而是繼續(xù)進行循環(huán)內(nèi)運算的（這和定義公共變量是完全不同的），換句話說，fun1(a,b)=a+y=7+4=11（這時候x=3，y=4）。

因此：fun1(fun1(a,b),b)=fun1(11,4)，這樣一來，那么顯然循環(huán)就得執(zhí)行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。
因此得到的結(jié)果，顯然是31,3,8【為什么是3，而不是15？以x才是15，a一直停留在嵌套內(nèi)的循環(huán)里，即x=x+1+1=3。也就是說，嵌套前a已經(jīng)定型了~~】
*************************************************************************************************
問題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。
而我們前面說過，傳值過程，傳遞完之后，那個值是不會發(fā)生變化的。因此，外循環(huán)也只是循環(huán)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。會感到意外嗎？

啰啰嗦嗦地講這么多，也不知道會不會有人覺得，這些代碼到底有沒有實際用途呢？事實上，曾經(jīng)為一個同事寫過一段ADO的代碼，他問了一個很專業(yè)的問題，為什么在Update記錄集后，非要加上一句a=0呢？如果他了解傳值過程和傳址過程就很清楚原因了：加上這句后才能初始化數(shù)據(jù)啊。

yanwei82123300 · 發(fā)表于 2012-9-23 13:47:37

thanks you sharing it

yanghua1900363 · 發(fā)表于 2012-9-23 14:38:45

學習學習

lynnwang · 發(fā)表于 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 · 發(fā)表于 2012-9-23 15:44:11

輸出：
1000
1
1000

誰知道呢？{:soso_e128:}

lynnwang · 發(fā)表于 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 · 發(fā)表于 2012-9-23 21:37:34

lynnwang 發(fā)表于 2012-9-23 15:43
正好，我這里也有一個，更有意思的！

Sub testFuns()

有點意思，哈哈~~~可以加深大家對傳址過程的理解。

t小寶 · 發(fā)表于 2012-9-23 21:46:49

看了頭會暈，我還是不看了

ycxchen · 發(fā)表于 2012-9-24 20:38:39

本帖最后由 ycxchen 于 2012-9-24 20:39 編輯

很長時間不見版主有“新手進階”東西了，我要學習！

帳號		自動登錄	找回密碼
密碼			注冊

群介紹
Access培訓群 (792054000)
Access免費培訓群2 (792054000)
Access經(jīng)典源碼培訓群 (77130759)
Access源碼技巧群 (138920637)
access vba (307776555)

主題相關群

地區(qū)相關群[您還沒設置居住地]

[模塊/函數(shù)] 【新手入門】之五：公共變量與傳址過程、傳值過程

本帖被以下淘專輯推薦:

點評

群介紹
主題無相 (隨機顯示版	同地區(qū)群塊其他地區(qū))

主題相關群

地區(qū)相關群[您還沒設置居住地]

[模塊/函數(shù)] 【新手入門】之五：公共變量與傳址過程、傳值過程

本帖被以下淘專輯推薦:

點評

[模塊/函數(shù)] 【新手入門】之五：公共變量與傳址過程、傳值過程