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

admin2010-09-11  31

问题 设有如下程序:    Private Sub Command1_Click()      Dim sum As Double, k As Double      sum=0      n=0      For i=1 To 5        k=n/i        n=n+1        sum=sum+k      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

答案C

解析 此题关键是变量n的初值问题。因为n的初值为0,所以在第一次循环时“n/i”的计算结果为0,从第二次循环开始,n的变化值是从1至4。
转载请注明原文地址:https://jikaoti.com/ti/Sdg0FFFM
0

最新回复(0)