设有如下程序： 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循环计算一个表达式的值，这个表达式是 ______。
- A1+1/2+2/3/4+4/5
- B1+1/2+2/3+3/4
- C1/2+2/3+3/4+4/5
- D1+1/2+1/3+1/4+1/5
问题
设有如下程序： Private Sub Command1_Click() D
参考解析：
解析：本题考查循环语句，其过程如下： i=1时，x=0/1=0，n=0+1=1，sum=0+0； i=2时，x=1/2，n=1+1=2，sum=0+1/2； i=3时，x=2/3，n=2+1=3，sum=0+1/2+2/3； i=4时，x=3/4，n=3+1=4，sum=0+1/2+2/3+3/4； i=5时，x=4/5，n=4+1=5，sum=0+1/2+2/3+3/4+4/5。
分类：其他
相关推荐
-
1、在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Co
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a() a=Array(1，3，5，7) s=0 For i=1 To 3 s=s*10+a(i) Next i Print s End Sub 程序运行后，输出结果为( )。A135B357C531D753
-
2、对窗体编写如下代码： Option Base1 Private Sub F
对窗体编写如下代码：Option Base1Private Sub Form_Key Press（Key Ascii AsInteger）a=Array（237，126，87，48，498）m1=a（1）m2=1IfKey Ascii=13ThenForI=2To5Ifa（...
-
3、设有如下程序： Option Base 0 Private Sub For
设有如下程序：Option Base 0Private Sub Form_Click()Dim aDim i As Integera = Array(1,2,3,4,5,6,7,8,9)For i = 0 To 3Print a(5 – i);Next End S...
-
4、某人设计了如下程序用于计算并输出7!(7的阶乘)： Private Sub
某人设计了如下程序用于计算并输出7!(7的阶乘)： Private Sub Command1_Click t = 0 For k = 7 To 2 Step -1 t = t * k Next Print t End Sub 执行程...
-
5、在窗体上画一个命令按钮，然后编写如下代码： Private Sub Comm
在窗体上画一个命令按钮，然后编写如下代码： Private Sub Command1 Click() a&＝InputBox("请输入第一个数") b&=InputBox("请输入第二个数") Print b&+a& End Sub ...
-
6、设有如下程序： Private Sub Form_Click() A=1 F
设有如下程序： Private Sub Form_Click() A=1 For i＝1 To 3 Select Case i Case 1,3 A＝A+1 Case 2,4 A＝A+2 End Select Next i Print A End Sub 程序运行后，单击窗体，则在窗体上显示的内容是A6B5C4D3