61.問題:利用沃利斯公式計(jì)算圓周率π的近似值,其公式如下:
=
×
×
×
×
×
×
×
……
(說明:圓周率π是一個(gè)在數(shù)學(xué)中常用的數(shù)學(xué)常數(shù),它是圓的周長(zhǎng)與直徑的比值,也等于圓的面積與半徑平方之比)
請(qǐng)編寫程序計(jì)算前10000項(xiàng)時(shí)圓周率π的近似值。
算法描述如圖所示,請(qǐng)將程序補(bǔ)充完整。
Private Sub Form_Click
Dim s As Double,i As Long,pi As Double
s=
For i=1 To 10000
If i Mod 2<>0 Then
s=s*(i+1)/i
Else
s=
End If
Next i
pi=
Print“圓周率π的近似值為“,pi
End Sub