求助：数据显示出错？

[lb3376]

最近写的一个程序老是显示出错了，这是一个统计的代码？
部分代码如下：

	dim n1,n2,n3,s1,s2,s3
n1=0:n2=0:n3=0:s1=0:s2=0:s3=0
.......
	  If rs_r("record_tp")=37 Then
	  tp=2
	  n2=n2+1
	  s2=s2+rs_r("record_sum")
	  ElseIf rs_r("record_incometype")<>0 Then
	  tp=1
	  n1=n1+1
	  s1=s1+rs_r("record_sum")
	  Else
	  tp=0
	  n0=n0+1
	  s0=s0+rs_r("record_sum")
	  End If

<div align="center" style=" color: #009; padding:5px;">本页小计：支出<%=n0%>笔总计<%=s0%>元，收入<%=n1%>笔总计<%=s1%>元，转账<%=n2%>笔总计<%=s2%>元，结余<%response.Write(cdbl(s1-s0))%>元</div>

说明：record_sum为长整型，默认保留2位小数
但是显示出来结果是：
本页小计：支出32笔总计5312.14元，收入8笔总计4507.79元，转账0笔总计0元，结余-804.349999999999元
点下一页就显示正常，我看了数据库和代码，好像都没有问题，这种出错是这么回事？？该怎么修改？？？

[lb3376]

上传两个图片

[孟子E章]

脚本进行浮点运算有误差。你都转成整数进行运算 结余<%response.Write (s1*100-s0*100)/100 %>元