Описать функцию строкового типа, возвращающую строку длины N, заполненную повторяющимися копиями строки-шаблона - QBasic

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

Срочно, пожалуйста помогите решить.

QBasic

Описать функцию FillStr(S$, N) строкового типа, возвращающую строку длины N, заполненную повторяющимися копиями строки-шаблона S (последняя копия строки-шаблона может входить в результирующую строку частично).

Заранее спасибо))

Решение задачи: «Описать функцию строкового типа, возвращающую строку длины N, заполненную повторяющимися копиями строки-шаблона»

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

DECLARE FUNCTION FillStr$ (s$, n!)
CLS
PRINT FillStr("Abc", 10)
 
FUNCTION FillStr$ (s$, n)
FOR i = 1 TO n \ LEN(s$) + 1
    ss$ = ss$ + s$
NEXT i
FillStr$ = LEFT$(ss$, n)
END FUNCTION

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

В этом коде:

DECLARE FUNCTION FillStr$ (s$, n!) - объявляется функция с именем FillStr$, которая принимает два аргумента типа строка - s$ и n.
CLS - очищается экран, чтобы можно было видеть результат работы программы.
PRINT FillStr(Abc, 10) - вызывается функция FillStr$ с аргументами Abc и 10, результат выводится на экран.
FUNCTION FillStr$ (s$, n) - определяется тело функции FillStr$.
FOR i = 1 TO n \ LEN(s$) + 1 - начинается цикл, который будет повторяться от 1 до n раз, при этом i не должно превышать длину строки s$ плюс единицу.
ss$ = ss$ + s$ - к переменной ss$ добавляется значение переменной s$.
NEXT i - выполняется следующая итерация цикла.
FillStr$ = LEFT$(ss$, n) - результат цикла (строка ss$) обрезается до первых n символов и присваивается переменной FillStr$.
END FUNCTION - заканчивается определение функции.
PRINT FillStr(Abc, 10) - снова вызывается функция FillStr$ с аргументами Abc и 10, результат выводится на экран.