在单摆振动过程中，当摆球到达最高点时，下列说法正确的是（   ）

A．速度最小，势能最大，绳中拉力最大

B．速度最大，势能最小，绳中拉力最小

C．速度最小，势能最大，绳中拉力最小

D．速度最大，势能最小，绳中拉力最大

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