2. 计算机
  3. 设有如下程序： Private Sub Command1_C1ick() 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 该

设有如下程序： Private Sub Command1_C1ick() 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 该

admin2015-12-15  38
问题 设有如下程序：
Private Sub Command1_C1ick()
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://www.kaotiyun.com/show/hxgp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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