[VB 8][.NET 2]LES DIVISEURS D'UN NOMBRE + NOMBRES PREMIERS (ENUMÉRATOR & TESTEUR) + FACTORISATION PREMIÈRE + PGCD + PPCM

' ANCIEN CODE (Application Console, démontrer la puissance de getDivs, une nouvelle version encore plus rapide existe dans le ZIP)
Public Module MainModule

    Public Sub Main()
        On Error GoTo EndSub
        Do
            Console.Write("Entrez un nombre pour en connaître les diviseurs, N pour quitter: ")
            Dim Number As Integer = CInt(Console.ReadLine())
            Dim Diviseurs As List(Of Integer) = getDivs(Number)
            Console.Write("Le nombre que vous avez choisit a ")
            For I As Integer = 0 To Diviseurs.Count - 1
                Console.Write(Diviseurs(I) & IIf(I = Diviseurs.Count - 1, " ", ","))
            Next
            Console.WriteLine("pour diviseurs.")
            '' <TEST>
            Dim TimeWatcher As New Diagnostics.Stopwatch()
            TimeWatcher.Start()
            For X As Integer = 0 To 10000
                getDivs(Number)
            Next
            TimeWatcher.Stop()
            Console.WriteLine("La méthode que j'utilise :" & TimeWatcher.ElapsedTicks)
            TimeWatcher.Reset()
            TimeWatcher.start()
            For X As Integer = 0 To 10000
                getDivs_Bad(Number)
            Next
            TimeWatcher.Stop()
            Console.WriteLine("La méthode classique :" & TimeWatcher.ElapsedTicks)
            '' </TEST>
        Loop While True
EndSub:
    End Sub

    Public Function getDivs(ByVal Number As Integer) As List(Of Integer)
        getDivs = New List(Of Integer)
        Dim Div1 As Integer = 1
        Dim Div2 As Integer = Number
        While Div1 <= Div2
            If Div1 * Div2 = Number Then
                getDivs.Add(Div1)
                If Div1 <> Div2 Then getDivs.Add(Div2)
            End If
            Div1 += 1
            Div2 = Number \ Div1
        End While
        getDivs.Sort()
    End Function

    Public Function getDivs_Bad(ByVal Number As Integer) As List(Of Integer)
        Dim getDivs As New List(Of Integer)
        getDivs_Bad = getDivs
        For Div As Integer = 1 To Number
            If Number Mod Div = 0 Then getDivs.Add(Div)
        Next
    End Function

End Module