设有如下程序： 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 su

admin2013-03-30 56

问题设有如下程序：
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 i
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

答案C

解析本题考查VBA中循环结构的知识。这类问题需要分析出每一次循环所做的操作。第一次循环时，i=1,n=0,x=0/1，所以累加上去的是0/1；第二次循环时，i=2,n=1,x=1/2，所以累加上去的是1/2；第三次循环时，i=3,n=2,x=2/3，所以累加上去的是2/3；循环5次后累加的应该是0/1+1/2+2/3+3/4+4/5。

转载请注明原文地址:https://kaotiyun.com/show/gorp777K

本试题收录于：二级Access题库NCRE全国计算机二级分类

二级Access

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

设有如下程序： 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 su

二级Access

NCRE全国计算机二级