QBasic Programming

To display 1,11,111,1111,11111

CLS

A=1

I=11111

DO

PRINT A

A=A*10+1

I=I+1

LOOP UNTIL I<=1

END