[أحـمد قرنى]

[QUOTE=mahmoudbeso;5121041]
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim r, sum As Integer
For r = 5 To 10 Step -1
sum = sum + r
Next
MsgBox(r)

ما هو ناتج البرنامج (0-5-10)

انا نفذت البرنامج وطلع الناتج 5 .................... ممكن حد يوضح السبب

لان حضرتك رقم البداية 5 اقل من رقم النهاية 10 لذا يجب ان يكون معدل الزيادة بالموجب حتى تصل قيمة البداية الى قيمة النهاية
ولكن وجدنا معدل الزيادة بالسالب وبالتالى يخرج البرنامج من التكرار اصلا ويقوم بعرض القيمة 5

أرجو ان اكون قد وفقت فى توضيح ذلك