Office中國論壇/Access中國論壇

標題: 【新手入門】之五：公共變量與傳址過程、傳值過程 [打印本頁]

作者: roych 時間: 2012-9-23 02:29
標題: 【新手入門】之五：公共變量與傳址過程、傳值過程
在百度里見到一道很有意思的編程題，先貼上兩段代碼代碼給大家練練：
第一段代碼：返回值是什么？

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
本帖最后由 roych 于 2012-9-23 21:27 編輯

問題3：
取消公共變量之后，實際上嵌套函數已經發(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)內運算的（這和定義公共變量是完全不同的），換句話說，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。
因此得到的結果，顯然是31,3,8【為什么是3，而不是15？以x才是15，a一直停留在嵌套內的循環(huán)里，即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。
而我們前面說過，傳值過程，傳遞完之后，那個值是不會發(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。會感到意外嗎？

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

作者: yanwei82123300 時間: 2012-9-23 13:47
thanks you sharing it

作者: yanghua1900363 時間: 2012-9-23 14:38
學習學習

作者: lynnwang 時間: 2012-9-23 15:43
正好，我這里也有一個，更有意思的！{: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
輸出：
1000
1
1000

誰知道呢？{:soso_e128:}

作者: lynnwang 時間: 2012-9-23 15:50
同樣給出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

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

Sub testFuns()

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

作者: t小寶 時間: 2012-9-23 21:46
看了頭會暈，我還是不看了

作者: ycxchen 時間: 2012-9-24 20:38
本帖最后由 ycxchen 于 2012-9-24 20:39 編輯

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

作者: lynnwang 時間: 2012-9-25 00:39
我們一般會在下面第二個容易掉進陷井！

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

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

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

varLong = 1
Call fun1(lng:=(varLong))
Debug.Print varLong
End Sub

Function fun1(ByRef lng As Long) As Integer
lng = 1000
End Function

輸出得到：

1000
1
1000
1
1000
1

應該都看出來了吧，答案：
不管[Sub][Function]，如果對參數變量加了括號，即使過程參數是傳址，也會將參數作為傳值（參數復本傳入過程）
如果還不理解，將fun1改為兩個參數(其他稍作修改)再運行，你就會徹底明白

Function fun1(ByRef lng As Long,lng2 As Long) As Integer
lng = 1000
lng2=2000
End Function

作者: 咱家是貓 時間: 2012-9-25 09:43
真的新手肯定早嚇跑了.

作者: zhuyiwen 時間: 2012-9-25 10:04

lynnwang 發(fā)表于 2012-9-25 00:39
不管[Sub][Function]，如果對參數變量加了括號，即使過程參數是傳址，也會將參數作為傳值（參數復本傳入過程）

為什么？

作者: zhuyiwen 時間: 2012-9-25 10:21
推演：
參數定義
function x(var as integer) = function x(byref var as integer)

變量和表達式
傳遞參數時

dim k
dim a as integer
k = x(a) ' 傳址，即傳的變量的地址，函數內部可以影響 a 的值

復制代碼

如果拋棄函數的返回值，VBA 要求如此書寫

x a ' 同樣傳址，函數內部可以影響 a 的值

復制代碼

(a) = (a + 0) ' 就 a 數值類型而言
因此 (a) 是表達式，它返回的另一個地址空間中的值，而不是 a 變量地址空間中的值

故：

k = x((a)) ' 此時傳遞的不是 a 的地址，而是表達式 (a) 的地址，此時，函數內部影響的是表達式 (a) 地址空間中的，而不是 a 的值

復制代碼

如果拋棄函數返回值，VBA 應該這樣寫

x (a)

復制代碼

作者: lynnwang 時間: 2012-9-25 22:08
還是老朱，牛叉，見多識廣，分析到點了。

（）＝傳值＝值的復本

作者: renyucai1963 時間: 2012-9-26 04:01

學習。

作者: yori2007 時間: 2012-10-6 22:09

作者: tmtming 時間: 2012-10-13 12:46
好好學習.

作者: 微微森林 時間: 2013-3-28 20:49
系統(tǒng)性學完。

作者: 5574916 時間: 2013-6-27 18:40
學習學習，謝謝分享！

作者: wen123456 時間: 2013-9-22 13:52
新手上路

作者: msyangyi 時間: 2014-5-26 14:18
對對答案

作者: msyangyi 時間: 2014-5-26 14:43
恩，真的很好

作者: zpy2 時間: 2014-6-23 06:46
不錯，在類里用，傳值，傳址大不一樣��！

作者: 桑松木 時間: 2015-1-10 19:36
我在學習

作者: 山東小妮子 時間: 2015-2-1 21:16
學習

作者: tiantianiec 時間: 2015-2-2 17:00
aaaaaaaaaaaaa

作者: kililyl 時間: 2015-4-7 03:12
很多年前學過，現(xiàn)在又忘了，多年沒有搞編程了，現(xiàn)在又要撿起來了

作者: 輕風 時間: 2015-8-21 11:50
{:soso_e100:}

作者: songgpljh 時間: 2015-10-10 16:19
學習一下

作者: cshiq 時間: 2016-1-17 05:49
公共變量與傳址過程、傳值過程

作者: socar_bbman 時間: 2016-2-22 01:55
看代碼學習

作者: Superleistung 時間: 2016-4-15 15:05
有涉及到模塊公共變量值的傳遞嗎？想學習下

作者: 神經挺住 時間: 2016-4-15 17:28
學習

作者: 鄱湖人2012 時間: 2016-5-6 20:08
學習

作者: 山之冬 時間: 2016-7-1 13:06
學習

作者: zshining 時間: 2016-7-4 15:59
樓主的好東西，小白來學習了

作者: gzhxhy 時間: 2016-7-21 16:18
贊一個

作者: yhl091122 時間: 2016-8-19 14:05
學習

作者: wind7412 時間: 2016-9-10 08:15
學習一下

作者: p51218 時間: 2016-9-14 00:14
哈哈哈

作者: czwziy 時間: 2016-12-11 00:04
回復學習

作者: su_xx 時間: 2016-12-14 09:28
學習學習

作者: 寒月TEA 時間: 2017-1-23 12:46
感謝分享

作者: 72310 時間: 2017-2-23 14:00
新手回復

作者: guan818355 時間: 2017-3-12 21:21
fenxiang

作者: busyboy 時間: 2017-3-13 15:31
新手一個，學習

作者: 農民工 時間: 2017-4-24 08:30
學習

作者: hongyepiaofei 時間: 2017-5-19 17:04
學習一下，謝謝

作者: 雙木無神 時間: 2017-6-26 10:59
好好學習

作者: ztaccess 時間: 2017-8-7 05:10
感謝大神指導

作者: ztaccess 時間: 2017-8-7 05:10
感謝大神指導，謝謝無私分享

作者: ztaccess 時間: 2017-8-7 05:11
祝論壇越辦越好，感謝樓主熱心分享

作者: ztaccess 時間: 2017-8-7 05:12
感謝樓主熱心分享都是好貼

作者: 亞洲雄風 時間: 2017-11-15 17:28
好東東啊……。

作者: zimohong 時間: 2017-12-22 16:52
好東西，多謝了啊

作者: pfrs01 時間: 2017-12-25 15:25
學習了，多謝

作者: secseasun 時間: 2018-5-3 14:52
感謝分享、

作者: ej1213 時間: 2018-6-8 16:35
謝謝1

作者: 六月雪 時間: 2018-8-11 18:31
哦哦哦哦哦哦哦哦哦

作者: gaofei186 時間: 2018-8-20 14:00
看看一下

作者: hxx3970 時間: 2018-9-12 11:56
學習了

作者: 1271650489 時間: 2020-4-17 09:28
學習一下

作者: youdm 時間: 2021-3-16 20:37
感謝分享，向您學習！

作者: 付謙 時間: 2021-5-31 08:22
學習

歡迎光臨 Office中國論壇/Access中國論壇 (http://www.mzhfr.cn/)