有如下VB程序段：
Dim k As Integer，s As Integer
k=0；s=0
Do While k>=10
k=k+1
s=s+k
Loop
该程序段执行后，变量s的值是（   ）

A．0

B．1

C．10

D．11