大数运算（十）

Author：水如烟

用户使用的大数运算类

这里只是简单提供。可以考虑让它自动分拆多线程。

BigInt.vb

<Serializable()> _

Public Class BigInt

Private gMath As New MathsUnit

Public Property StringValue() As StringValue

Get

'转换为原存储方式

Return gMath.StringValue.CopyTo(gMath.OrignalAddressInfo.UnitNum)

End Get

Set(ByVal value As StringValue)

gMath.StringValue = value

End Set

End Property

Public Function Clone() As BigInt

Return CommonFunction.Clone(Of BigInt)(Me)

End Function

Public Sub CopyFrom(ByVal bInt As BigInt)

gMath.CopyFrom(bInt.gMath)

End Sub

Public Sub Add(ByVal bInt As BigInt)

gMath.Add(bInt.gMath)

End Sub

Public Shared Operator +(ByVal a As BigInt, ByVal b As BigInt) As BigInt

Dim c As BigInt = a.Clone

c.Add(b)

Return c

End Operator

Public Sub Multy(ByVal bInt As BigInt)

gMath.Multy(bInt.gMath)

End Sub

Public Shared Operator *(ByVal a As BigInt, ByVal b As BigInt) As BigInt

Dim c As BigInt = a.Clone

c.Multy(b)

Return c

End Operator

End Class

代码下载：代码