Dim s, i As IntegerDim n As Singles = 0: n = 1: i = 1While Abs(n) > 0.0001n = (-1) ^ (i - 1) / is = s + ni = i + 1WendPrint s
