بعض الأخطاء فى كتاب الفصل الدراسى الثانى وأرجو الرد عليها

[mahmoudbeso]

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 .................... ممكن حد يوضح السبب


End Sub