返回列表 上一主題 發帖

[發問] 傳值呼叫(Call By Value)

Min
　暱稱: 閔

版主Rank: 7Rank: 7Rank: 7

帖子
172 
主題
39 
精華
20 
積分
177 
點名
0  
作業系統
Microsoft Windows XP 
軟體版本
Microsoft Office 2003 
閱讀權限
100 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-3-19 

論壇貢獻勳章帥哥勳章
1# 跳轉到 »
發表於 2015-7-25 00:12 | 顯示全部帖子
變數a 是有宣告喔!
Sub Square(ByVal a As Integer) '宣告a變數為數值，ByVal 則是無回傳值。

ex1
Sub Main()
Dim x As Integer = 10
Call Square(x)
msgbox.show(x)'還是10
End Sub

Sub Square(ByVal a As Integer)
a = a +a
End Sub


ex2
Sub Main()
Dim x As Integer = 10
Call Square(x)
msgbox.show(x)'回傳Square運算過的值，等於20。
End Sub

Sub Square(Byref a As Integer)
a = a +a
End Sub
若是我回答，使您滿意，請您讓我知道！                  
若是我的回覆，您仍有其他見解，也請您不嗇指教！

TOP

        靜思自在 : 君子為目標，小人為目的。
返回列表 上一主題