单项选择题

下列程序的执行结果是( )
Function P(N As Integer)
For i＝1 To N
Sum=Sum+i
Next i
P＝Sum
End Function
Private Sub Command1 Click()
S=P(1)+P(2)+P(3)+P(4)
Print S:
End Sub