MSHFlexGrid 对一列数值求和

如何对 MSHFlexGrid、记录集 一列数值求和，用简单点的命令语法之类的，求教！！！
还有如何把一个整数转换成带小数点的形式，例如：500 转换成500.00，谢谢了~！

最简单的就是用循环了
for r=1 to msflexgrid1.rows-1
s=s+val(msflexgrid1.textmatrix(r,c))
next r

转换格式用 format(x,"0.00")

Dim s As Long Dim i As Integer Dim col As Integer col = 5 '第5列 For i = 1 To MSFlexGrid1.Rows - 1 s = s + Val(MSFlexGrid1.TextMatrix(i, col)) Next a=500 a=format(a,"0.00") 'a=500.00

最简单的就是用循环了 for r=1 to msflexgrid1.rows-1 s=s+val(msflexgrid1.textmatrix(r,c)) next r 转换格式用 format(x,"0.00") 再看看别人怎么说的。