mcs/btests/Arguments_ByReferenceA.vb

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