QBASIC Program to print the series 0, 2, 4, 6, 8 ...... up to 100

Using FOR...NEXT

CLS
FOR i = 0 TO 100 STEP 2
      PRINT i;
NEXT i
END

Using WHILE...WEND

CLS
i = 0
WHILE i <= 100
      PRINT i;
      i = i + 2
WEND
END

Using DO ... LOOP

CLS
i = 0
DO WHILE i <= 100
      PRINT i;
      i = i + 2
LOOP
END