有如下VB程序段：

Dim d As Integer, p As Integer

p = 2

d = 10

Do While d > 1

    p = 2 * p

    d = d － 1

Loop

Label1.Caption = Str(p)

该程序段运行后，在标签Label1中显示的内容是(  )

A、2

B、512 

C、1024

D、2048