用下面的近似公式求Pi的近似值,直到第n项绝对值小于10~5为止.Pi/4=1-1/3+1/5-

Private Sub Command1_Click()
a = 1
Do
n = n + 1
m = 2 * n - 1
s = s + a * 1 / m
a = -a
Loop Until Abs(1 / m) < 10 ^ -6
pi = 4 * s
Print "pi=" & pi
End Sub真的可以吗