mcs/mbas/Test/tests/FunctionArgu_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         Function F(ByRef p As Integer) as Integer
  12       p += 1
  13         return p
  14         End Function
  15
  16    Sub Main()
  17       Dim a As Integer = 1
  18         Dim b as Integer = 0
  19       b=F(a)
  20         if (b<>a)
  21                 Throw New System.Exception("#A1, Unexcepted Behaviour in Arguments_ByReferenceA.vb")
  22         end if
  23    End Sub
  24 End Module
  25
  26 '============================================================================================