QBASIC Program to print the series 1, 4, 9, 16, 25....up to 10th term.

Using FOR...NEXT

CLS
FOR i = 1 TO 10
     PRINT i ^ 2;
     NEXT i
END

Using WHILE...WEND

CLS
i = 1
WHILE i <= 10
     PRINT i ^ 2;
     i = i + 1
WEND
END

Using DO ... LOOP

CLS
i = 1
DO WHILE i <= 10
     PRINT i ^ 2;
     i = i + 1
LOOP
END