vb求和函数sum