主题：如何保证比例计算数据后，其和相同

用高精度小数，或者最后得到的数据允许适当误差。

Dim a As Decimal = 1553
Dim b As Decimal= 253
Dim c As Decimal= 289
Dim d As Decimal= 325

Dim b1 As Decimal= b*1553/(b+c+d)
Dim b2 As Decimal= c*1553/(b+c+d)
Dim b3 As Decimal= d*1553/(b+c+d)
msgbox(b1+b2+b3)