输出结果是js，程序运行结果是正确的，速度没有版主wmf2014的快，优点是可以算无穷多位就是位数不受限制，如果版主能优化的话，非常感谢！非常欢迎！

300位四则运算才用几毫秒，神乎七鸡，我有兴趣继续关注。
2的64次方20位，300位的15倍，虾米诀窍能如此飞快，肯定不是跑步，是火箭，还是宇宙飞船？

谢谢指导关注！据说利用快速傅立叶变换或数论变换的大整数的乘法除法程序可以达到毫秒级的！我不懂，前面的vc版的程序也是快速乘法程序，不懂，好像就是利用快速傅立叶变换的乘法程序。
非常感谢！欢迎沟通欢迎关注！向你学习！

那么你的乘法根据虾米设计的，看描述反而比常规的求质数速度慢那么多？
都有些虾米资料可查？我搜索 快速傅里叶乘法 倒是有不少博客，有兴趣。
之前写过C#的字符串四则运算，速度奇慢，因为数据类型转换太多造成的，不如C++的快，之后对于字符串四则运算就没虾米兴趣了。

[此贴子已经被作者于2020-2-24 08:08编辑过]

我的乘法除法程序都是字符串模仿手工的程序，速度太慢。谢谢您！前面的一个vc程序就是利用快速傅立叶变换的乘法程序，供参考，您有空再看吧！

写的VB质数判断19位10000计算质数花费将近3小时，为求快速用傅里叶快速乘法，本不该使用模拟手工算法的。你给的那个例子js这个变量是怎么理解？

js为加减法可调用程序，如求a+b的和s为s=js（trim(a),trim(b),0）.
我不会傅立叶变换不懂原理，才用的模仿手工计算的程序，速度太慢。
向你学习，谢谢！

你说的js带参好理解也是对的，问题是这个循环里面的js不带参该如何理解？
J = UBound(Resu)
For i = 0 To j '合并数组resu，结果输出到js1
js = js & Resu(J - I)
Next

js1是不对的，不过是个注释，不影响程序，js&re……就是把后面的连起来，成字符串输出结果。
我的理解很浮浅，大致是这样吧？能算出来，结果也对。
您说的带参是啥？是说后面的括号？输入的时候要带括号，按可调用程序的要求输入需要的量，有几个良就在括号输入几个量，这就算接口程序吧？输出的时候就是把js当一个变量了，只能是输出一个量就是计算结果若还要有其它量那就得用字母或符号隔开的。

[此贴子已经被作者于2020-2-24 13:53编辑过]

比如：
J = UBound(Resu)
For i = 0 To j '合并数组resu，结果输出到js1
js = js & Resu(J - I)
Next
js=js & "=" & a1 & "+" & a2
这样就输出了和等于哪两个数的和。

[此贴子已经被作者于2020-2-24 14:06编辑过]