Составьте программу подсчета гласных букв слова x, что используются при написании слова z - QBasic

Формулировка задачи:

Помогите решить задачку) 2. Составьте программу подсчета гласных букв слова x, что используются при написании слова z. Заранее спасибо.

Решение задачи: «Составьте программу подсчета гласных букв слова x, что используются при написании слова z»

Листинг программы

DEFSTR S, X-Z
DEFINT I-L
CLS
DEF fnx (s2, s1)
   DO
      j = INSTR(s2, s1)
      IF j > 0 THEN MID$(s2, j, 1) = "0"
   LOOP UNTIL j = 0
   fnx = s2
END DEF
 
DEF fns (s)
   SELECT CASE s
      CASE "*", "Ґ", "с", "Ё", "®", "г", "л", "н", "о", "п"
         fns = "Yes"
      CASE ELSE
         fns = "No"
   END SELECT
END DEF
 
DEF fni (s2, s1)
   l = 0
   DO
      j = INSTR(s2, s1)
      IF j > 0 THEN
          l = l + 1
          MID$(s2, j, 1) = "0"
      ELSE
         EXIT DO
      END IF
   LOOP
   fni = l
END DEF
 
INPUT "Z = "; z
INPUT "X = "; x
 
k = 0
FOR i = 1 TO LEN(z)
   s1 = MID$(z, i, 1)
   IF fns(s1) = "Yes" THEN
      k = k + fni(x, s1)
      z = fnx(z, s1)
   END IF
NEXT i
PRINT "K = "; k
END

Объяснение кода листинга программы

Список действий, которые выполняются в коде:

Определение пользовательских функций fnx и fns, а также переменных I-L и S-Z.
Функция fnx заменяет первое вхождение подстроки s1 в строке s2 на 0.
Функция fns проверяет, является ли символ s гласным (если символ равен *, Ґ, с, Ё, ®, г, л, н, о, п, то fns возвращает Yes, иначе No).
Функция fni считает количество вхождений подстроки s1 в строке s2 и заменяет каждый гласный символ в s2 на 0.
Ввод строк z и x с помощью функции INPUT.
Переменная k инициализируется нулем.
Цикл FOR проходит по каждому символу строки z.
Для каждого символа s1 проверяется, является ли он гласным с помощью функции fns.
Если символ s1 является гласным, то к переменной k добавляется количество вхождений подстроки s1 в x (функция fni).
Строка z заменяется на fnx с помощью функции fnx.
После завершения цикла выводится значение переменной k.