多精度通用加法源码

落叶

Type StrToZx                            '高精度数的结构头
            ZhFhBz As Boolean                        '正负号标志，正为1，负为0
            XsdWz As Long                          '小数点右边数字的长度。例1234.56中这个数是2
            JzBz As Integer                       '标记数组存的是多少进制的数（十进制或其它进制数）
            strlen As Long                         '操作数长度
            Zx() As Long                           '存放操作数的数组
            eE As Long                             '存放指数
        End Type

Public Function myADD(str1 As StrToZx, str2 As StrToZx) As StrToZx           '加法子程序，直接运算有符号整数，小数，和采用科学计数法表示的数
        Dim cc() As Long                                                     ' 存放字串1，和相加后得数
        Dim dd() As Long                                                     '存放字串2
        Dim jw As Integer                                                    '进位标志
        Dim jg As StrToZx                                                    '存放最终得数
        Dim string1 As StrToZx
        Dim string2 As StrToZx
        If zwbz = True Then
                Exit Function
        End If
        string1 = str1
        string2 = str2

        If string1.ZhFhBz = False And string2.ZhFhBz = True Then                   '符号相反做减法
            string1.ZhFhBz = True
            jg = myMINUS(string2, string1)
            GoTo line:
        End If
        If string1.ZhFhBz = True And string2.ZhFhBz = False Then                    '符号相反做减法
            string2.ZhFhBz = True
            jg = myMINUS(string1, string2)
            GoTo line:
        End If
        
        
        
        x = myCompare(string1, g0)                                                '两个加数中其中一个为零时快速计算
        y = myCompare(string2, g0)
        If x = 0 Then
           myADD = string2
           Exit Function
        End If
        If y = 0 Then
           myADD = string1
           Exit Function
        End If
     
        Dim cszd As Integer                                                         '转换成十进制
        cszd = 1
        string1 = Zjzzh(string1, cszd)
        string2 = Zjzzh(string2, cszd)
        edq string1, string2                                                        '指数对位,参数必需为十进制数
                           
        R1 = string1.XsdWz         '整形 例：123.1234567855+1234567855.123转换成0000000123.1234567855 +1234567855.1230000000
        L1 = string1.strlen - R1
        R2 = string2.XsdWz
        L2 = string2.strlen - R2
        If L1 >= L2 Then                                                           '保存两个数中小数点前方数字长度的最大值
            L = L1
        Else
            L = L2
        End If
        If R1 >= R2 Then                                                           '保存两个数中小数点后方数字长度的最大值
            R = R1
        Else
            R = R2
        End If
        Zlen = L + R
        ZlenTemp = Zlen + 1
        ReDim cc(-1 To ZlenTemp + 2) As Long                                           '字串对位
        ReDim dd(-1 To ZlenTemp + 2) As Long
        j = L - L1 + 2
        For i = 1 To string1.strlen                                                         '通过扩充方式进行字串对位,从左向右对位,但对位结果是向右看齐的
            cc(j) = string1.Zx(i)
            j = j + 1
        Next
        j = L - L2 + 2
        For i = 1 To string2.strlen                                                      '把123.1234567855扩充成0000000123.1234567855
            dd(j) = string2.Zx(i)
            j = j + 1
        Next

        jw = 0
        For i = ZlenTemp To 1 Step -1                                                     '加法运算
            cc(i) = cc(i) + dd(i) + jw
            If cc(i) >= 10 Then
                cc(i) = cc(i) - 10
                jw = 1
            Else
                jw = 0
            End If
        Next

        jg.JzBz = 1
        jg.strlen = ZlenTemp
        jg.XsdWz = R
        If (string1.ZhFhBz = False) And (string2.ZhFhBz = False) Then                              '符号都为负，前面加负号
            jg.ZhFhBz = False
        Else
            jg.ZhFhBz = True
        End If
        jg.Zx = cc()
        jg.eE = string1.eE
        jg = jdkz(jg, (jd + 4))
        jg = qslqwl(jg)
line:

        myADD = jg
        End Function

落叶

来个调试内存变化图
1.23456789+9.87654e3
操作数在内存中前后都多留两位的0
这个是两个加数传入的内存情况

下面是指数对位后两个加数的情况，加数在string1和strong2中

下面中的cc和dd中存放加数扩充对位后的情况

运算结果保存在cc中

落叶

下面的图是最后返回运算结果的图
jg 中存入返回值

1.23456789+9.87654e3   =9.87777456789E3