جملة التكرار For next

في هذه الجملة التكرارية يمكنك تحديد تكرار امر معين  عدة مرات حتى تصل إلى شرط معين

تركيب الجملة :

[For var=[startValue] To [endValue] [Step

   [loopBody]

[Next [var

أو

(For i = (StartValue) to (EndValue

Condition

Next i

مثال :

إذا اردنا أن نظهر الأعداد من 1 إلى 5

Dim var As Integer


Dim startVal As Integer


Dim endVal As Integer


endVal = 5


startVal = 1


For var = startVal To endVal


("MsgBox("Message Box Shows " &   var &   " Times


Next var