有Click事件对应的程序如下: Private Sub Command1_Click() Dim sum As Double,x As Double sum=0 n=0 For i=1 T0 5 x= n/

admin2020-06-06  25

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

选项 A、1 +1/2 +2/3 +3/4 +4/5
B、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 0
2 1/2 2 1/2
3 2/3 3 1/2 +2/3
4 3/4 4 1/2 +2/3 +3/4
5 4/5 5 1/2 +2/3 +3/4 +4/5
循环结束后,sum最后的值为1/2+2/3+3/4+4/5,故选择B选项。
转载请注明原文地址:https://jikaoti.com/ti/LYo0FFFM
0

最新回复(0)