pi = 3.14159265359
'
T = 99
'
pi = 0
For i = 1 To T
pi = pi + 1 / i ^ 2
Next i
pi = (6 * pi) ^ (1 / 2)
MsgBox pi
'
pi = 0
For i = 1 To T
pi = pi + 1 / i ^ 4
Next i
pi = (90 * pi) ^ (1 / 4)
MsgBox pi
'
pi = 0
For i = 1 To T
pi = pi + 1 / i ^ 6
Next i
pi = (945 * pi) ^ (1 / 6)
MsgBox pi
'
pi = 0
For i = 1 To T
pi = pi + 1 / i ^ 8
Next i
pi = (9450 * pi) ^ (1 / 8)
MsgBox pi
'
pi = 0
For i = 1 To T
pi = pi + (-1) ^ (i + 1) / (2 * i - 1)
Next i
pi = 4 * pi
MsgBox pi