Question

guys today I have exam please solve it​

Answer 1

Answer:

PLS MRK AS BRAINLIEST

DECLARE SUB VOW(S$)

CLS

INPUT “Enter a word”; S$

CALL VOW(S$)

END

SUB VOW(S$)

PRINT “The vowels are”

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 PRINT B$

NEXT I

END SUB