по заданной строке и символу определить сколько раз встречается этот символ в этой строке. информатика .Qbasike функции

DIM b AS STRING * 1DIM a AS STRING * 100DIM i, k, n AS INTEGERINPUT "INPUT STRING", a$INPUT b$k = LEN(a$)FOR i = 1 TO kIF MID$(a$, i, 1) = b$ THEN n = n + 1END IFNEXT iPRINT nEND