多精度通用加法子程序源码_VB教程_网络编程_码蚁之家_www.codes91.com
返回首页
专题
网络编程
ASP教程 .NET教程 PHP教程 JSP教程 C#教程 Java教程 Delphi教程 VB教程 C/C++教程 Android开发 IOS开发 Windows Phone开发 Python教程 Ruby教程 移动开发 其他编程教程
网页制作
HTML教程 CSS教程 Dreamweaver教程 FrontPages教程 Javascript教程 web前端
数据库
SqlServer MySql Oracle Access DB2 SQLite 其他数据库
图形设计
photoshop教程 Fireworks教程 CorelDraw教程 Illustrator教程 AutoCad教程 FLASH教程
操作系统
Windows xp教程 Windows 7教程 Windows 8教程 Windows 2003教程 Windows Server 2008教程 Linux教程 Windows 10
网站运营
建站经验 SEO优化 站长心得 网赚技巧 网站推广 站长故事
手机学院
手机速递 安卓教程 iphone教程 手机评测 手机技巧 手机知识 手机应用 手机游戏 手机导购
网店宝典
开店指导 开店经验 网店装修 网店推广 网店seo 网购技巧
软件教程
办公软件 系统工具 媒体工具 压缩工具 图文处理 文件管理
范文之家
自我介绍 自我鉴定 写作模板 合同范本 工作总结 贺词祝福语 演讲致辞 思想汇报 入党申请书 实习报告 心得体会 工作计划 简历模板 工作报告 导游词 评语寄语 口号大全 策划书范文
信息工程
软件工程 企业开发 系统运维 软件测试
移民之家
移民动态 移民政策 移民百科 移民生活 技术移民 投资移民
知识大全
母婴 数码 摄影 装修 美文 常识 时尚 婚嫁 美食 养生 旅游 兴趣 职场 教育 文学 健康
问答大全
电脑网络 手机数码 QQ专区 生活 游戏 体育运动 娱乐明星 休闲爱好 文化艺术 社会民生 教育科学 健康医疗 商业理财 情感家庭 地区问题 其他
编程问答
IOS Android .NET Java C/C++ Delphi VC/MFC 其他语言 PHP MSSQL MYSQL Oracle 其他数据库 Web开发 Windows Linux 硬件/嵌入开发 网络通信 移动开发 云计算 企业IT 游戏开发
笑话大全
幽默笑话 爱情笑话 成人笑话 校园笑话 爆笑笑话 综合笑话 古代笑话 现代笑话 国外笑话

多精度通用加法子程序源码

来源:互联网  时间:2016/12/13 4:41:52

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
        Z

明星图片
相关文章
《 多精度通用加法子程序源码》由码蚁之家搜集整理于网络,
联系邮箱:mxgf168#qq.com(#改为@)