1 '==============================================================================================
2 'Name:Manish Kumar Sinha
3 'Email Address: manishkumarsinha@sify.com
4 'Test Case Name: Argument passing by Reference:
5 'APR-1.3.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 Function Increase(ByRef A() As Long) As Long()
21 Public Function Replace(ByRef A() As Long) As Long()
23 Dim K() As Long = {100, 200, 300,400}
33 Dim N() As Long = {10, 20, 30, 40}
40 Throw
New System
.Exception("#A1, Unexception Behaviour in Increase Function")
46 Throw
New System
.Exception("#A2, Unexception Behaviour in Increase Function")
53 '==============================================================================================