Dim i as Integer,x as Integer '变量声明
x=inputbox("请输入一个正整数(>=3):","判断素数") '取得要判断的数
For i=2 To x-1 ’这句循环的意思：从2到(x-1)这个范围中，有没有可以整除x的
If x mod i =0 then exit for ’若从2到(x-1)这个范围中，有可以整除x的，跳出循环，此时i就是x的一个约数
Next i
If i>=x-1 then ’这句话有问题，我改了一下，意思是：若一直到(x-1)还没有出现可以整除x的数，则它是素数
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024