13问答网 > VB 求π π=2* 2^2⼀(1*3) * 4^2⼀(3*5) * 6^2⼀(5*7) *……*(2 * n) ^ 2 ⼀ ((2 * n - 1) * (2 * n + 1))

VB 求π π=2* 2^2⼀(13) 4^2⼀(35) 6^2⼀(57) ……(2 n) ^ 2 ⼀ ((2 * n - 1) * (2 * n + 1))

2025-02-26 04:27:51

推荐回答（1个）

回答1：

For 循环的使用
Private Sub Form_Click()
Dim m#
m = 2
i = Val(InputBox("请输入n的值", "由n的值判断π的计算公式的收敛程度", 10, 6000, 6000))
For n = 1 To 100000
m = m * ((2 * n) ^ 2 / ((2 * n - 1) * (2 * n + 1)))
If n = i Then Exit For
Next n
Print
Print Tab(3); "当n"; "="; i; "时"; Tab(18); "π="; m
End Sub
Do 循环
Private Sub Form_Click()
Dim x#
a = Val(InputBox("请输入a的值", , 3))
x = a
Do While ((Abs(2 / 3 * x + a / (3 * x ^ 2) - x)) >= 0.00001)
x = 2 / 3 * x + a / (3 * x ^ 2)
Loop
Print
Print "当a="; a; "时"; " a"; "的立方根为"; x
End Sub