لطلبة 3 ع تعالوا نستفيد من اللي درسناه ونحل لغز الاستاذ جمال الدين عوض

[س ا يوسف]

احنا عايزين نحل اللغز

You can see links before reply

طب اللغز ايه
عدد
يبقى لابد من مخزن للعدد x ويكون من النوع integer
ماله العدد
اذا قسم على 2 يتبقى 1
يبقى ناتج باقي القسمة x mod 2 يساوي 1
وايه كمان
اذا قسم على 3 يتبقى 2
يبقى and و ناتج باقي القسمة x mod 3 يساوي 2
وهكذا الى 9
يبقى نستخدم if الشرطية مع الشروط المركبة and

if x mod 1 = 1 and x mod 2 = 2 and x mod 3 = 3 and x mod 4 = 4 and x mod 5 = 5 and x mod 6 = 6 and x mod 7 = 7 and x mod 8 = 8 and x mod 9 = 9 then
يضاف العدد المحقق للشرط في ال listbox اي اسم لها وليكن lsts

(Me.lsts.items.add(x
ينهي الشرط

End if
عايزين نكرر هذا الاختبار
يبقى نكرر ب for …next
البداية واحد
طب النهاية خليها مليون ما هو الكمبيوتر اللي حيشتغل
ودي الاكواد

Dim x as integer

For x = 1 To 1000000

If x Mod 2 = 1 And x Mod 3 = 2 And x Mod 4 = 3 And
x Mod 5 = 4 And x Mod 6 = 5 And x Mod 7 = 6 And x Mod 8 = 7 And x Mod 9 = 8 Then

Me.lsts.items.add(x)

End If


Next

[mamdouh ali]

thakssss and good by

[أنت عشقي الوحيد]

شكراً

[gaser_salam]

شكررررررررررررررررررررررررررررررررا

[abdalla_117]

مشكووووووووووووووووووووووووووووووووووررررررررررر