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