求VB编程代码:题目:判断一个数是否是素数?

时间：2013.05.16 发布人：ktoxv759

已解决问题

谷歌ktoxv759用户在2013.05.16提交了关于“向日葵求VB编程代码:题目:判断一个数是否是素数?”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2024-10-30T13:57:06。谢谢!希望大家能够帮助她。

详细问题描述及疑问：谢谢!期待您的答案，真心佩服你,谢谢！

希望以下的回答，能够帮助你。

第1个回答

用户名：Pennyno1111 时间：2013.05.16

判断素数的原理是：
素数是只能被1和本身整除的数。例如3只能被1和3整除，17只能被1和17整除等等，想9就不是素数（能问答被1，3，9整除）。

编程的算法是：
穷举法，古就就是将需要判断的数除2、除3.一直除到这个数减1.
例如：判断7是不是素数的算法是进行如下运算7/2，7/3，7/4，7/5，7/6，在上述除的过程中如果都不能被除尽则可以断定7是素数，否则就说明7不是素数。
注意：编程时使用求余运算，判果殖子气八断是否能被除尽。
参考程序如下：
dimiasinteger
dimjasinteger
dimxasinteger
x=val(inputbox("请未入输入一个自然数：","输入提示"))
fori=2tox-1
距旧验屋间斗利板席难显ifxmodi=0thenexitfor
nexti
ifi=xthen'此处若i的值变为x则说明所以上面的循环全被执行完
printx&"是素数"
else
printx&"不是素数"'若i<x厚何取洋沿介纸则说明循环的中途x就能被除尽了
endif

当然程序还可以被优化，例如不一定非除到n-1,完全可以除到根号下n，
举例一：判断25是不是素数的话，只需要除到5即可
举例二：对于开根后是小数的可以取整，如判断15是不是素数只需要除到3即可。
简化后的程序运行速度会更快的。