问题
单项选择题
在窗体中有一个命令按钮command1，编写事件代码如下： Private Sub Command1_Click()Dim s As Integers=P(1)+P(2)+P(3)+P(4)Debug.Print s End Sub Public Function P(N As Integer)Dim Sum As IntegerSum=0For i=1 To N Sum=Sum+1Next iP=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。