设有如下程序： 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 End Sub 该程序通过For循环计算一个表达式的值，这个表达式是A．1+1/2+2/3+3/4+4/5B．1+1/2+2/3+3/4C．1/2+2/3+3/4+4/5D．1+1/2+1/3+1/4+1/5
设有如下程序： 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 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
相关考题：
（ 35 ）有如下程序：：#includeusing namespace std:class Sample{friend long fun （ Sample s ） ;public:Sample （ long a ） {x=a;}Private:long x;};long fun （ Sample s ）{if （ s.x2 ） retum 1;retum s.x*fun （ Sample （ s.x-a ））}int main （）{int sum=0for （ int i =0; i 6; i ++ ） { sum+=fun （ Sample （ i ） ; ） }coutSUM;retum 0;}运行时输出的结果是A ） 120B ） 16C ） 154D ） 34
设有如下程序：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/5B． 1+1/2+1/3+1/4+1/5C． 1/2+2/3+3/4+4/5D． 1/2+1/3+1/4+1/5
设有如下程序 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/5B.1+1/2+1/3+1/4+1/5C.1/2+2/3+3/4+4/5D.1/2+1/3+1/4+1/5
设有如下程序： Private Sub Command1_ Click() Dim sum As Double, x As Double sum=0 n=0 For i=1 To 3 x=n/i n=n+1 sum=sum+x Next i End Sub 该程序通过For循环来计算sum的值，sum值的精确结果是( )。A．1+1/2+2/3B．1+1/2+1/3+1C．1/2+2/3D．1/2+1/3
设有如下程序： 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 End Sub 该程序通过For循环计算一个表达式的值，这个表达式是 ______。A．1+1/2+2/3/4+4/5B．1+1/2+2/3+3/4C．1/2+2/3+3/4+4/5D．1+1/2+1/3+1/4+1/5
下列程序的执行结果为【 】。include class Point{public:Point(double i, double j) 下列程序的执行结果为【 】。include ＜iostream. h＞class Point{public:Point(double i, double j) { x=i; y=j;}double Area() const { return 0.0;}private:double x, y;};class Rectangle: public Point{public:Rectangle(double i, double j, double k, double 1)double Area() const {return w * h;}private:double w, h;};Rectangle: :Rectangle(double i, double j, double k. double 1): Point(i,j).{w=k, h=1}void fun(Point s){cout＜＜s. Area()＜＜end1;}void main( ){Rectangle rec(3.0, 5.2, 15.0. 25.0);fun(rec)}
设有如下程序 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/5B．1+1/2+1/3+1/4+1/5C．1/2+2/3+3/4+4/5D．1/2+1/3+1/4+1/5
设有如下程序： 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/5B．1+1/2+1/3+1/4+1/5C．1/2+2/3+3/4+4/5D．1/2+1/3+1/4+1/5
设有如下程序：Private Sub Command1_Click()Dim sum As Double, x As Doublesum＝0n＝0For i＝1 To 5x＝n/in＝n+1sum＝sum+xNext iEnd Sub该程序通过For循环来计算一个表达式的值，这个表达式是( )。A．1+1/2+2/3+3/4+4/5B．1+1/2+1/3+1/4+1/5C．1/2+2/3+3/4+4/5D．1/2+1/3+1/4+1/5
设有如下程序： Private Sub Command1_Click() Dim sum As Double，x As Double sum=0 n=0 Fori=1 To 5 x=n/i n=n+1 sum=sum+x Nexti End Sub 该程序通过For循环来计算一个表达式的值，这个表达式是( )。A．1+1/2+2/3+3/4+4/5B．1+1/2+1/3+1/4+1/5C．1/2+2/3+3/4+4/5D．1/2+1/3+1/4+1/5