Посчитать сколько слов в данной строке - QBasic

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

Дана строка символов, непустые группы символов между пробелами считаются словами. Посчитать сколько слов в данной строке. Помогите, пожалуйста, с заданием.

Решение задачи: «Посчитать сколько слов в данной строке»

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

DECLARE SUB TEX (t AS STRING)
CLS
DIM t AS STRING
DIM SHARED n
 
t = " Er  ist  ein guter  Programmist "
n = 1
CALL TEX(t)
PRINT "N ="; n
END
 
SUB TEX (t AS STRING)
   t = LTRIM$(RTRIM$(t))
   k = INSTR(t, " ")
   IF k = 0 THEN EXIT SUB
   t = MID$(t, k)
   n = n + 1
   CALL TEX(t)
END SUB

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

В этом коде на языке QBasic реализуется функция подсчета количества слов в строке с помощью рекурсии. Список действий, которые выполняются в этом коде:

Объявление подпрограммы TEX с одним аргументом типа строка.
Инициализация переменной t значением Er ist ein Programmist.
Инициализация переменной n значением 1.
Вызов подпрограммы TEX с аргументом t.
Печать значения переменной n. Подпрограмма TEX выполняет следующие действия:
Приведение строки t к типу строка.
Удаление пробелов в начале и в конце строки с помощью функций LTRIM и RTRIM.
Проверка наличия пробела в строке с помощью функции INSTR. Если пробел не найден, то подпрограмма завершается.
Разделение строки на две части по первому пробелу и сохранение второй части в переменной t.
Увеличение значения переменной n на единицу.
Рекурсивный вызов подпрограммы TEX с аргументом t. Список переменных и их значения:
t — Er ist ein Programmist
n — 1 Таким образом, код считает количество слов в строке, используя рекурсию и приводя строку к типу строка. Значение переменной n выводится на экран.