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