.NET 4.x Нахождение чисел из интервала [М; N], имеющих наибольшее количество делителей - Visual Basic .NET

        Dim Res As Integer = 0 ' Переменная под ответ
        Dim Tmp, N As Integer 'Временный счетчик для цикла и переменная под хранение числа, имеющего больше делителей
        For Num As Integer = 252 To 478 ' Задаем диапазон чисел
            Tmp = 0
            For I As Integer = 2 To Num ^ (1 / 2) 'Делим число на числа от 2 до корня из Num
                If Num Mod I = 0 Then 'Если остаток от деления - ноль
                    Tmp += 2 'Секретная цифра 2, с чего бы вдруг?)
                End If
            Next
            If Tmp > Res Then 'Если делителей нашлось больше, чем было до этого
                Res = Tmp : N = Num 'Записываем новое число делителей и запоминаем само это число
            End If
        Next
 
        MsgBox("Больше всех делителей (" & Res & ") содержит число " & N)