vb编程求 pi=4(1-1 3 1 5-1 7 1 9.....) 求20项