طلب كود فيجوال بيسك لطباعة الأعداد الأولية

[nedal]

السلام عليكم ورحمة الله
ارجو من حضرتكم كتابة كود بلغة فيجوال بيسك 6.0 لطباعة الاعداد الاولية من 1-100
ولكم من جزيل الشكر
باحترام نضال

[stn555]

For x=1 to 100
Print x
Next

والله ولي التوفيق

[الزاهل]

هذا كود لطباعة الأعداد الأولية حتى 100 وفكرته بسيطة... والأعداد الأولية هي التي لا تقبل القسمة إلا على نفسها والواحد.

Private Sub Form_Load()
Dim prime(100) As Boolean
Dim i As Integer, i2 As Integer, max As Integer

max = 100

'نفترض في البداية أن كل الأرقام أولية
For i = 2 To max
        prime(i) = True
Next

' نبدأ من عند الرقم 2
' فنؤشر على كل مضاعفاته بأنها ليست أولية
' نكرر الخطوة السابقة لجميع الأرقام التالية حتى الرقم الذي يساوي جذر الحد الأعلى
For i = 2 To Sqr(max)
    For i2 = (i ^ 2) To max Step i
        prime(i2) = False
    Next
Next

' نطبع الأعداد الأولية
' وهي التي سلمت من إشارة False
' بمعنى التي ليس لها قابلية للقسمة إلا على نفسه أو الواحد
For i = 2 To max
    If prime(i) = True Then MsgBox i
Next

End Sub

[دنيا الأمل]

جزاك الله الف خير الزاهل