|
发表于 2011-10-10 22:26:10
|
显示全部楼层
本帖最后由 Baniy 于 2011-10-11 00:53 编辑
Private Sub Form_click()
Dim a As Integer, b As Integer
a = 10
b = 15
Call f(a, b)
Print "a="; a, "b="; b
End Sub
Private Function f(ByVal X As Integer, ByRef Y As Integer)
X = X + 10
Y = Y + 10
End Function
ByVal 是指 参数按值传递(既不改变原参数的值,也可以说参数参与运算后不还回值):ByRef 则是按地址传递(返回值改变)
不指明时默认(F( x as integer , y as integer))为按地址传递 即
~~~~~`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~》》
贴不上图
不好意思
。。。。。。。。。。。。
|
|