Instructiunea repetitiva Do While . Loop

Instructiunea repetitiva Do While . Loop

Instructiunea Do While . Loop are urmatoarea sintaxa:

Do While conditie

Bloc_instructini

Loop

Aceasta instructiune executa Bloc_instructini atata timp cat este indeplinita conditia.

Exemplu 

Dim i as Integer

Private Sub CommandButton1_Click()

i = 0

Do While i <= 3

i =i + 1

Loop

End Sub

TEMA: -Valoarea lui i sa fie afisata pe  coloana A de la randul 1 in jos.

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

Secventa este executata atata timp cat variabila i este mai mica sau egala decat trei si anume:

la prima executie, cand i=0, se verifica daca este i <=3 si cum conditia este indeplinita se face i=1; la a doua executie i=1 se verifica daca i<=3 si cum este adevarata se face i =2;la a treia executie i=2, se verifica daca i<=3 si cum este adevarata se face i=3; la a patra executie i=3, se verifica daca i<=3 si cum conditia este adevarata se face i=4. Deoarece variabila i a luat valoarea 4 aceasta instructiune nu mai este executata;