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