单项选择题

下列程序执行后,变量a的值为( )。
Dim a,b,c,d As Single
a=10:b=20:c=40
If b>a Then
d=a:a=b:b=d
End If
If c>a Then
d=a:a=c:c=d
End If
If c>b Then
d=b:b=c:c=d
End If

A.10
B.40
C.20
D.100