arguments_byvalueb.vb

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

'=============================================================================================
'Name:Manish Kumar Sinha 
'Email Address: [e-mail]
'Test Case Name: Argument passing by Value:
'APV-1.4.0: By Default VB pass arguments by values, i.e if procedure is pass without mentioning
'		type then it take as ByVal type
'=============================================================================================
Imports System
Module APV1_4_0
    Function F(ByVal 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, uncexcepted behaviour of Default VB pass arguments") : Return 1
        End If
    End Function
End Module
'=============================================================================================