Imports System.Numerics
Module Example
Public Sub Main()
Dim values() As Complex = { New Complex(1.3, 9.6),
New Complex(Double.MinValue/2, Double.MinValue/2) }
For Each value As Complex In values
Console.WriteLine("Exp(Log({0}) = {1}", value,
Complex.Exp(Complex.Log(value)))
Next
End Sub
End Module