QBasic program to count total no of consonant in given word. FUNCTION

DECLARE FUNCTION COUNT(N$)

CLS

INPUT "ENTER ANY STRING";N$

PRINT"TOTAL NO OF CONSONANT IS";COUNT(N$)

END

FUNCTION 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 
COUNT=C

END SUB