b求π为啥是错的PrivateSubCommand1Click()DimsAsInteger,nAsDouble,uAsDouble,piAsDouble,piiAsDoubleWhileAbs(u)>=0.001pi=pi+un=n+2s=-su=s/npii=4*piWendPrintpiiEndSub

Question

b求π为啥是错的
Private Sub Command1_Click()
Dim s As Integer,n As Double,u As Double,pi As Double,pii As Double
While Abs(u) >= 0.001
pi = pi + u
n = n + 2
s = -s
u = s / n
pii = 4 * pi
Wend
Print pii
End Sub

Answer 1

你要循环多少次呢?如果S开始是正的话,你循环一次不是变了负了吗?那U=S/N也变负了,那
Abs(u)>=0.001就不符合,跳出循环了