vb求和代码怎么写