QBasic program to count total no of vowels in given word. SUB

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"TOTAL NO OF VOWEL IS";C

END SUB