В заданном числе определить цифру, которая встречается чаще всех - QBasic

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

Дано число 149162536496481100 ... 1000000. (это запись квадратов всех натуральных чисел от 1 до 1000) Определить самую высокочастотную цифру и ее количество решение программа сосчитала, что такая цифра 4 и встречается 700 раз. Вопросы 1. насколько разумно приведенное решение? 2. есть ли иное (любое) решение?

REM
REM  4 (700)
REM
 
DECLARE FUNCTION SS$ (n!)
DECLARE FUNCTION Col! (t AS STRING)
 
CLS
DIM SHARED s AS STRING
DIM t AS STRING
CLEAR , , 20000
 
FOR i = 1 TO 1000
   s = s + SS(i ^ 2)
NEXT
 
FOR n = 0 TO 9
   t = SS(n)
   m = Col(t)
   IF max < m THEN
      max = m
      nmax = n
   END IF
NEXT
 
PRINT "MAX ="; max
PRINT "N ="; nmax
END
 
FUNCTION Col (t AS STRING)
  
   DO WHILE INSTR(s, t)
      m = INSTR(s, t)
      MID$(s, m, 1) = "+"
      k = k + 1
   LOOP
 
   Col = k
END FUNCTION
 
FUNCTION SS$ (n)
   SS = LTRIM$(STR$(n))
END FUNCTION

Решение задачи: «В заданном числе определить цифру, которая встречается чаще всех»

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

DIM a(9) AS LONG, n AS LONG, m AS LONG, mx AS LONG, i AS LONG, k AS LONG
FOR i = 1 TO 1000
    n = i * i
    DO
        m = n MOD 10
        a(m) = a(m) + 1
        n = n \ 10
    LOOP WHILE n
NEXT i
mx = a(0)
FOR i = 1 TO 9
    IF a(i) > mx THEN mx = a(i): k = i
NEXT i
PRINT k

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

Переменная a объявлена как массив из 9 элементов типа LONG (целое число).
Переменная n инициализируется значением i * i, где i — это номер текущего числа от 1 до 1000.
Переменная m инициализируется значением остатка от деления n на 10.
В цикле DO-LOOP WHILE происходит деление n на 10 и последующее наращивание значения переменной m до тех пор, пока n не станет равным 0.
В каждой итерации цикла значение переменной m увеличивается на 1, что соответствует определению текущей цифры числа.
Значение переменной a соответствующее текущей цифре увеличивается на 1.
После завершения цикла, в переменной mx хранится максимальное количество повторений цифр в числе, а в переменной k — номер этой цифры в массиве a.
В цикле FOR перебираются значения от 1 до 9, при этом проверяется, является ли текущее значение переменной a больше значения переменной mx. Если это так, то значение переменной mx обновляется, а значение переменной k присваивается текущему индексу.
После завершения цикла, выводится значение переменной k, которое соответствует номеру цифры, встречающейся в числе наибольшее количество раз.