mcs/btests/Arguments_ByValueC.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.1.0: If variable elements is of value type, i.e. it contains only a value then procedure '               cannot change the variable or any of its members\r
   6 '=============================================================================================\r
   7 \r
   8 Imports System\r
   9 Module APV1_1_0\r
  10         Sub F(p As String)\r
  11         p = "Sinha"\r
  12    End Sub \r
  13    \r
  14    Sub Main()\r
  15       Dim a As String = "Manish"\r
  16       F(a)\r
  17         if a<>"Manish"\r
  18                 Throw New System.Exception("#A1, Unexcepted behaviour in string of APV1_1_0")\r
  19         end if\r
  20    End Sub \r
  21 End Module\r
  22 '=============================================================================================