老师给我的功课是设 ..

访客只能看到部份内容，免费 加入会员 或由脸书 Google 可以看到全部内容

假设 P>=Q
P*Q=N 则 N<>质数
则 最大因数为 P=Q=SQR(N)
因此

Dim A as String

A=""
K=int(sqr(N))

if N mod 2 =0 and N<>2 then ' 判断不是 2 的倍数
    A="不是质数"
    Exit sub
End if

if N <9 then '防呆 N=2,3,5,7 如此让 for next 偷鸡可以用 Step 2
    A="质数"
    Exit sub
End if

for i = 3 to K step 2
if N mod i =0 then
    A="不是质数"
    Exit for
End if
next i

if A="" then A="质数"

我只是有兴趣,不知道对不对,至于正确写法自己改一下喽.......

下面是引用 枫叶物语 于 2009-11-04 19:37 发表的 vb质数判别:
老师给我的功课是设计质数判别
但是我是vb新手
请各位好心的大大教教我

设计质数??
把质数当论文吗??
新手不会写程式，应该会分析吧??
质数在数学中不是除了 1 与本身的值外
不能被整除吗??
所以不管哪种程式
for i=2 to n -1 应该不难吧
if  n mod i = 0 也不难吧
------------------------------------------------
题外话
把 i 的倍数去除
程式会更有效率
祝好运

质数的判别还可以使用开跟的方式也能加快速度
相关论文很多.

筛法也是一种选择