单项选择题

下列程序执行后,变量a的值为
Dim a,b,C,d as single
a=100:b=20:c=1000
if b>a Then
d=a:a=b:b=d
End if
if c > a Then
d=b:b=c:c=d
End if

A.0
B.1000
C.20
D.100