问题
单项选择题
在窗体中有一个命令按钮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+1
Next i
P=Sum
End Function
打开窗体运行后，单击命令按钮，输出的结果是
A．15
B．20
C．25
D．35
答案
参考答案：B
解析： 本题考查的是VBA编程基础、参数传递。此题为循环结构：
当N=1:i=1，Sum=0+1=1，所以P(1)=1；
当N=2:i=1，Sum=0+1=1，i=2，Sum=1+2=3，所以P(2)=3；
当N=3:i=1，sum=0+1=1，i=2，sum=1+2=3，i=3，Sum=1+2+3=6，所以P(3)=6；
当N=4:i=1，Sum=0+1=1，i=2，Sum=1+2=3，i=3，Sum=1+2+3=6，i=4，Sum=1+2+3+4=10，所以P(4)=10。
那么s=P(1)+P(2)+P(3)+P(4)=20。