When Sub Main below is executed, what will be displayed by two message boxes? Sub Main() Dim X(4) As Short Dim Y As Short = 1 For Y = 1 to 4 X(Y) = 2*Y Next Y Call SubQuiz3(X(1),X(2),Y) MsgBox (Y) Call SubQuiz3(X(3),X(4),Y) MsgBox(Y) End Sub Sub SubQuiz3(ByVal P As Short, ByVal Q As Short, ByRef R As Short) R = P*Q End Sub