主题：代码简化问题

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

 

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

With dataTables("fa piao管理")
    currenttable(0,"材料")= .Compute("Sum(cl)","y = 1")

    currenttable(0,"收入")= .Compute("Sum(cl)","y = 1")
    ...
End With

dim a,c,d,e,f,g,h,m,i as Double

其它简化好象没多大意思。

谢谢