设有如下程序:Private Sub Command1_Click() Dim sum As Double x As Double sum=0 n=0 For i=1

设有如下程序： 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/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

您可能感兴趣的试题

设有如下程序：Private Sub Commandl_click（)Dim c As Integer,d As Integerc=4d=InputBox（"请输

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

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

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

答案解析
设有如下程序: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

答案解析
设有如下程序:Private Sub Form_ Click() Dim a Dim i As Integer j As Integer a = Array(1 2 3

答案解析