QTP - Pass ByRef and Pass ByVal

' Arguments passing to functions

'  Pass ByRef

' Pass ByVal

'‘**********************************************************************

' Function name : Demo_PassingArgs1

' Variables: num1 , num2  --> both are declared as ByRef  (BY DEFAULT)

' Passed  arguments a,b  :  a=10, b=20

' Returning values :    a=100, b=200

' because a=num1, b=num2 ; both these values are passed as ByRef

'‘**********************************************************************

a=10

b=20

msgbox Demo_PassingArgs1(a,b)

msgbox a

msgbox b

Function Demo_PassingArgs1(num1,num2)

   num1=100

   num2=200

    Demo_PassingArgs1=num1+num2

End Function

'**********************************************************************

' Function name: Demo_PassingArgs2

' Variables:   num1 , num2  --> num1 and num2 are declared as ByRef 

'  Passed  arguements a,b: a=10, b=20

' Returing values :  a=100, b=200

'  because a=num1, b=num2 ; both these values are passed as ByRef

'‘*********************************************************************

a=10

b=20

msgbox Demo_PassingArgs2(a,b)

msgbox a

msgbox b

Function Demo_PassingArgs2(ByRef num1,ByRef num2)

   num1=100

   num2=200

    Demo_PassingArgs2=num1+num2

End Function

'****************************************************************************
Function name : Demo_PassingArgs3

' Variables: num1 , num2  --> both are declared as ByVal (declared in function)

'  Passed  arguements a,b      : a=10, b=20

' Returing values :   a=10, b=20

'  because a=num1, b=num2 ; both these values are passed as ByVal

'‘*******************************************************************

a=10

b=20

msgbox Demo_PassingArgs3(a,b)

msgbox a

msgbox b

Function Demo_PassingArgs3(ByVal num1,ByVal num2)

   num1=100

   num2=200

    Demo_PassingArgs3=num1+num2

End Function

'‘********************************************************************

' Function name   :    Demo_PassingArgs4

' Variables   :    num1 , num2  --> num1  is declared as ByRef and num2 is declared as ByVal

'  Passed  arguements a,b  :  a=10, b=20

' Returing values :   a=100, b=20

' because a=num1 (here num1 is ByRef) , b=num2  (here num2 is ByVal)

'‘*********************************************************************

a=10

b=20

msgbox Demo_PassingArgs4(a,b)

msgbox a

msgbox b

Function Demo_PassingArgs4(ByRef num1,ByVal num2)

   num1=100

   num2=200

    Demo_PassingArgs4=num1+num2

End Function