[برنامج كاشف الأرقام الاولية] أول برنامج لي في ال Vb.net

 

[color= #0600FF;]Function IsPrim[color= #000000;]([color= #FF8000;]ByVal number [color= #FF8000;]As [color= #FF0000;]Integer[color= #000000;]) [color= #FF8000;]As [color= #FF0000;]Boolean  

        [color= #0600FF;]Dim i [color= #FF8000;]As [color= #FF0000;]Integer

        i [color= #008000;]= [color= #FF0000;]2

        [color= #0600FF;]If number [color= #008000;]= [color= #FF0000;]2 [color= #FF8000;]Then

            [color= #FF8000;]Return [color= #0600FF;]True

        [color= #FF8000;]ElseIf number [color= #804040;]Mod i <> [color= #FF0000;]0 [color= #FF8000;]Then

            [color= #0600FF;]Dim UpperLimit [color= #FF8000;]As [color= #FF0000;]Integer [color= #008000;]= Math.[color= #0600FF;]Sqrt[color= #000000;](number[color= #000000;]) [color= #008080; font-style: italic;]'نظرية في الرياضيات

            i [color= #008000;]+= [color= #FF0000;]1

            [color= #0600FF;]Do [color= #0600FF;]While [color= #000000;](i <[color= #008000;]= UpperLimit[color= #000000;]) [color= #FF8000;]AndAlso [color= #000000;](number [color= #804040;]Mod i <> [color= #FF0000;]0[color= #000000;])

                i [color= #008000;]= i [color= #008000;]+ [color= #FF0000;]2 [color= #008080; font-style: italic;]'لايلزم الفسمة على الاعداد الزوجية

            [color= #0600FF;]Loop

 

            [color= #FF8000;]Return [color= #0600FF;]CBool[color= #000000;](i > UpperLimit[color= #000000;])

 

        [color= #FF8000;]Else

            [color= #FF8000;]Return [color= #0600FF;]False

        [color= #0600FF;]End [color= #0600FF;]If

 

    [color= #0600FF;]End [color= #0600FF;]Function