有Click事件对应的程序如下： Private Sub Commandl_Click( ) Dim sum As Double，x As Double sum=0 n=0 For i=l to 5 x=rr/i n=n+l StlfIl=SUIIl+X

admin2021-07-08 37

问题有Click事件对应的程序如下：
Private Sub Commandl_Click( )
Dim sum As Double，x As Double
sum=0
n=0
For i=l to 5
x=rr/i
n=n+l
StlfIl=SUIIl+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次，每次各变量赋值情况如下表所示。