计算∏的近似值,单击按钮同时显示当n=10、100、1000时的结果

来源：百度知道 编辑：UC知道 时间：2024/06/11 00:35:11
∏=2*(2^2/1*3)*(4^2/3*5)*...*(2n^2)/(2n-1)*2n+1

Private Sub Command1_Click()
Dim i As Long, A As Double, B As Double, C As Double
A = 2
For i = 1 To 1000
A = A * (((2 * i) * (2 * i)) / ((2 * i - 1) * (2 * i + 1)))
If i = 10 Then Print "n=10" & Chr(9) & "∏近似=" & A
If i = 100 Then Print "n=100" & Chr(9) & "∏近似=" & A
If i = 1000 Then Print "n=1000" & Chr(9) & "∏近似=" & A
Next
End Sub