例のアレ.vb

Sub Main()
  Console.Title = "ACID CALC"
  Dim Result As Decimal
  Dim Count As Long
    Parallel.For(1, CLng(Math.Pow(Decimal.MaxValue, 1D / 3D) - Math.Pow(Decimal.MaxValue, 1D / 9D)),
    Sub(index)
      Count += 1
      Result += 2 / (index + index ^ 3)
      Console.WriteLine("{0}  Count:{1}", Result, Count)
    End Sub)
    Console.ReadKey(True)
End Sub