Dim i As Integer, t As Single, s As Doublei = 0t = 1Do While t >= 1 / 10 ^ 8t = 1 / (1 + i) ^ 2s = s + ti = i + 1Loops = Sqr(s * 6)Print s
