单项选择题

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

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() m=1:n=1 Print m= ; m; , n= ; n Call subl((m), n) Print m= ; ; , n= ; n End Sub Private Sub subl(x, y) x=x+5 y=y+x Print x= ; x; , y= ; y End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是______。

A．m=1, b=1
x=6, y=7
m=1, b=1
B．m=1, b=1
x=6, y=7
m=6, b=7
C．m=1, b=1
x=6, y=7
m=1, b=7
D．m=1, b=1
x=6, y=7
m=6, b=1

单项选择题

设有如下通用过程： Public Function f(x As Integer) Dim y As Integer x=20 y=2 f=x*y End Function 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Static x As Integer x=10 y=5 y=f(x) Print x; y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是______。

A．10 5
B．20 5
C．20 40
D．10 40

相关试题