mcs/btests/FunctionArgu_ByValueA.vb

   1 '==========================================================================================\r
   2 'Name:Manish Kumar Sinha \r
   3 'Email Address: manishkumarsinha@sify.com\r
   4 'Test Case Name: Argument passing by Value:\r
   5 'APV-1.0.0: Argument Passing by value, which means the procedure cannot modify the variable\r
   6 '               itself.\r
   7 '==========================================================================================\r
   8 Imports System\r
   9 Module APV1_0\r
  10         Function  F(ByVal p As Integer) As Integer\r
  11                 p += 1\r
  12                 return p\r
  13         End Function \r
  14    \r
  15    Sub Main()\r
  16       Dim a As Integer = 1\r
  17       Dim b As Integer = 0 \r
  18         b = F(a)\r
  19         if b=a\r
  20                 Throw new System.Exception("#A1, Unexcepted behaviour")\r
  21         end if\r
  22    End Sub \r
  23 End Module\r
  24 '==========================================================================================