1 '=============================================================================================
2 'Name:Manish Kumar Sinha
3 'Email Address: manishkumarsinha@sify.com
4 'Test Case Name: Argument passing by Value:
5 'APV-1.0.0: If the variable elements is of reference type i.e. it contain a pointers to a class
6 ' then procedure can change the members of instance to which it points
7 '==============================================================================================
13 Public Sub Increase(ByVal A() As Long)
20 Public Sub Replace(ByVal A() As Long)
22 Dim K() As Long = {100, 200, 300, 400}
31 Dim N() As Long = {10, 20, 30, 40}
32 Dim N1() As Long = {11, 21, 31, 41}
33 Dim N2() As Long = {100, 200, 300, 400}
38 Throw
new System
.Exception ("#A1, Unexpected behavior in Increase function")
45 Throw
new System
.Exception ("#A2, Unexpected behavior in Replace function")
50 '============================================================================================