لطلبة 3 ع تعالوا نستفيد من اللي درسناه ونحل لغز الاستاذ جمال الدين عوض
احنا عايزين نحل اللغز
http://www.egyedu.com/vb/showthread.php?t=539
طب اللغز ايه
عدد
يبقى لابد من مخزن للعدد 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
 |
رد مع اقتباس
شكراً لهذا
أعجبني هذا
المفضلات