扫盲：byval和byref

你知道传递参数byval和byref的区别吗？byval的就一定不变吗？如果你不确定，请看代码，猜猜output是什么？

imports  Microsoft.VisualBasic
imports  System
imports  System.Collections

public   Class TestClass class TestClass
    public a as integer
end class

public   Module MyModule module MyModule
    Sub Main()sub Main
        dim a as integer
        a = 5
        TestValByVal(a)
        dim b as new TestClass
        b.a = 5
        TestRefByVal(b)
        dim c as new TestClass
        c.a = 5
        TestRefByVal(c)
        WL(a)
        wl(b.a)
        wl(c.a)
        RL()
    end sub
    
    public Sub TestValByVal()sub TestValByVal(byval a as integer)
        a = 10
    end sub

    public Sub TestRefByVal()sub TestRefByVal(byval b as TestClass)
        b.a = 10
        b= new TestClass
        b.a = 15
    end sub
    
    public Sub TestRefByRef()sub TestRefByRef(byref b as TestClass)
        b.a = 10
        b= new TestClass
        b.a = 15
    end sub
    
    Helper methods#region "Helper methods"

    Sub WL()sub WL(text as object)
        Console.WriteLine(text)
    end sub

    Sub WL()sub WL(text as object, paramarray args as object())
        Console.WriteLine(text.ToString(), args)
    end sub
        
    Sub RL()sub RL()
        Console.ReadLine()
    end sub
    
    Sub Break()sub Break() 
        System.Diagnostics.Debugger.Break()
    end sub

    #end region

end module