有Click事件对应的程序如下: Private Sub Commandl_Click() Dim sum As Double,x As Double sum=1 n=0 For I=

admin2021-01-04  31

问题 有Click事件对应的程序如下:
    Private Sub Commandl_Click()
        Dim sum As Double,x As Double
        sum=1
        n=0
        For I=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+1/3+1/4+1/5
D、1/2+1/3+1/4+1/5

答案B

解析 本题考查For循环控制结构,循环共执行5次,每次各变量赋值情况如下所示:
    i    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/HQSp777K
0

最新回复(0)