问题

设有如下程序： Private Sub Cimmandl_Click． Dim sum As Double, x As Double Sum=0 n =0 F

设有如下程序： 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 Commandl_click（)Dim c As Integer,d As Integerc=4d=InputBox（"请输

答案解析
设有一个命令按钮Command1的事件过程以及一个函数过程，程序如下：Private Sub Command1_Click（) S

答案解析
设有如下程序:Private Sub Commandl Click()Dimsum As Double x As D0ublesum=0n=0For i=1 To 5x

答案解析
设有如下程序:Private Sub Form. Click( ) Dim s As Long f As Long Dim n As Integer i As Int

答案解析
设有如下程序:Private Sub Command1_Click()Dim c As Integer d As Integerc=4d=InputBox(“请输

答案解析
设有如下程序:Option Base 0Private Sub Form_Click( )Dim aDim i As Integera=Array(1 2 3 4 5

答案解析