2. 计算机
  3. 有如下函数过程： 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

有如下函数过程： 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  41
问题 有如下函数过程：
    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://www.kaotiyun.com/show/tRFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)