Visual Basic, VBA: Do Until warunek instrukcje Loop, Do instrukcje Loop Until warunek; warunek, który jest sprawdzany na końcu pętli (choć zapis warunku znajduje się na jej początku w nagłówku definiującym), a pętla jest powtarzana jeżeli warunek jest spełniony, np. PL/I: DO UNTIL warunek; instrukcje END; (odpowiednik instrukcji do ... while(warunek); z języka C, C++).
Przykłady pętli repetycyjnych + Przykłady pętli repetycyjnych spełnienie/nie spełnienie język programowania miejsce sprawdzania warunku miejsce zapisu warunkusprawdzanego na końcu pętli na początku pętli na końcu pętli powtórzeniegdy warunek spełniony CC++while(a<MAX_A) { printf("a=%d",a++); }do printf("a=%d",a++); while(a<MAX_A); na końcu Pascalwhile a<MAX_A do begin writeln("a=",a); a:=a+1 end; Modula-2WHILE A<MAX_A DO WRITE("a=",A); A:=A+1 END; PL/IDO WHILE A<MAX_A; CALL WRITE('A=',A); A=A+1; END;DO UNTIL A<MAX_A; CALL WRITE('A=',A); A=A+1; END; na początku Visual BasicVBADo While a<MAX_A Call WriteLine("a=", a) a=a+1 LoopDo Call WriteLine("a=", a) a=a+1 Loop While a<MAX_A na końcu powtórzeniegdy warunek nie spełnionyDo Until a=MAX_A Call WriteLine("a=", a) a=a+1 LoopDo Call WriteLine("a=", a) a=a+1 Loop Until a=MAX_A na końcu PascalModula-2 repeat writeln("a=",a); a:=a+1 until a=MAX_A; na końcu
Pętla repetycyjna w językach programowania