請教：傳值問題！

[scott21cn]

Private Sub Command1_Click()
Dim aa As Integer
aa = 1
NumAdd (aa)
MsgBox aa

End Sub

Private Function NumAdd(ByVal Num As Integer)
Num = Num + 1
End Function

為何aa 不等于2，怎樣aa才等于2？

[SenseKey]

Private Function NumAdd(Byref Num As Integer)
Num = Num + 1
End Function

[human_2]

Private Function NumAdd( Num As Integer)
byval 是按值
byref 是按地址 （缺省）

[jinyt]

Private Function NumAdd(ByRef Num As Integer)
Num = Num + 1
End Function

[vicon]

Private Function NumAdd(ByRef Num As Integer)
Num = Num + 1
End Function

[scott21cn]

可是不管是用 ByVal 或 ByRef 打印aa結果都是1，為什么？

[vicon]

按值傳遞就是說只將值傳遞過去了.
NUmAdd中處理的僅僅只是一個'1'而已,
按地址傳遞就是說將 'aa' 傳遞過去.

你可以這么理解.

[markjone]

static a as integer
必须设置成静态变量！

[builderr]

你a值无论如何改，都是num在加一呀
设一下静态变量，然后byref

[SenseKey]

Private Sub Command1_Click()
Dim aa As Integer
aa = 1
NumAdd aa
MsgBox aa

End Sub

Private Function NumAdd(ByRef Num As Integer)
Num = Num + 1
End Function

[HowardOK]

这么简单呀！你试试这样吧！
Private Sub Command1_Click()
Dim aa As Integer
aa = 1
NumAdd (aa)
MsgBox NumAdd(aa)
' 或上面两句变为：
' aa=NumAdd (aa)
' MsgBox aa
End Sub

Private Function NumAdd(Num As Integer) As Integer
Num = Num + 1
NumAdd = Num
End Function

[SenseKey]

Private Sub Command1_Click()
Dim aa As Integer
aa = 1
*** NumAdd aa ****
MsgBox aa

End Sub
注意打***的写法
这下应该可以了吧