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

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

復(fù)制代碼

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

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

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

復(fù)制代碼

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

公共變量的影響：
問題3：對第一段代碼刪除 Dim a As Integer，并把參數(shù)(x As Integer, y As Integer)改為：(x,y)【注】會有怎樣的結(jié)果呢？
問題4：對于第二段代碼同樣刪除這句公共變量，又會有怎樣的結(jié)果呢？

答案嘛，大家可以在模塊的立即窗口（Ctrl+G）中得到，實在不清楚的再問我。為什么會這樣。由于時間關(guān)系，我得稍后一些時間才能回復(fù)了，先占個樓層。
【注：由于刪除公共變量，x,y均為缺省變量類型Variant。如果仍保留子函數(shù)中的Integer類型，則會在傳址過程中出現(xiàn)變量不匹配的編譯錯誤，因而需要改為(x,y)】
【新手入門】之一：If分支語句
【新手入門】之二：分支語句總結(jié)
【新手入門】之三：循環(huán)語句For
【新手入門】之四：循環(huán)語句Do和死循環(huán)
【新手入門】之五：公共變量與傳址過程、傳值過程
【新手入門】之六：“悲歡離合總無情”——淺談Split和Join
【新手入門】之七：嵌套與并列——再談If流程問題
【新手入門】之八：“連就連”——淺談“&”和“+”連接符的區(qū)別
【新手入門】之九：從百錢百雞談起——淺談“規(guī)劃求解”兼答lingjiang問
【新手入門】之十：書到用時方恨少——自定義菜單（Access 2003）的制作
【新手入門】之十一：淺談ADO之序言
【新手入門】之十二：淺談ADO之Connection
【新手入門】之十三：淺談ADO之Conmmand（上）
【新手入門】之十四：淺談ADO之Command（下）
【新手入門】之十五：淺談ADO之Recordset（上）
【新手入門】之十六：淺談ADO之Recordset（下）
【新手入門】之十七：淺談列表框的使用
【新手入門】之十八：雙擊列表框修改數(shù)據(jù)
【新手入門】之十九：從“書與女友恕不外借”談起——淺談“Bookmark”的使用
【新手入門】之二十：“書與書簽”——bookmark屬性答疑
【新手入門】之二十一：記錄集的“凌遲”——逐條導(dǎo)出記錄集

【新手進階】之一：基礎(chǔ)算法（一）
【新手進階】之二：基礎(chǔ)算法（二）
【新手進階】之三：基礎(chǔ)算法（三）
【新手進階】之四：基礎(chǔ)算法（四）
【新手進階】之五：排序搜索（一）
【新手進階】之六：排序搜索（二）
【新手進階】之七：遞歸算法
【新手進階】之八：冒泡排序
【新手進階】之九：淺談不綁定數(shù)據(jù)源操作記錄
【新手進階】之十：工作日的計算
【新手進階】之十一：“庖丁解�！焙汀凹o昌學(xué)射”——淺談表格式文本數(shù)據(jù)的導(dǎo)入
【新手進階】之十二：從四腳騰空的奔馬談起——原來界面可以這樣設(shè)計
【新手進階】之十三：Outlook風(fēng)格導(dǎo)航界面
【新手進階】之十四：倉庫管理系統(tǒng)

付謙

學(xué)習(xí)

youdm

感謝分享，向您學(xué)習(xí)！

1271650489

學(xué)習(xí)一下

hxx3970

學(xué)習(xí)了

gaofei186

看看一下

六月雪

哦哦哦哦哦哦哦哦哦

ej1213

謝謝1

secseasun

感謝分享、

pfrs01

學(xué)習(xí)了，多謝