vb作业用公式求的近似值,直到最后一项的绝对值小于10-6为止