在窗体中有一个命令按钮Commandl,编写事件代码如下:Private Sub Command1_CliCk()Dim s As Integ

在窗体中有一个命令按钮Commandl，编写事件代码如下：

Private Sub Command1_CliCk()

Dim s As Integer

s=P(1)+P(2)+e(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

打开窗体运行后，单击命令按钮，输出结果是

A．15

B．20

C．25

D．35

B解析：考察循环结构。当N=1时，p(1)=1；当N=2时，p(2)=3；当N=3时，p(3)=6；当N=4时，p(4)：10；所以s：20。