VB程序代码,求每一行之和