1 2 3 4 5 6 7 8 9 10 11 12 | DECLARE FUNCTION CountOfA(s$, ch$)word1$ = ""INPUT "Type a word"; word1$PRINT "A = "; CountOfA(word1$, "A")PRINT "O = "; CountOfA(word1$, "O")FUNCTION CountOfA(s$, ch$) CountOfA = 0 ch$ = UCASE$(ch$) FOR i = 1 TO LEN(s$) IF UCASE$(MID$(s$, i, 1)) = ch$ THEN CountOfA = CountOfA + 1 NEXTEND FUNCTION |