endVal = 5

For var = startVal To endVal

show message

Next var

السطر 1: تبدأ الحلقة بالقيمة من 1

السطر 2: ستنتهي الحلقة عندما تصل إلى 5

السطر 3: عيّن قيمة البداية إلى var وأبلغها بإيقافها عندما ينتهي var var endVal

السطر 4: تنفيذ نص الحلقة show message

السطر 5: اتخاذ الخطوة التالية ، إذا لم يصل العداد إلى endVal

و الشفرة ستكون على النحو التالى :

الكود:


 Dim var As Integer
        Dim startVal As Integer
        Dim endVal As Integer
        startVal = 1
        endVal = 5
        For var = startVal To endVal
            MsgBox("Message Box Shows " &   var &   " Times ")
        Next var

عندما تقوم بتنفيذ هذا البرنامج ، فإنه سيتم عرض مربع الرسالة خمس مرات وفي كل مرة يظهر فيها قيمة العداد.

إذا كنت تريد الخروج من الحلقة FOR NEXT  حتى قبل إكمال الحلقة ، يوفر Visual Basic.NET كلمة أساسية Exit لاستخدامها داخل نص الحلقة....على النحو التالى :

الكود:

For var=startValue To endValue [Step]
   [loopBody]
   Contition
   [Exit For]
Next [var]