单选题
在窗体中有一个命令按钮Command1，编写事件代码如下：
Private Sub
Command1_Click()
Dim s As Integer
S=P(1)+P(2)+P(3)+P(4)
debug.Print
S
End Sub
Public Function P(N AS
Integer)
Dim Sum As Integer
Sum=0
For i=1 To N
Sum=Sum+i
Next i
P=Sum
End Function
打开窗体运行后，单击命令按钮，输出结果是______。