vb怎么编算π的程序?

1.代码如下:
Private Sub Command1_Click()
Dim s As Double, x As Double
Dim k As Long
Dim sink As Integer
s = 0
x = 1
k = 1
sink = 1
Do While Abs(x) > 10 ^ (-8)
s = s + x
k = k + 2
sink = sink * (-1)
x = sink / k
Loop
s = s * 4
picture.Print s
End Sub
2.数学公式:π/4=1-1/3+1/5-1/7+...
★试试看,应该行★