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
__________________
اللهم انصر الاسلام واعز المسلمين
|