arguments_byreferencea.vb

大名鼎鼎的mono是.NET平台的跨平台（支持linux

'==========================================================================================
'Name:Manish Kumar Sinha 
'Email Address: [e-mail]
'Test Case Name: Argument passing by Reference:
'APR-1.0.0: Argument Passing by Reference, which means the procedure can modify the variable
' 		itself.
'===========================================================================================

Imports System
Module APR_1_0_0
    Function F(ByRef p As Integer) As Object
        p += 1
    End Function

    Function Main() As Integer
        Dim a As Integer = 1
        F(a)
        If (a = 1) Then
            System.Console.WriteLine("#A1, Unexcepted Behaviour in Arguments_ByReferenceA.vb") : Return 1
        End If
    End Function
End Module

'============================================================================================