Question

求一道vb题的答案,求代码

计算π 的近似值，π 的计算公式为：2× 22／1×3 × 42／3×5 × 62／5×7 ×··········× (2n)2／(2n-1)×(2n+1)
，要求：单击按钮同时显示当n=10、100、1000时的结果，利用Format函数保留5位小数。窗体中所有控件字体默认、大小为小四。效果如图4-2所示。
运用循环结构（for,do loop）

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 Sub