Hustle Hard,Loves

WAP TO ASK ANY STRING VALUE AND DISPLAY ONLY VOWELS FROM SUPPLIED STRING CLS INPUT"ENTER ANY WORD";A$ FOR I = 1 TO LEN(A$) B$=MID$(A$,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

WAP TO PRINT ONLY CHARACTERS 'a' AND 'b' FROM SUPPLIED STRING CLS INPUT"ENTER ANY WORD";A$ FOR I = 1 TO LEN(A$) B$=MID$(A$,I,1) C$=UCASE$(B$) IF C$="A" OR C$="B" THEN PRINT B$ NEXT I END

WAP TO PRINT FREQUENCY OF LETTER 'A' AND 'B' CLS INPUT"ENTER ANY NUMBER";A$ B$=MID$(A$,I,1) C$=UCASE$(B$) IF C$="A" THEN C=C+1 IF C$="B" THEN D=D+1 NEXT I PRINT"FREQUENCY OF LETTER 'A'=";C PRINT"FREQUENCY OF LETTER 'B'=";D END

WAP TO ASK ANY STRING AND COUNT FREQUENCY OF LETTER'a' IN SUPPLIED STRING CLS INPUT"ENTER ANY WORD";A$ FOR I=1 TO LEN(A$) B$=MID$(A$,I,1) C$=UCASE(B$) IF C$="A" THEN F=F+1 NEXT I PRINT"FREQUENCY OF LETTER 'a'=";F END

WAP TO DISPLAY ASCII VALUE OF FIRST CHARACTER FROM SUPPLIED STRING CLS INPUT"ENTER ANY STRING";A$ B$=LEFT$(A$,1) C=ASC(B$) PRINT"ASCII VALUE OF FIRST CHARACTER-";C END

WAP TO INPUT NAME IN LOWERCASE & DISPLAY IN UPPERCASE INPUT"ENTER NAME IN LOWER CASE";A$ B$=UCASE$(A$) PRINT"NAME IN UPPERCASE':;B$ END

WAP TO INPUT STRING & COUNT TOTAL NUMBER OF CONSONANTS CLS INPUT"ENTER ANY WORD";A$ FOR I=1 TO LEN(A$) B$=MID$(A$,I,1) C$=UCASE$(B$) IF C$<>"A" AND C$<>"E" AND C$<>"I" AND C$<>"O" AND C$<>"U" THEN C=C+1 NEXT I PRINT"NUMBER OF CONSONANTS=";C$ END

WAP TO INPUT ANY STRING & COUNT TOTAL NUMBER OF VOWELS CLS INPUT"ENTER ANY WORD";A$ FOR I=1 TO LEN(A$) B$=MID$(A$,I,1) C$=UCASE$(B$) IF C$="A" OR C$="E" OR C$="I" OR C$="O" OR C$="U" THEN V=V+1 NEXT I PRINT"TOTAL NO. OF VOWELS=";V END

WAP TO ENTER ANY WORD & REVERSE IT CLS INPUT"Enter any word";A$ FOR I = LEN(A$) TO 1 STEP -1 B$=MID$(A$,I,1) C$=C$+B$ NEXT I IF C$=A$ THEN PRINT"GIVEN STRING IS PALINDROME" ELSE PRINT"GIVEN STRING ISN'T PALINDROME" END IF END

WAP TO ENTER ANY WORD & REVERSE IT CLS INPUT"Enter any name";A$ FOR I=LEN(A$) TO 1 ST EP -1 B$=MID$(A$,I,1) C$=C$+B$ NEXT I PRINT"Reverse word is";C$ END