QBASIC PROGRAM TO PRINT TOTAL NUMBER OF VOWELS IN A GIVEN WORD UISING SUB PROCEDURE.

DECLARE SUB COUNT (N$)

CLS

INPUT “ENTER ANY STRING”; N$

CALL COUNT (N$)

END

SUB 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

PRINT “The total no. of vowels is “;C

END SUB