QBASIC Program to print the pattern 2, 22, 222, 2222, 22222 (SUB/FUNCTION)

OUTPUT

  CLS
n = 2
FOR i = 1 TO 5
     PRINT n
     n = n * 10 + 2
NEXT i
END

Using SUB Procedure

DECLARE SUB ptrn()
CLS
CALL ptrn
END

SUB ptrn
     n = 2
     FOR i = 1 TO 5

          PRINT n

          n = n * 10 + 2

     NEXT i

END SUB

Using FUNCTION Procedure

DECLARE FUNCTION ptrn()
CLS
d = ptrn
END

FUNCTION ptrn
n = 2
FOR i = 1 TO 5
     PRINT n
     n = n * 10 + 2
NEXT i
END FUNCTION