ممكن حد يعرفني ازاي أحل المسائل دية .
Dim N, K , C As Integer
C = 10
For N = 1 To 10 Step 5
K = K + N
Next
IF N >= C Then
C = C + 1
End If

امال فين مرسنا العظام "أحمد القرني " و "Abo batta"

اولا لابد من عمل جدول لتتبع القيم الموجودة فى العداد وهى :
N = 1 ,6,11
ويتم تكرار المعادلة بعدد مرات التكرار ( 2 ) لان 11 خارج التكرار
K = 0+1 =1 ملاحظه انه تم اعطاء K قيمه صفر لانه لم يذكر قيمه لها
K = 1+6=7
وفى النهاية يتم سؤال هلN >= C ليكون الناتج TRUE وبالتالى يتم تنفيذ الاوامر التى تلى then لتصبح قيمة c
10+1 =11

امال فين مرسنا العظام "أحمد القرني " و "Abo batta"


فى البداية هنفذ الكود ده الاول
For N = 1 To 10 Step 5
K = K + N
Next

قيمة n
المرة الاولى للتكرار
n = 1
ويتم تكرار االمر k = k + n
بالتعويض عن قيمة k = 0 لانه لم يعطى قيمة لها وبالتعويض عن قيمة n = 1 ومنها تصبح قيمة k = 1

المرة الثانية للتكرار
n = 6
ويتم تكرار الامر k = k + n مرة ثانية
بالتعويض عن قيمة n = 6 وفيمة k = 1 ومنها تصبح قيمة k = 7

يتوقف التكرار عند قيمة n = 11 وينفذ ما بعد next واللى هو الكود ده

IF N >= C Then
C = C + 1
End If

قيمة الشرط n > = c يعنى 10=< 11 تبقى true ننفذ ما بعد Then وهو الامر c = c +1 وبالتعويض عن قيمة c = 10 ومنها تصبح قيمة c = 11

فى البداية هنفذ الكود ده الاول
For N = 1 To 10 Step 5
K = K + N
Next

قيمة n
المرة الاولى للتكرار
n = 1
ويتم تكرار االمر k = k + n
بالتعويض عن قيمة k = 0 لانه لم يعطى قيمة لها وبالتعويض عن قيمة n = 1 ومنها تصبح قيمة k = 1

المرة الثانية للتكرار
n = 6
ويتم تكرار الامر k = k + n مرة ثانية
بالتعويض عن قيمة n = 6 وفيمة k = 1 ومنها تصبح قيمة k = 7

يتوقف التكرار عند قيمة n = 11 وينفذ ما بعد next واللى هو الكود ده

IF N >= C Then
C = C + 1
End If

قيمة الشرط n > = c يعنى 10=< 11 تبقى true ننفذ ما بعد Then وهو الامر c = c +1 وبالتعويض عن قيمة c = 10 ومنها تصبح قيمة c = 11
أشكرك بشدة ..