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: Argument Passing by value, which means the procedure cannot modify the variable
\r
7 '==========================================================================================
\r
10 Sub F(ByVal p As Integer)
\r
15 Dim a As Integer = 1
\r
18 Throw new System.Exception("#A1, Unexcepted behaviour")
\r
22 '============================================================================================