单选题 有过程P和过程s，运行过程P时调用过程s。过程P的运行结果是(    )。
   Public Sub p()
   Dim i As Integer
   i=3
   Call s(i)
   If i＞4 Then i=i^ 2  
   MsgBox i
   End Sub
   Public Sub S(ByVal P As Integer)
     P=P*2
   End Sub
   A．3    B．4    C．5 D．6