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

admin2021-04-07  39

问题 有Click事件对应的程序如下:
Private Sub Command1_Click()
  Dim 811111 As Double.X As Double
  sum=0
  n=0
  For i=1 To 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/uEC0FFFM
0

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