如何用form的程式判斷數字是否為質數(重賞)

Question

如何用form的程式判斷數字是否為質數???
請附上完整的程式及註解!!!

Answer 1

Private Sub Form_Activate()

Dim f As Boolean
n = Val(InputBox(""))
For q = 2 To n
f = True
For w = 2 To n \ 2
If n Mod w = 0 Then f = False: Exit For
Next
Next
If f Then
MsgBox (n & "是質數")
Else
MsgBox (n & "不是質數")
End If

End Sub

如果還有什麼問題可以再問吧～～

2006-04-04 21:44:18 補充：
to 泰爺
如果有看不懂得可以問我~~~
我是那個"問號"
>"

Answer 2

請問Dim f As Boolean還有 f = False: Exit For是什麼意思?

Answer 3

http://www.tvbs2100.com/ezs/vb/vb-index.htm
我的程式 歡迎參考看看

Answer 4

'值數不就是與比他小比二大的東西都互質嗎？
用法：trackprime(數字)


function trackprime(totrack as integer)
dim ans as boolean
ans = true
for i = 2 to totrack
'從2開始比較
if totrack mod i = 0 then
'假如這i是totrack的因數，就傳回否
ans = false
'假如都沒有他的因數，這答案就不用改了，一定是True
exit for
end if
next i

return ans
end function

2006-04-03 19:55:35 補充：
我想是用form_load吧

Answer 5

什麼市form的程式?