在窗体中有一个命令按钮Command1,编写事件代码如下: Private Sub Command1Click() Dim s As Integer s = P(1)+P(2)+P(3)+P(4) debug.Print s End Sub Public

admin2019-02-19  55

问题 在窗体中有一个命令按钮Command1,编写事件代码如下:
Private Sub Command1Click()
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

解析 首先看程序中的Function P函数,在该函数中,首先定义了整型变量Sum,并为变量Sum赋初值0,然后设置了一个For循环,将函数参数作为For循环的控制条件,通过语句"Sum=Sum+i",将循环次数累计相加。在按钮单击事件"Command1Click()"通过语句"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循环运行3次:i=1:Sum=0+1=1,i=2:Sum=1+2=3,i=3:Sum=3+3=6,所以P(3)=6;P(4)带入函数P的参数N=3,For循环运行4次: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。
转载请注明原文地址:https://jikaoti.com/ti/DHo0FFFM
0

最新回复(0)