問題：利用沃利斯公式計算圓周率π的近似值，其公式如下：

π

2

=

2

1

×

2

3

×

4

3

×

4

5

×

6

5

×

6

7

×

8

7

×

8

9

……
（說明：圓周率π是一個在數(shù)學中常用的數(shù)學常數(shù)，它是圓的周長與直徑的比值，也等于圓的面積與半徑平方之比）
請編寫程序計算前10000項時圓周率π的近似值。
算法描述如圖所示，請將程序補充完整。
Private Sub Form_Click

1

1

Dim s As Double,i As Long,pi As Double
s=

1

1

For i=1 To 10000
If i Mod 2＜＞0 Then
s=s*（i+1）/i
Else
s=

s*i/（i+1）

s*i/（i+1）

End If
Next i
pi=

s*2

s*2

Print“圓周率π的近似值為“，pi
End Sub