Код:
...
denom = -1: ourPi = 0 'Начальные значения переменных
For x = 1 To 20000000
denom = denom + 2 'Инкремент для знаменателя дробей
Select Case (denom + 4) Mod 4 'Проверка знака очередного слагаемого
Case 1: ourPi = ourPi + 4 / denom
Case 3: ourPi = ourPi - 4 / denom
End Select
Next x
...
