اخر سؤال في اسئلة الفصل الثالث بكتاب الوزاره !!!!!
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
__________________
اللهم انصر الاسلام واعز المسلمين
|