设有如下程序: Private Sub Command1_Click() Dim sum As Double,x As Double sum=0 n=0 Fori

admin2009-01-19  26

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

选项 A、1+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+1/4+1/5

答案4

解析 变量Sum和n的初始值都为0,在进行第一次循环时,x=n/i(i=1),结果为0,n=n+1, n值为1,Sum=Sum+x,Sum值为0;在进行第二次循环时,x=n/i(i=2),x的值为1/2,n=n+1,n值为2,则Sum值为1/2;第三次循环十,x-n/i(i-3),x的值为2/3,n-n+l,n值为3,则Sum值为1/2+2/3:依此类推,直至循环结束。最后Sum的值应为1/2+2/3+3/4+4/5的结果,所以正确答案为C
转载请注明原文地址:https://jikaoti.com/ti/TGc0FFFM
0

最新回复(0)