QBASIC PROGRAM TO FIND TOTAL NO. OF VOWELS AND CONSONANTS

QBASIC PROGRAM TO FIND TOTAL NO. OF VOWELS AND CONSTANTS

CLS
 INPUT "ENTER ANY WORD"; S$
 VC = 0
 CC = 0
 FOR I = 1 TO LEN(S$)
 B$ = MID$(S$, I, 1)
 C$ = UCASE$(B$)
 IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN
 VC = VC + 1
 ELSE
 CC = CC + 1
 END IF
 NEXT I
 PRINT "TOTAL NO. OF VOWELS= "; VC
 PRINT "TOTAL NO. OF CONSONANTS="; CC
 END

USING SUB

DECLARE SUB VC(S$)
 CLS
 INPUT "ENTER ANY WORD"; S$
 CALL VC(S$)
 END
 
 SUB VC(S$)
 VC = 0
 CC = 0
 FOR I = 1 TO LEN(S$)
 B$ = MID$(S$, I, 1)
 C$ = UCASE$(B$)
 IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN
 VC = VC + 1
 ELSE
 CC = CC + 1
 END IF
 NEXT I
 PRINT "TOTAL NO. OF VOWELS= "; VC
 PRINT "TOTAL NO. OF CONSONANTS="; CC
 END SUB