طلب فكرة كود برنامج

السلام عليكم و رحمة الله وبركاته

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

وهذا كود يبسط لك الفكرة حيث يطبع جميع الأعداد التي تقبل القسمة على رقم تقوم بإدخاله في Text1

Private Sub Command1_Click()
For i = 1 To val(Text1.Text)
If val(Text1.Text) Mod i = 0 Then
Print i
End If
Next i
End Sub

هذا والله أعلم

السلام عليكم ورحمة الله وبركاته

قبل اي شئ اود ان اشكر Aladdin86 لتوضيحه الى الامر

ولكن الفكره اساسا غير منطقه من منطلق (ويطبع جميع الارقام التي تقبل القسمة عليه ) فا الارقام لن تنتهي ...............

ولكن لا بد من محدودية الارقام يعني من الممكن القول ويطبع جميع الارقام التي تكون اقل منه التي تقبل القسمة عليه .

ارجو ان يتضح لك ما اقصده ,,,,

بالتوفيق ,,,,

A7med_prof

الأخ الفاضل ...

بسم الله ما شاء الله اخى Aladdin86 ، فهمت السؤال رغم انه لغوياً فيه تداخل مفاهيم، الكود الذى كتبته صحيح 100% ويعمل 100%، ولكن اسمح لى بتعليق بسيط، وهو أن جميع الأرقام التى أكبر من نصف الرقم محل الإختبار لن تقبل القسمة عليه‘ أوضح أكثر بمعنى تانى، لنفترض أن الرقم هو 23فنصف الرقم سيكون 11 مجازاً (لأن الـStep فى الـ For...Loop بـ 1) فالأرقام من 12 إلى 22 لن تقبل القسمع بدون باقى على 23 (بالطبع جميع الأرقام تقبل القسمه على نفسها بدون باقى والناتج 1 [مسلمة]) فيمكن للسرعة (وأختصار نصف الدورات) جعل الحلقة التكرارية بالشكل

For i = 1 To val(Text1.Text)/2

راجع: كيف اقوم بطباعة الأعداد الأولية بين 0 و 100

أما أخى السائل إذا كنت تقصد حرفياً ما ذكرت (لا أعتقد ذلك)، فـ(جميع الارقام التي تقبل القسمة عليه) هى حاصل ضرب اى رقم صحيح فى هذا الرقم، بمعنى لو فرضنا أن الرقم n فيكون الناتج (n*1 , n*2 , n*3 , ......... n*x) أى بصيغة رياضية (n*x) حيث x = رقم صحيح، هذه الفكرة، والأخ Aladdin86 أعطاك الكود :)

شكراً

مشكورين اخواني وجزاكم الله ألف خير