有Click事件对应的程序如下: Private Sub Commandl Click() Dim sum AS Double,X AS Double sum=1 n=0 For 1=1 To 5 X=n/I

admin2019-04-13  37

问题 有Click事件对应的程序如下:
    Private Sub Commandl Click()
    Dim sum AS Double,X AS Double
    sum=1
    n=0
    For 1=1 To 5
    X=n/I
n=n+1
sum=sum+x
    Next I
    End Sub
    该程序通过For循环计算一个表达式的值,该表达式是(  )。

选项 A、1/2+2/3+3/4+4/5
B、1+1/2+2/3+3/4+4/5
C、1+1/2+l/3+1/4+1/5
D、1/2+1/3+1/4+1/5

答案B

解析 本题考查For循环控制结构,循环共执行5次,每次各变量赋值情况如下所示:
l  X    n  SUm
1  0/1  1  1
2  1/2  2  1+1/2
3  2/3  3  1+1/2+2/3
4  3/4  4  1+1/2+2/3+3/4
5  4/5  5  1+1/2+2/3+3/4+4/5
    循环结束后,sum最后的值为1+1/2+2/3+3/4+4/5,故B选项正确。
转载请注明原文地址:https://kaotiyun.com/show/KF0p777K
0

最新回复(0)