استخدام الحلقة التكرارية
(For …..Next)
تستخدم لتكرار
مجموعة أوامر فى حالة معرفة عدد مرات التكرار مسبقاً
صيغة الجملة For……. Next
For Variable =
Start to End [Step n]
Code
Next [Variable]
شرح صيغة الجملة او الامر For…..Next
معلومات هامة :
1 – متغير العداد Counter هو متغير
رقمى يستعمله المبرمج لحساب عدد مرات التكرار .
2 – كتابة امر Step
اختيارى لذلك تم وضعها داخل الأقواس [ ]
وفى حالة عدم كتابته تاخذ قيمة افتراضية بــ ( ( 1
3 – كتابة اسم المتغير بعد Next اختيارى .
4 – اذا كانت قيمة بداية العداد اقل من قيمة النهاية يكون مقدار الزيادة بالموجب
.
5 – واذا كانت قيمه بداية العداد اكبر من قيمة النهاية
يكون مقدار الزيادة بالسالب .
أمثلة للتوضيح
For X = 1 To 100
For X = 1 To 100 Step 1
تتغير قيم العداد X من ( 1 ) إلى 100 بزيادة ( 1 ) فى
كل مرة ويتم التكرار ( 100 ) مرة .
ـــــــــــــــــــــــــ
For Counter = 5 to 50 Step 5
تتغير قيم العداد ( Counter ) من 5 إلى 50 بزيادة ( 5 ) فى كل
مرة ويتم التكرار ( 10 ) مرات .
ـــــــــــــــــــــــــ
For X = 10 To 2 Step -2
تتغير قيم العداد X من 10 إلى ( 2 ) بإضافة (-2 ) (
نقص 2 ) فى كل مرة ويتم التكرار 5 مرات .
ـــــــــــــــــــــــــ
For X = 11 To 19 Step 2
تتغير قيم العداد X بالترتيب ( 19 ، 17 ، 15 ، 13 ،
11 ) أى يتم التكرار 5 مرات .
ـــــــــــــــــــــــــ
For X = 49 To 21 Step -7
تتغير قيم العداد X بالترتيب الآتى ( 21 ، 28 ، 35 ،
42 ، 49 ) ويتم التكرار 5 مرات
محمود الانصاري محمود محمد ، حاصل علي بكالوريوس تربية نوعية عام 2009 ، مدرس مادة الكمبيوتر وتكنولوجيا المعلومات بمدرسة القدس الشريف للتعليم الاساسي بالمرحلة الاعدادية ، ومسجل لدرجة الماجستير بتربية نوعية بنها
8 التعليقات
إضغط هنا لـ التعليقاتما هو الناتج الذي سوف يظهر في الأداة msgbox
ردdim y,z as single
for y = 0 to 5
next
z=y
الاجابه 6 لانها اخر قيمه للتغير y بعد انتهاء التكرار
ردكم عدد مرات التكرار في الكود التالي
ردDim x,y,i as integer
X=4^2+3
Y=2^3+5
If x>y then
For i= 4to13 step4
X=x_1
Y=y +1
Next
End if
كم عدد مرات التكرار في الكود التالي
ردDim x,y,i as integer
X=4^2+3
Y=2^3+5
If x>y then
For i= 4to13 step4
X=x_1
Y=y +1
Next
End if
كيف يتم إدخال الدول العربية الثالية مصر تونس السعودية من خلال الاداى لست بوكس والاداة كومبوبوكس
رد3
ردما قيمه x وNبعد انتهاء التكرار
ردDimN, X As Integer
X=4
ForN=1To4 step 2
X=X+2
Next
Msgbox(X)
Msgbox(N)
كيف يتم كتابة كود لحساب مجموع 5 اعداد بجملةfor next
ردتحويل كود إخفاء محول الأكواد الإبتسامات إخفاء