Готовые решения и полезные коды на Visual Basic .NET (Часть-1) - Visual Basic .NET - Ответ 5650826

Module Module1
 
    Sub Main()
        'Создание двух экземпляров класса комплексного числа
        Dim c1 As Complex = New Complex(1, 2)
        Dim c2 As Complex = New Complex(4, 5)
        Console.WriteLine("c1 = ({0}, {1}i)", c1.re, c1.im)
        Console.WriteLine("c2 = ({0}, {1}i)", c2.re, c2.im)
 
        'Сложение через метод
        Dim sum As Complex = Complex.Add(c1, c2)
        Console.WriteLine("c1 + c2= ({0}, {1}i)", sum.re, sum.im)
 
        'Вычитание через метод
        Dim suub As Complex = Complex.Suub(c1, c2)
        Console.WriteLine("c1 - c2= ({0}, {1}i)", suub.re, suub.im)
 
        'Сложение через перегруженый оператор
        Dim sum1 As Complex = c1 + c2
        Console.WriteLine("c1 + c2= ({0}, {1}i)", sum.re, sum.im)
 
        'Вычитание через перегруженный оператор
        Dim suub1 As Complex = c1 - c2
        Console.WriteLine("c1 - c2= ({0}, {1}i)", suub.re, suub.im)
 
        Console.ReadLine()
    End Sub
#Region "Complex" 'Класс комплексного числа
    Public Class Complex
 
        Public re As Double
        Public im As Double
 
        'Конструктор
        Public Sub New(ByVal r As Double, ByVal i As Double)
            re = r
            im = i
        End Sub
 
        'Метод сложения
        Public Shared Function Add(ByVal x1 As Complex, ByVal x2 As Complex)
            Return New Complex(x1.re + x2.re, x1.im + x2.im)
        End Function
 
        'Метод вычитания
        Public Shared Function Suub(ByVal x1 As Complex, ByVal x2 As Complex)
            Return New Complex(x1.re - x2.re, x1.im - x2.im)
        End Function
 
        'Перегрузка оператора +
        Public Shared Operator +(ByVal x1 As Complex, ByVal x2 As Complex)
            Return New Complex(x1.re + x2.re, x1.im + x2.im)
        End Operator
 
        'Перегрузка оператора -
        Public Shared Operator -(ByVal x1 As Complex, ByVal x2 As Complex)
            Return New Complex(x1.re - x2.re, x1.im - x2.im)
        End Operator
 
    End Class
#End Region
End Module