单项选择题

下列程序的执行结果为( )
Private Sub Command1_Click()
Dim P As Integer,q As Integer
p=12:q=20
Call Value(P,q)
Print P;q
End Sub
Private Sub Value(By Val m As Integer,ByVal n As Integer)
m=m * 2:n=n-5
Print m;n
End Sub

A.20 12
20 15
B.12 20
12 25
C.24 15
12 20
D.24 12
12 15