Imports System.Numerics
Module Example
Public Sub Main()
Dim values() As Complex = { New Complex(1, 1), New Complex(3, 5) }
For Each value As Complex In values
Dim r1 As Complex = Complex.Reciprocal(value)
Console.WriteLine("{0:N0} x {1:N2} = {2:N2}",
value, r1, value * r1)
Next
End Sub
End Module