返回列表 上一主題 發帖

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

edchen70

帖子
7 
主題
4 
精華
0 
積分
11 
點名
0  
作業系統
winxp 
軟體版本
visual studio 2008 
閱讀權限
10 
性別
男 
註冊時間
2015-6-26 
最後登錄
2015-11-11 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-7-10 18:48 | 只看該作者

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

下列是用call By Value的程式碼，顯示的數值是10，我想請問一下各位就是a沒有宣告,那a是x的複製值嗎？sub那邊不太了解？希望有先進解釋一下
Module Module1

    Sub Main()
        Dim x As Integer = 10
        Call Square(x)
        Console.WriteLine(x)
        Console.ReadKey()
    End Sub
    Sub Square(ByVal a As Integer)
       a = a ^ 2
    End Sub

End Module
收藏 分享

Min
　暱稱: 閔

版主Rank: 7Rank: 7Rank: 7

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

論壇貢獻勳章帥哥勳章
2#
發表於 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

        靜思自在 : 人要知福、惜福、再造福。
返回列表 上一主題