Cyklus "For - Next"
'používá se k opakování jednoho a více příkazů, přičemž známe počet opakování
For i As Integer = 2 To 40 Step 2 '"Step" = velikost kroku po kterém má cyklus počítat
Worksheets("List1").Cells(a,1).Value = 2
Next a
Exit For
'když je tento příkaz v těle cyklu, okamžitě dochází k opuštění cyklu.
'Příklad: For - Next
Dim number As Byte
Dim cislo As Double
Dim soucet As Double
Private Sub Form_Load()
number = InputBox ("pocet prumernych cisl","prumer","2")
For i = 1 To number
cislo = InputBox ("zadej cislo","prumer","0")
soucet = soucet + cislo
Next i
MsbBox((soucet / number ), vbOkOnly, "Prumer")