7) Display reverse of input string(SUB)

DECLARE SUB REV$ (N$)
CLS
INPUT "ENTER A STRING "; N$
CALL REV$(N$)
END

SUB REV$ (N$)
FOR I = LEN(N$) TO 1 STEP -1
B$ = MID$( N$, I, 1)
D$=D$+B$
NEXT I
REV$=D$

END FUNCTION

6) total no of vowels in given word (function)

DECLARE FUNCTION COUNT (N$)
CLS
INPUT " Enter any word ";N$
PRINT "Total no. of vowels ="; COUNT (N$)
END

FUNCTION COUNT (N$)
C = 0
FOR I = 1 TO LEN (N$)
B$ = MID$ ( N$, I, 1)
C$ = UCASE$(B$)
IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$="O" OR C$ = "U" THEN C=C+1
NEXT I
COUNT = C
END FUNCTION

5) AREA OF 4 WALLS (SUB)

DECLARE SUB AREA (L, B, H )
CLS
INPUT " Enter length "; L
INPUT " Enter breadth "; B
INPUT " Enter height "; H
CALL AREA (L, B, H)
END

SUB AREA ( L, B, H)
A = 2 * H * ( L + B )
PRINT "Area of 4 walls ="; A
END SUB

4) Count total no of words in a sentence (FUNCTION)

DECLARE FUNCTION COUNT (A$)
CLS
INPUT " Enter a sentence"; A$
PRINT " Total no. of words ="; COUNT (A$)
END

FUNCTION COUNT(A$)
C = 0
FOR I = 1 TO LEN (A$)
B$ = MID$ (A$, I, 1)
C$ = UCASE$ (B$)
IF B$ =" " THEN C = C + 1
NEXT I
COUNT = C
END FUNCTION 

3) Area of circle (SUB)

DECLARE SUB AREA ( R )
CLS
INPUT "Enter radius"; R
CALL AREA (R)
END

SUB AREA (R)
A = 22 / 7 * R ^ 2
PRINT "Area of circle ="; A
END SUB

2).print total no. Of vowels in a given word (SUB)

DECLARE SUB COUNT (A$)
CLS
INPUT "Enter a word" ; A$
CALL COUNT (A$)
END

SUB COUNT (A$)
C = 0
FOR I = 1 TO LEN(A$)
B$ = MID$ (A$, I, 1)
C$ = UCASE$ (B$)
IF C$< > "A" OR C$< > "E" OR C$ < > "I" OR C$< >"O" OR C$ < > "U"  THEN C = C + 1
NEXT I
PRINT  " Total no. of vowels =" C
END FUNCTION

1) QBasic average of three numbers (function)

DECLARE FUNCTION AVG (A, B, C)
CLS
INPUT  "Enter any three Numbers " ; A,  B, C
PRINT "Average of three numbers =" ; AVG(A, B, C)
END

FUNCTION  AVG (A, B, C)
AV = ( A + B + C ) / 3
AVG = AV
END FUNCTION