Instructiunea repetitiva Do Until . Loop

Instructiunea repetitiva Do Until . Loop

Instructiunea Do Until . Loop are urmatoarea sintaxa:

Do Until conditie

Bloc_instructiune

Loop

Aceasta instructiune executa Bloc_instructini pana cand este indeplinita conditia.

Exemplu 

Dim j as Integer

Private Sub CommandButton1_Click()

j = 0

Do Until j >=2

j =j + 1

Loop

End Sub

TEMA: -Valoarea lui j sa fie afisata pe  coloana B de la randul 1 in jos

- Sa se introduca variabila (Text Box) pana unde se executa j

Aceasta secventa este executata pana cand conditia este indeplinita si anume:

La prima executie i=0, se verifica daca i >=2 si cum nu este adevarata, se incrementeaza i cu o unitate (i=i+1) => i=1; la a doua executie i=1, se verifica daca i>=2 si cum nu este adevarata se face i=2. Cum variabila i devine egala cu 2 aceasta instructiune nu mai este executata.