有如下函数过程: Function f1(x As Integer)As Long Dim s As Long,i As Integer s=0 For i=1 To x s=s+i Next i f

admin2018-10-18  23

问题 有如下函数过程:
    Function f1(x As Integer)As Long
    Dim s As Long,i As Integer
    s=0
    For i=1 To x
    s=s+i
    Next i
    f1=s
    End Function
    在窗体上添加一个命令按钮,名为
    Commandl,并编写事件过程调用该函数,则
    输出结果为(    )。
    Private Sub Command1_Click( )
    Dim i As Integer,sum As Long
    For i=1 Fo 5
    sum=sum=+f1(i)
    Nexti
    Print sum
    End Sub

选项 A、25
B、35
C、45
D、55

答案B

解析 本题考查函数过程的功能分析。函数n的主要功能是计算1到x的累加和,也就是计算1+2+…+X。在命令按钮的单击事件中循环程序调用了5次n函数,sum计算为:1+1+2+1+2+3+2+3+4+1+2+3+4+5,因此结果为35。
转载请注明原文地址:https://kaotiyun.com/show/tRFp777K
0

最新回复(0)