To remove the vowels from the word and display the word without the vowels. (Qbasic Code)

To remove the vowels from the word and display the word without the vowels.

  • CLS
    INPUT "Enter the string"; a$
    b$ = LCASE$(a$)
    FOR i = 1 TO LEN(b$)
        c$ = MID$(b$, i, 1)
        IF c$ <> "a" AND c$ <> "e" AND c$ <> "i" AND c$ <> "o" AND c$ <> "u" THEN
            d$ = d$ + c$
        END IF
    NEXT i
    PRINT "The word without the vowels is "; d$
    END

Share :

Facebook Twitter Google+
Back To Top

facebook main

counter

Powered by Blogger.