韦达式求π 的VB编程

用韦达式计算圆周率的编程

Private Sub Command1_Click()
n = Text1.Text
y = Sqr(2)
s = 1
For i = 1 To n
s = s * y / 2
y = Sqr(2 + y)
Next i
pi = 2 / s
Label2.Caption = "计算出π为：" + Str(pi)
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！