易语言 大数计算 大数支持库的使用实例

部分数据过大需要使用到大数计算，网上暂时没看到简单的例子实例，所以记录下。希望能帮上需要的人。

以下代码直接复制到易语言即可使用。支持库里需要勾选上    数值计算支持库

EC模块下载地址：易语言大数运算模块.ec-互联网文档类资源-CSDN下载

直接复制代码也可以使用！

.版本 2
.支持库 eCalc

.子程序 大数_运算_加, 文本型, 公开, 返回文本型运算结果
.参数 参_数值1, 文本型, , 运算数值1，数值为文本型
.参数 参_数值2, 文本型, , 运算数值2，数值为文本型
.参数 参_数值3, 文本型, 可空, 运算数值3，数值为文本型，可空
.参数 参_数值4, 文本型, 可空, 运算数值4，数值为文本型，可空
.局部变量 局_大数a, 大数
.局部变量 局_大数b, 大数
.局部变量 局_结果, 大数

局_大数a.导入文本 (参_数值1)
局_大数b.导入文本 (参_数值2)
局_结果 ＝ 局_大数a.加 (局_大数b)
.如果真 (是否为空 (参_数值3) ＝ 假)
    局_大数b ＝ 局_结果
    局_大数a.导入文本 (参_数值3)
    局_结果 ＝ 局_大数a.加 (局_大数b)
.如果真结束
.如果真 (是否为空 (参_数值4) ＝ 假)
    局_大数b ＝ 局_结果
    局_大数a.导入文本 (参_数值4)
    局_结果 ＝ 局_大数a.加 (局_大数b)
.如果真结束
' 返回值大于1000的，去掉小数
.如果真 (局_结果.导出文本 () ＞ “1000”)  ' 检测大于1000的清除小数
    局_结果.清除小数 ()
.