|
Senior Member
|
請教學過VB6的前輩...
這是一個檢查質數的程式,已經查過輸了,但有些地方不甚明瞭,麻煩前輩指點迷津,謝謝!
Private Function abc(ByVal Number As Integer) As Byte
'1 = 是質數
'2 = 不是質數
'3 = 輸入錯誤
Dim a As Integer
(a代表的是什麼???)
Dim b As Integer
(為何要宣告b???程式碼內完全沒有提到b...)
If Number <= 1 Then
abc = 3
(上面這小段程式碼麻煩解說,謝謝)
Exit Function
End If
If Number = 2 Then abc = 1
Number = Fix(Number)
(為何要加上"Fix(Number)"???不加上去會有什麼差異???)
For a = 2 To Number - 1
(2 To Number - 1這一段不懂???)
If Number Mod a = 0 Then
(Mod的意義是什麼???)
abc = 2
Exit Function
End If
Next a
abc = 1
End Function
|