单项选择题

有如下程序,该程序的执行结果为______。
Dim k As Integer
n=5
m=1
k=1
Do While k <= n
m=m*2
k=k+1
Loop
Print m

A.1
B.5
C.32
D.40