vb编写滑动平均程序改写版1