Найти числа, запись которых совпадает с последними цифрами их квадрата VBA

[Velociraptor]

Здравствуйте. Задача звучит следующим образом:

Дано натуральное число n. Среди чисел 1....n найти все такие, запись которых совпадает с последними цифрами записи их квадрата (как, например 6^2 - 36,25^2 = 625 и т.д.)
Всей группой решали и сошлись на мнении, что мы нубы.

Заранее благодарю.

[ViktorR]

Можно попробовать так:
0. В цикле по i от 5 до n.
1. Определяем количество десятичных знаков в числе i
В цикле делим нацело на 10 до тех пор, пока результат не станет равным нулю. Вроде как операция \.
Пусть в числе i мы нашли k цифр.
2. Вычисляем квадрат числа i
3. Квадрат числа i делим на 10^k по модулю: вычисляем остаток от деления. Операция вроде как MOD.
4. Сравниваем число с остатком. Если равно, выводим результат.

n = 50
l = 1
For i = 1 To n
   k = 0
   m = i
   Do
      k = k + 1
      m = m \ 10
   Loop Until (m = 0)
   If (i = ((i * i) Mod (10 ^ k))) Then
      Cells(2, l) = i
      Cells(3, l) = i * i
      l = l + 1
   End If
Next

Вроде так ...