Простые множители

Подробности

Автор: Смирнов Лев

{
Разложить целое число на простые множители
}
Module Module1
    Sub Main()
        Dim ch, b, c As Integer
        Console.WriteLine("Введите число")
        ch = Console.ReadLinehttp:
        Console.Write("-----Ваше число {0} = ", ch)
        Do
            For b = 2 To 4000
                If ch Mod b = 0 Then
                    ch = ch / b
                    Console.Write(b & "*")
                    Exit For
                End If
            Next

        Loop Until ch = 1
        Console.Write(ch)
        Console.ReadLine()
    End Sub
End Module

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

Е.Е. Квасов