老師給我的功課是設 ..

訪客只能看到部份內容，免費 加入會員 或由臉書 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 的倍數去除
程式會更有效率
祝好運

質數的判別還可以使用開跟的方式也能加快速度
相關論文很多.

篩法也是一種選擇