بســم الله الـرحمــن الرحيــم
السلام عليكــم ورحمـة الله وبركاتــه
اريد منكم المساعده شرح مبسط لهذا الكود
Dim x, sum, counter As Integer
sum = 0
For counter = 0 To 100 Step 1
sum = sum + counter
If sum > 5 Then
Exit For
End If
Next counter
sum = sum
End Sub
كيف ظهر الناتج
6
إذا كانت المشكلة أنك تريده/تريدينه أن يكون 5، فيجب أن تكون جملة If قبل الزيادة، يعني يصبح هكذا:
علماً أن Sum = Sum لا فائدة منها
وفقك الله
هذه الجملة خاطئة :wacko:
لأنك ملأت المتغير الرقمي Sum أولا بالقيمة صفر
ومن ثم قمت بعمل تكرار يبدأ من صفر وينتهي بـ 100 ويزيد بمعدل 1 كل مرة تكرار
ثم قمت بإضافة مرة التكرار على المتغير الرقمي Sum
أي ما حدث كالتالي
0 + 0 = 0
1 + 0 = 1
2 + 1 = 3
3 + 3 = 6
أي
sum = sum + counter
وبعد كل مره تملأ فيها المتغير Sum بالناتج تمر على شرطا هدفه إنهاء التكرار في حالة أن Sum > 5
وأول رقم مررت به لتنفيذ الشرط هو الناتج 6
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي