好久没写代码了,写个复数种试试看

Partial Class Complex
    Private MustInherit Class ComplexBase
        Protected gMaster As Double '实部或模
        Protected gSecondary As Double '虚部或辐角

        Private gIsNAN As Boolean = False '数据无效标志
        Private gRoundDigits As Integer = -1 '输出小数有效位。在0至15之间。如是负数,则不取舍

        Sub New()
            Me.Load(0, 0)
        End Sub

        Sub New(ByVal master As Double, ByVal secondary As Double)
            Me.DoBeforeLoad(master, secondary) '使用(模,辐角)表示时,模不能为负值

            Me.Load(master, secondary)
        End Sub

        Protected Sub Load(ByVal master As Double, ByVal secondary As Double)
            Me.gMaster = master
            Me.gSecondary = secondary

            DoAfterLoad() '使用(模,辐角)表示时,在此处理辐角主值
            Me.CheckNAN() '测试数据是否无效
        End Sub

        Protected Overridable Sub DoBeforeLoad(ByVal master As Double, ByVal secondary As Double)
        End Sub

        Protected Overridable Sub DoAfterLoad()
        End Sub

        Public ReadOnly Property IsNAN() As Boolean
            Get
                Return gIsNAN
            End Get
        End Property

        Protected MustOverride Function InternalCheckNAN() As Boolean '实现数据无效判定

        Public Sub CheckNAN()
            gIsNAN = InternalCheckNAN()
        End Sub

        Public Property RoundDigits() As Integer
            Get
                Return gRoundDigits
            End Get
            Set(ByVal value As Integer)
                If value > 15 Then
                    gRoundDigits = 15
                Else
                    gRoundDigits = value
                End If
            End Set
        End Property

        '小数位取舍
        Protected Function Round(ByVal value As Double) As Double
            If Me.RoundDigits < 0 Then Return value

            Return Math.Round(value, Me.RoundDigits)
        End Function

        '小数位取舍后输出为字串
        Protected Function RoundString(ByVal value As Double, Optional ByVal NotSign As Boolean = True) As String
            Dim tmp As Double = value

            If NotSign Then '忽略正负号
                If tmp < 0 Then
                    tmp = -tmp
                End If
            End If

            Return Round(tmp).ToString
        End Function

        MustOverride Sub Add(ByVal value As Object)

        MustOverride Sub Subtract(ByVal value As Object)

        MustOverride Sub Multy(ByVal value As Object)

        MustOverride Sub Divide(ByVal value As Object)

        MustOverride Overloads Function ToString(ByVal format As String) As String

    End Class

End Class