Question

求一道vb题的答案,求代码计算π 的近似值，π 的计算公式为：2× 22／1×3 × 42／3×5 × 62／5×7 ×

Answer 1

Private Sub Command1_Click()

Dim i&, s!

s = 2

For i = 1 To 1000

s = s * (((2 * i) ^ 2) / ((2 * i - 1) * (2 * i + 1)))

If i = 10 Then Print Tab(5); "n=10"; Tab(15); "π近似值="; Format(s, "0.00000")

If i = 100 Then Print Tab(5); "n=100"; Tab(15); "π近似值="; Format(s, "0.00000")

If i = 1000 Then Print Tab(5); "n=1000"; Tab(15); "π近似值="; Format(s, "0.00000")

Next i

End Su