问题 单项选择题

在窗体中有一个命令按钮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+i
Next i
P=Sum
End Function
打开窗体运行后,单击命令按钮,输出结果是______。

A.15
B.20
C.25
D.35

答案

参考答案:B

解析: 题目中在命令按钮的单击事件中调用了过程P。而过程P的功能是根据参数N,计算从1到N的累加,然后返回这个值。N=1时,P(1)返回1;N=2时,P(2)返回3;N=3时,P(3)返回6;N=4时,P(4)返回10;所以s=1+3+6+10=20

单项选择题
单项选择题