تشخیص دادن اعداد اول در ویژوال بیسیک

[questionn]

با سلام چند تا سوال داشتم که اگه به این سوالات جواب بدهید واقعا متشکر می شوم
برنامه ای بنویسید که تشخیص دهد که عدد n اول است یا خیر؟؟

اگر به این سوالات جواب بدهید واقعا متشکر می شوم در ضمن این سوالات با ویژوال بیسک می باشد و با for تو در تو می باشد با تشکز

 

[the_king]

با سلام چند تا سوال داشتم که اگه به این سوالات جواب بدهید واقعا متشکر می شوم
برنامه ای بنویسید که تشخیص دهد که عدد n اول است یا خیر؟؟

اگر به این سوالات جواب بدهید واقعا متشکر می شوم در ضمن این سوالات با ویژوال بیسک می باشد و با for تو در تو می باشد با تشکز

لطفا سوالات جداگانه رو در تاپیک های جداگانه ای مطرح کنید، وقتی کسی عنوان تاپیک "کمک سوال" رو
می بینه هیچ اطلاعاتی در مورد موضوع مبحث کسب نمی کنه در حالی که عنوان تاپیک باید خلاصه ای از موضوع
مبحث باشه.

تاپیک به تاپیک های جداگانه تفکیک گردید.

    Dim i As Long, n As Long
    n = Val(InputBox("Please enter a number :"))
    For i = 2 To n - 1
        If n Mod i = 0 Then Exit For
    Next
    If n = i Then
        MsgBox "yes"
    Else
        MsgBox "no"
    End If