مساعدة بالكود

لو توضح اكثر بمثال لعدد اولي واخر غير اولي

حسب توضيحك العدد الأولي هو الذي يقبل القسمة على نفسة وعلى الواحد فقط !!!

ماقدرت بتعريفك احصل على عدد غير أولي

اعطيني عدد غير أولي (لايقبل القسمة على نفسة أو على الواحد)

والمعذرة

حفظك الله

تعريف العدد الاولى :

هو العدد الذى تكون مجموعه عوامله عددين فقط الواحد الصحيح والعدد نفسه

بمعنى أخر هو العدد الذى لايقبل القسمه إلا على نفسه والواحد الصحيح

جرب هذا الكود يختبر لك إن كان العدد اولى أم لا

Function PrimeNum(X As Integer) As Boolean

Dim I As Integer
If X = 1 Then
    PrimeNum = False
    Exit Function
End If
If X = 2 Then
    PrimeNum = True
    Exit Function
End If
For I = 2 To X  2
    If X Mod I = 0 Then
        PrimeNum = False
        Exit Function
    End If
Next I
    PrimeNum = True

End Function

ولإستخدام هذا الكود نكتب الاتى

Private Sub Command1_Click()
Dim I As Integer
For I = 1 To 1000
    MsgBox "Then Number " & I & " Is Prime:" & PrimeNum(I)
Next
End Sub