vb编程计算分段函数