- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
本帖最後由 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
|
|
發表於 2016-1-28 13:05
| 
