|
#62
20-03-2013, 09:43 AM
|
|||
|
|||
مشكور علي المجهود
|
|
#64
20-03-2013, 07:06 PM
|
|||
|
|||
ربنا يوفقك يا استاذة ويجزيك خير إن شاء الله .
|
|
#66
22-03-2013, 06:49 PM
|
|||
|
|||
|
جزاك الله خيرا
|
|
#68
22-03-2013, 11:22 PM
|
||||
|
||||
|
اقتباس:
Dim a , b , c as integer If a mod b = 0 then For c = a to b step2 Msgbox ( c ) Next End if بس ده لو زوجى
__________________
ـــــــــــــــــــــــــــــــــــــــــــــــ لا إله إلا أنت سبحانك إنى كنت من الظالمين
|
|
#69
23-03-2013, 04:25 AM
|
||||
|
||||
|
اقتباس:
ونضع buton على النموذج ثم تكتب فيه البرمجة التاليه Dim a, b, c As Integer ("ادخل الرقم الأول")a=inpubox ("ادخل الرقم الأخير")b=inpubox If a Mod 2 = 0 Or a = 0 Then a = a + 1 For c = a To b Step 2 MsgBox(c) Next آخر تعديل بواسطة الأستاذة / أم أمل ، 23-03-2013 الساعة 04:36 AM
|
|
#72
23-03-2013, 07:50 PM
|
|||
|
|||
|
أشكر يا أستاذة علي مجهودك الرائع ولكن لي ملاحظة أرجو أن تتقبليها مني
الشرح في هذة الاسطوانة مختصر جدا بخلاف الاسطوانة الأولي علي الرغم بان منهج الترم الثاني مليئ بالتدريبات التي تحتاج لشرح و تفصيل ولكنك لم تتعرضي لها ولكن لكي كل الاحترام علي هذا العمل أخوكي سمير صبري
|
|
#74
23-03-2013, 10:44 PM
|
|||
|
|||
|
اقتباس:
__________________
|
 |
| العلامات المرجعية |
«
الموضوع السابق
|
الموضوع التالي
»
| أدوات الموضوع | |
| انواع عرض الموضوع | |
العرض العادي
|
|
جميع الأوقات بتوقيت GMT +2. الساعة الآن 08:35 PM.
