给你的代码加了个运行时间输出，你这个判断54位的素数时间太长了，需要78秒，我记得我的那个判断300位十进制数是否为素数用时不超过10毫秒。

Private Sub Command1_Click()
Dim a, n
Dim t As Double
t = Timer
n = Trim(Text1)
If Len(n) < 6 Then
Text2 = fenjieyinzi(Trim(n))
Else
n1 = MPC(Trim(n), 1)
a = 123
'a为明文
a1 = zzxc(Trim(n), Trim(a))
If Val(a1) > 1 Then
Text2 = a1 & "*"
Else
c = 999
'c为公钥
Do While zzxc(Trim(n1), Trim(c)) > 1
c = Val(c - 1)
Loop
d = qniyuan(Trim(c), Trim(n1))
'd为逆元为私钥
a2 = qksmimo(Trim(a), Trim(c), Trim(n))
'a2为密文
a3 = qksmimo(Trim(a2), Trim(d), Trim(n))
If MBJC(Trim(a3), Trim(a)) = 0 Then
Text2 = "这是素数有" & Len(n) & "位,用时" & Timer - t & "秒"
Else
Text2 = "2*2"
End If
End If
End If
End Sub

很好！是的，我的程序效率低，所以要搞出快速版大数运算程序。谢谢！希望您能给予指导！
与常规法验证比较举例:(这个程序仅仅是判断不做分解因数)
输入9999997，输出2*2，就是说是合数。
常规法:9999997=7*1428571。
输入1428571，输出:这是素数有7位。
常规法:1428571，这是个素数.

欢迎给予指导！欢迎给出快速乘法除法程序！祝各位老师朋友新春愉快！

介绍一下素数的判定原理方法：常规法是把整数的方根内的素数都试除一下，不能整除的就是素数。速度太慢。
筛法：把某数内的整数编号，把其方根内的素数的倍数去掉而剩下的是素数，效率高，占内存，不能算的太多。
拉宾-米勒法：利用费马定理，多试几个素数，也是利用前面用到的快速幂模程序，速度快概率高，而不是确定性的，有限个内人们知道某些数是会漏掉，可以排除，太大的数就不确定虽然概率高也是不确定性的算法。
还有一种是叫AKS算法：是确定性的，是三位顶级高手，顶级数学家搞出来的，是外国人。速度快，确定性的，可以计算大整数，但原理复杂，不容易实现，非高手编不了程序。我也理解不了具体原理。

前面的方法，比拉宾米勒靠谱，比AKS方便，是不是我的首发？不知道。
原理容易实现，我已经做出来了程序，但我的程序用到的大数计算程序速度慢，是用低效的程序做高效工作，凭的优良的数学原理方法和简捷的步骤，所以要做个快速乘法除法程序，这样就快速方便了。咱不图名不图利，自己方便感兴趣的朋友用到的方便，就好！
欢迎感兴趣的沟通探讨，欢迎给出快速乘法除法程序。

[此贴子已经被作者于2020-2-17 15:29编辑过]

我有个加解密软件，原理方法是与前面的体制完全不同的，是采用了随机密码或叫伪随机密码，密码规则是伪随机的，用于加密文本文件。同一个文件每点击一次产生的密文是不同的，不能用无穷枚举法，概率法等暴力攻击法破解的，不知道有没有用，起码可以当智力游戏玩，或朋友间密码通信（游戏活动），有感兴趣的朋友我可以发一下。

qq347895961联系

搜索不到，是qq还是微信？

您好！有qq或微信吗？欢迎联系！大整数的快速乘法除法程序至今我也弄不出来，请帮忙！

这两天要参加疫情防控，每天都要值班十小时以上，没精力弄。
今天休息，弄了下，仅仅在修改大数加减乘的情况下，就可以做到20秒完成，比你的速度快尽4倍，但除法无法达到要求。经调试你的除法，发现你输出结果包含余数，也按照你的要求输出余数，仍然得不到正确结果，我反复测试我的除法没问题的，是不是你的除法还包含了其他输出功能？

谢谢！已经不错了，辛苦了！我的除法没有其它功能，只是分类计算的，比如除数小于8位的就转为MCC()了。可能是这样吧，也是调试多少次多种类型才弄对的，有的类型过不去正常，只是一时找不到哪里错，慢慢会找到的，你可以重新编个除法程序，谢谢！