[Sci_MaHmoUd]

22

جرب وضع الكود داخل البرنامج ستجد الرساله بها 22

Dim Count, Sum As Integer
Count = 1
Sum = 0
Do While Count <= 10
Sum = Sum + Count
Count = Count + 3
Loop
MsgBox(sum)