MyException - 我的异常网
当前位置:我的异常网» VB » ByVal 与 ByRef求解,该如何解决

ByVal 与 ByRef求解,该如何解决(2)

www.myexceptions.net  网友分享于:2013-04-10  浏览:4次

百度一下,你就上当。

你看你用“百度”流氓搜索引擎都找出了点什么乱七八糟的东西。
------解决方案--------------------
本帖最后由 bcrun 于 2013-03-28 11:18:39 编辑
引用:
没装vb6 在vb.net下测试正常 按值1,2按址2,3
 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


VB和VB.NET是不同的,VB.NET默认是ByVal,而VB默认是ByRef

lz你好生奇怪啊。
输出的结果还是2 , 3呢?结果应该是 1 2吧?
当然是 2,3啦,因为执行前一个函数改了a,b的值了嘛,改了就是改了,再往下一直是改了。
好比
a = 1
b = 2
'----------
a = a + 1
b = b + 1
'----------
print a, b ' 2, 3
'----------
a = a
b = b
'----------
print a, b ' 难道不应该还是 2, 3么

------解决方案--------------------
你只要记得byref会改变你传入的变量的值,而byval不会就可以了。
调用AAA(A,B)的时候已经改变了A,B的值了,这时候已经是2,3了,然后你再调用BBB(A,B),因为用的是byval,所以结果还是2,3,哪来的1,2呢?除了你之前不调用AAA
------解决方案--------------------
同意5,6楼,楼主估计当时是眼花了:)
感觉楼主可能是中文系的,这个排版类似诗歌:)
------解决方案--------------------
参考:
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

文章评论

软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有