اهلا وسهلا بك فى بوابة الثانوية العامة ... سجل الان

العودة   بوابة الثانوية العامة المصرية > القسم الإداري > أرشيف المنتدى

أرشيف المنتدى هنا نقل الموضوعات المكررة والروابط التى لا تعمل

 
 
أدوات الموضوع ابحث في الموضوع انواع عرض الموضوع
Prev المشاركة السابقة   المشاركة التالية Next
  #2  
قديم 26-04-2011, 09:23 AM
gomaa hamed gomaa hamed غير متواجد حالياً
عضو جديد
 
تاريخ التسجيل: Apr 2010
المشاركات: 15
معدل تقييم المستوى: 0
gomaa hamed is on a distinguished road
افتراضي

Dim R As integer
Dim Total As integer
For R = 1 to 8 Step2
Total = Total + R
Next
Msgebox ( Total
في البداية لازم تعرف إن عند التكرار لابد نقف عند القيمة الكبري بعد for يعنى التكرار سيكون 1 و 3 و 5 و 7 بخطوة 2 ثم نفوم بعملية تكرار العملية
total = total + r
total فى البداية =صفر
صفر + 1
1 + 3
4 + 5
9 + 7
و بذلك تصبح total بـ 16
 

العلامات المرجعية

أدوات الموضوع ابحث في الموضوع
ابحث في الموضوع:

البحث المتقدم
انواع عرض الموضوع

ضوابط المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا يمكنك اضافة مرفقات
لا يمكنك تعديل مشاركاتك

BB code متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع


جميع الأوقات بتوقيت GMT +2. الساعة الآن 10:11 PM.