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

[单选题]设有如下程序 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 c As Integer,d As Integer c=4 d=InputBox("请输入一个整数") Do While d＞0 If d＞c Then c=c+1 End If d=InputBox("请输入一个整数") Loop Print c+d End Sub 程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9和0，则输出结果是( )。A．12B．11C．10D．

[单选题]设有如下程序： 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/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 C As Integer， d As Integer c=4 d=InputBox(“请输入一个整数”) Do While d＞0 If d＞c Then c=c+1 End If d=InputBox(“请输入一个整数”) Loop Print c+d End Sub 程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、 9和0，则输出结果是A．12B．11C．10D．9

[单选题]设有如下程序： 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 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 C As Integer, d As Integer c=4 d=InputBox("请输入一个整数") Do While d＞0 If d＞c Then c=c+1 End If d=InputBox("请输入一个整数") Loop Print c+d End Sub 程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是______。A．12B．11C．

[单选题]设有如下程序： Private Sub Command1_Click() Dim sum As Double, k As Double sum=0 n=0 For i=1 To 5 k=n/i n=n+1 sum=sum+k 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()a$="A WORKER IS HERE"x=Len(a$)F．or i=1 To x - 1b$=Mid$(a$, i, 3)If b$="WOR" Then S=S + 1NextPrint SE．nd Sub单击命令按钮，程序运行结果为A．1B．2C．3D．5