عدد اول

[vafanezhad]

سلام دوستان چطور ميشه با استفاده از دستور forتعيين كرد كه عدد وارد شده توسط كاربر عدد اول(عددي كه بر خود و بر 1 بخش پذير باشد)است يا نه؟ممنون ميشم اگه جوابم رو بديد

[IamOverlord]

Public Function IsPrime(Number) As Boolean
Dim n As Currency
Dim i As Currency
Dim f As Boolean
i = 2
f = False
n = CCur(Number)
For i = 2 To Int(n / 2)
If n Mod i = 0 Then f = 1
Next i
If n < 2 Then f = 1
If f = 0 Then IsPrime = True Else IsPrime = False
End Function

[IamOverlord]

البته می شد از 2 تا جذر n رو چک کنید.