主题：代码简化问题

 这部份代码能简化吗，该怎样简化

 

dim a as Double

dim c as Double

dim d as Double

dim f as Double

dim g as Double

dim h as Double

dim m as Double

dim i as Double

dim b as String="1"

a=dataTables("fa piao管理").Compute("Sum(cl)","y = '"& b &"' ")

currenttable(0,"材料")=a

c=dataTables("fa piao管理").Compute("Sum(cl)","y = '"& b &"' ")

currenttable(0,"收入")= c

d=dataTables("fa piao管理").Compute("Sum(fl)","y = '"& b &"' ")

currenttable(0,"fl")= d

f=dataTables("fa piao管理").Compute("Sum(sf)","y = '"& b &"' ")

currenttable(0,"sf")=f

g=dataTables("fa piao管理").Compute("Sum(jm)","y = '"& b &"' ")

currenttable(0,"jm")= g

h=dataTables("fa piao管理").Compute("count(y)","y = '"& b &"' ")

currenttable(0,"srfp")= h

m=dataTables("流水帐").Compute("count(zc)","月 = '"& b &"' ")

currenttable(0,"zcfp")= m

i=dataTables("流水帐").Compute("Sum(zc)","月 = '"& b &"' ")

currenttable(0,"zc")=i

谢谢