（ 33 ）设有如下程序：Private Sub Commandl Click （）Dim sum As Double, x As Doublesum ＝ 0n ＝ 0For i=l 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
（ 33 ）设有如下程序：
Private Sub Commandl Click （）
Dim sum As Double, x As Double
sum ＝ 0
n ＝ 0
For i=l 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
相关考题：
设有如下程序：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
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x = 0 n=InputBox(" ") For i = 1 To n For j=1 To i x = x + 1 Next i Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是A．3B．4C．5D．6
设有如下程序： Private Sub Cimmandl_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
设有如下程序： 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/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/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
5、写出如下程序的运行结果和运行原理： sum = 0 n = 99 while n ＞ 0: sum = sum + n n = n - 2 print（sum)