VbScript添加不使用十进制值

Question

dim a,b,c,d,act
a=86.90
b=12.87
c=0.23
d=CDbl(a)+CDbl(b)+CDbl(c)
act = CDbl(100)
d = CDbl(d)

Console.WriteLine("a : " & a)
Console.WriteLine("b : " & b)
Console.WriteLine("c : " & c)
Console.WriteLine("d : " & d)
Console.WriteLine("act : " & act)

if d=act then
    Console.WriteLine("Passed")
else
    Console.WriteLine("Failed")
end if

上述脚本不在if条件内。此问题仅在a=86.90时发生。如果a=86.91,b=12.87,c=0.22则满足if条件。任何人都可以帮助我吗？