Подсчитайте, сколько раз в заданном тексте встречается заданный символ (используйте функции для обработки строк)- QBasic(Бейсик)

input"vvedite text ",a$
input"vvedite simvol ",b$
for i=1 to len(a$)
if mid$(a$,i,1)=b$ then k=k+1
next
print k

Тестирование выполнено в программе QB64 ( Скачать )