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