在窗体中有一个命令按钮Command1，编写事件代码如下。
Private Sub Command1_Click()
Dim s As Integer
s=P(1)+P(2)+P(3)+P(4)
debugPrint 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
打开窗体运行后，单击命令按钮，输出结果是( )。
A) 15
B) 20
C) 25
D) 35
参考答案：B
解析： 首先看程序中的Fuction函数，在该函数中，首先定义了整型变量sum，并为变量sum赋初值0，然后设置了一个for循环，将函数参数作为for循环的控制条件，通过语句“Sum=Sum+i”，将循环次数累计相加。在按钮单击事件“Command1_Click()”通过语句“s=p(1)+p(2)+p(3)+p(4)”调用函数并将函数结果用于计算，下面就来分析一下程序运行过程。
P(1)代入函数p的参数N=1，For循环运行1次。
i=1：Sum=0+1=1
所以P(1)=1。
P(2)
代入函数p的参数N=2，For循环运行2次。
i=1：Sum=0+1=1
i=2：Sum=1+2=3
所以P(2)=3。
P(3)
代入函数p的参数N=3，For循环运行2次。
i=1：Sum=0+1=1
i=2：Sum=1+2=3
i=3：Sum=3+3=6
所以P(3)=6；
P(4)
代入函数D的参数N=3，For循环运行2次。
i=1：Sum=0+1=1
i=2：Sum=1+2=3
i=3：Sum=3+3=6
i=4：Sum=6+4=10
所以P(4)=10。
那么，s=P(1)+P(2)+P(3)+P(4)=1+3+6+10=20，所以输出结果为20。
所以本题答案为B)。