mcs/btests/Arguments_ByReferenceA.vb

   1 '==========================================================================================
   2 'Name:Manish Kumar Sinha
   3 'Email Address: manishkumarsinha@sify.com
   4 'Test Case Name: Argument passing by Reference:
   5 'APR-1.0.0: Argument Passing by Reference, which means the procedure can modify the variable
   6 '               itself.
   7 '===========================================================================================
   8
   9 Imports System
  10 Module APR_1_0_0
  11         Sub F(ByRef p As Integer)
  12       p += 1
  13         End Sub
  14
  15    Sub Main()
  16       Dim a As Integer = 1
  17       F(a)
  18         if (a=1)
  19                 Throw New System.Exception("#A1, Unexcepted Behaviour in Arguments_ByReferenceA.vb")
  20         end if
  21    End Sub
  22 End Module
  23
  24 '============================================================================================