Dim X , Y , I As Integer
X = 4 ^ 2 + 3
Y = 2 ^ 3 + 5
If X > Y Then
For I = 4 To 13 Step 4
X = X – 1
Y = Y + 1
Next
Else
X = X + 3
Y = Y * 2
I = X – Y
End If
Msgbox (X )
Msgbox ( Y)
Msgbox ( I )
اوجد
1- عدد مرات التكرار
2- قيمة x
3- قيمة Y
4- قيمة I

at the beginning
x = 19
y = 13

Y X I
4 18 14
8 17 15
12 16 16
16 - -

x=16
I = 16
Y=16

3 مرات تكرار
x=16
y=16
i=16

اختلف مع حضرتك يا مستر محمود ناجي الراعي
4 مرات
16 = i
16 = X
16 = Y

بعد إنتهاء تنفيذ الكود :
X = 16
y = 16
i = 16
عدد مرات التكرار هو 3

استاذي الفاضل الاستاذ محمود الشحات
المقصود بعدد مرات التكرار هو كم مرة تم تكرار محتوى الحلقة التكرارية (اي ما بين For و Next) وفي هذا المثال نجد انه تم التكرار فعلا ثلاث مرات وخرج من الحلقة التكرارية عندما وصل العداد إلي المرة الرابعة .
مثلما اقول (قم بالدوران حول هذا التراك خمس مرات فهل سوف يتوقف الدوران عند المرة الخامسة ام عندما تبدأ المرة السادسة فيها يتوقف التكرار ) .

مشكورين على الاجايات
ولكن وجدت اختلاف على عدد التكرارات
وللتاكد من الاجابه نقوم باجتسابها طبفا للقانون
(القيمه النهائيه - القيمه الاوليه ) / مقدار الزياده +1
((4-13)/4 ) +1 مع اهمال الكسر
4/9 =2 +1 = 3 مرات

عدد مرات التكرار 3 وهو عدد مرات تكرار تنفيذ الامر

عدد مرات التكرار = 3
x = 18
Y = 14
i = 16
أرجو التعليق على هذه الإجابة . شكراً

عدد مرات التكرار = 3
x = 18
Y = 14
i = 16
أرجو التعليق على هذه الإجابة . شكراً
عدد مرات التكرار=4(13-4)/4+1=9/4+1=2.5+1=3.5=4مرات تكرار
4-8-12-16 ولذلكi=16