单项选择题

设有如下程序：
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
<上一题 目录 下一题>
热门 试题

单项选择题
在Activate事件过程中，写入下面的程序： Prirate Sub Form_Activate() Dim S As String，a As String，b As String a= * ：b= $ For i=1 To 4 If i 2=Int(i 2) Then S=String(Len(a)+i,b) Else S=String(Len(a)+i,a) End If Print S： Next i End Sub 运行程序后，显示的结果是( )。
A．$$***$$$$*****
B．*$$**$$***$$$****$$$$
C．**$$$****$$$$$
D．$*$$**$$$***$$$$****
单项选择题
在窗体上画一个命令按钮和两个标签，其名称分别为Command1、Label1和Label2，然后编写如下事件过程： Private Sub Command1_Click() a=0 For i=1 T0 10 a=a+1 b=0 For j=1 To 10 a=a+1 b=b+2 Next j Next i Label1.Caption=Str(a) Label2.Caption=Str(b) End Sub 程序运行后，单击命令按钮，在标签Label1和Label2中显示的内容分别是( )。
A．10和20
B．20和110
C．200和110
D．110和20
相关试题