vb中编写过程,计算π的近似值

Dim sign As Integer,a As Long,pi As Double
sign = -1
For i = 1 To 100000
a = 2 * i - 1
sign = -1 * sign
pi = pi + (1 / a) * sign
Next
pi = pi * 4
MsgBox pi