Question

When Sub Main below is executed, what will be displayed by the two message box?

Sub Main()
   Dim X As Short = 10
   Dim Y As Short = 20

   Call SomeWeirdMath(X,Y)

   MsgBox (X)
   MsgBox (Y)

End Sub

Sub SomeWeirdMath(ByRef P As Short, ByVal Q As Short)

   P = P*Q

   Q = Q*P

End Sub

Answer 1

As X is pased as reference. Changing the value of P in SomeWeirdMath() reflects to value of X in Main()

MsgBox 1:
200 is displayed in message box 1

MsgBox 2:
20 is displayed in message box 1