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: If the variable elements is of reference type i.e. it contain a pointers to a class
\r
6 ' then procedure can change the members of instance to which it points
\r
7 '==============================================================================================
\r
10 Imports System.Array
\r
13 Public Sub Increase(ByVal A() As Long)
\r
20 Public Sub Replace(ByVal A() As Long)
\r
22 Dim K() As Long = {100, 200, 300, 400}
\r
31 Dim N() As Long = {10, 20, 30, 40}
\r
32 Dim N1() As Long = {11, 21, 31, 41}
\r
33 Dim N2() As Long = {100, 200, 300, 400}
\r
38 Throw new System.Exception ("#A1, Unexpected behavior in Increase function")
\r
45 Throw new System.Exception ("#A2, Unexpected behavior in Replace function")
\r
50 '============================================================================================