设有如下程序: Private Sub Commandl_Click( ) Dim sum As Double,X As Double Sum=0 n=0 For i=1 To 5 x=n/i n=n

admin2020-01-17  24

问题 设有如下程序:
    Private Sub Commandl_Click( )
    Dim sum As Double,X As Double
    Sum=0
    n=0
    For i=1 To 5
    x=n/i
    n=n+l
    sum=sum+x
    Next i
    End Sub
    该程序通过For循环来计算一个表达式的值,这个表达式是(    )。

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

答案C

解析 小题考查VBA中循环结构的知识。这类问题需要分析出每一次循环所做的操作。第一次循环时,i=l,n=0,x=0/1,所以累加上去的是0/1;第二次循环时,i=2,n=1,x=1/2,所以累加上去的是1/2;第三次循环时,i=3,n=2,x=2/3,所以累加上去的是2/3;循环5次后累加的应该是0/1+1/2+2/3+3/4+4/5。
转载请注明原文地址:https://kaotiyun.com/show/OI6D777K
0

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