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

admin2009-01-15  32

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

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

答案4

解析 sum的初始值为0,n的初始值为0,每执行—次For i循环,先令x值等于n浮点除以i,然后再把这一x值加到sum上,很显然,sum的最终结果为:0/1+1/2+ 2/3+3/4+4/5,故正确答案为C。
转载请注明原文地址:https://kaotiyun.com/show/ev2p777K
0

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