Cyklus "Do - While ... Loop"




'lze použít, když nevíme počet opakování, opakuje se dokud je podmmínka pravdivá

Do While Loop

'------------------------------------

Dim cislo As Integer
cislo = 1
'tento kod udělá 19 výpočtů a zapíše je do List1 do 1. sloupečku, podud bude stále "cislo" menší než 20

'------------------------------------

' příkaz lze ukončit i explicitně příkazem - Exit Do