QBASIC PROGRAM

2.Print total number of vowels in word.

DECLARE SUB COUNT (N$)

CLS

INPUT “ENTER ANY WORD”;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 “TOTAL NO. OF VOWELS”;C

END SUB