mcs/mbas/Test/tests/FunctionArgu_ByValueB.vb

   1 '=============================================================================================
   2 'Name:Manish Kumar Sinha
   3 'Email Address: manishkumarsinha@sify.com
   4 'Test Case Name: Argument passing by Value:
   5 'APV-1.4.0: By Default VB pass arguments by values, i.e if procedure is pass without mentioning
   6 '               type then it take as ByVal type
   7 '=============================================================================================
   8 Imports System
   9 Module APV1_4_0
  10         Function F(p As Integer) as Integer
  11       p += 1
  12         return p
  13    End Function
  14
  15    Sub Main()
  16       Dim a As Integer = 1
  17         Dim b as Integer = 0
  18       b = F(a)
  19         if b=a
  20                 Throw new System.Exception("#A1, uncexcepted behaviour of Default VB pass arguments")
  21         end if
  22    End Sub
  23 End Module
  24 '============================================================================================