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 :

Twitter