ByVal 与 ByRef求解
本帖最后由 bcrun 于 2013-03-28 11:17:39 编辑 我在百度到看到如下解释：
ByVal 与 ByRef(默认值)这两个是子过程的参数传递时,
指定参数按什么传递的
ByVal(按值传递)ByRef(按地址传递)
具体这样来理解:过程中的参数列表,
我们称形参调用过程时的参数列表,
我们称实参在调用时,
我们要将实参的值传递给形参,
这样过程才能拿这些数据参与计算并实现一些功能那么在传递的过程中,
就存在这两种传递方式传值时(ByVal),
是先给形参开辟一个临时地址,将实参的内容传入这个临时地址,
这样,传递后,形参与实参是在两上不同的地址中,也就是说他们是相互独立的传址时(ByRef),
是直接将实参的地址传递给形参,这样,形参与实参就共用一个地址,
所以,形参内容的改变,也直接改变了实参的内容通过上面的分析,
你只要记得:按值传递时(ByVal),
形参的改变不会影响到实参按址传递时(ByRef),
形参的改变,会影响到实参应用时,
我们可以利用按址传递的过程,给一个子过程(Sub过程)进行参数返回例:
Dim A as integer,B as integer
A=1
B=2
Call AAA(A,B)
Print A,B '得到的结果是2 3 (形参的改变影响到了实参)
Call BBB(A,B)
Pring A,B '得到的结果跟上面的一样,2 3(形参的改变并没有影响到这个实参)
Sub AAA(I as integer,J as integer) '默认,则按址传递
i=i+1
J=J+1
End Sub
Sub BBB(ByVal I as integer,ByVal J as integer)
i=i+1
J=J+1
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim A As Integer, B As Integer
A = 1
B = 2
Call BBB(A, B)
TextBox1.Text = A
TextBox2.Text = B
End Sub
Private Sub BBB(ByVal I As Integer, ByVal J As Integer)
I = I + 1
J = J + 1
End Sub
Private Sub AAA(ByRef I As Integer, ByRef J As Integer) '默认,则按址传递
I = I + 1
J = J + 1
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim A As Integer, B As Integer
A = 1
B = 2
Call AAA(A, B)
TextBox1.Text = A
TextBox2.Text = B
End Sub
a = 1
b = 2
'----------
a = a + 1
b = b + 1
'----------
print a, b ' 2, 3
'----------
a = a
b = b
'----------
print a, b ' 难道不应该还是 2, 3么
Option Explicit
Private Sub Form_Load()
Dim iValue As Long
iValue = 1 '输出2
Call Inc(iValue)
'注意千万不能这样写。虽然能编译成功，但由于VB的语法特点，调用过程时没call的话，后面的
'" (iValue)"部分是被处理成一个括号表达式整体，计算表达式值，而并非参数列表，这括号里的iValue是不会改变的
'Inc (iValue)
Debug.Print iValue
End Sub
'---------------------------------------------------
' 过程名 : Inc
' 时间 : 2013/3/28
' 作者 : 杨过.网狐.cn(csdn bcrun)
' 功能 :
' 说明 :
' 备注 : 星辰设计室VB一群:283362041,星辰学园BASIC辅导群:289219875
'---------------------------------------------------
Public Sub Inc(ByRef Value As Long)
Value = Value + 1
End Sub
