- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
4#
發表於 2016-1-28 14:32
| 只看該作者
本帖最後由 c_c_lai 於 2016-1-28 16:07 編輯
回復 1# mdr0465
舉個實例說明,你便會明瞭:- Sub joke()
- Dim txt As String, num As Integer
-
- txt = "你好嗎?": num = 200
- Test1 txt, num ' 傳址 (即 jackyq 大大分享的 "本尊")
- MsgBox "txt = " & txt & " , num = " & num
- ' 答案是: txt = 很好,謝謝! 大家可好? , num = 150
-
- txt = "早餐吃了嗎?": num = 100
- Test2 txt, num ' 傳值 (即 jackyq 大大分享的 "分身")
- MsgBox "txt = " & txt & " , num = " & num
- ' 答案是: txt = 早餐吃了嗎? , num = 100
- End Sub
- Sub Test1(ByRef txt As String, ByRef num As Integer) ' 傳址 (位址 Address)
- txt = "很好,謝謝! 大家可好?" ' (Reference)
- num = num - 50
- End Sub
- Sub Test2(ByVal txt As String, ByVal num As Integer) ' 傳值 (數值 Value)
- txt = "非常好!伯父身體好麼?"
- num = num - 85
- End Sub
複製代碼 |
|