1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | DECLARE FUNCTION CountOfA(s$)word1$ = ""word2$ = ""word3$ = ""INPUT "Type first word"; word1$INPUT "Type second word"; word2$INPUT "Type third word"; word3$PRINT CountOfA(word1$)PRINT CountOfA(word2$)PRINT CountOfA(word3$)FUNCTION CountOfA(s$) CountOfA = 0 FOR i = 1 to Len(s$) IF UCASE$(MID$(s$, i, 1)) = "A" THEN CountOfA = CountOfA + 1 NEXTEND FUNCTION |