Imports System.Console
 
Module console2
 
    Const stars As String = "***** "
 
    Public Sub Main()
 
        Dim zahl, teiler As Integer
        Dim teilerliste As New List(Of Integer)
        Dim info, input As String
        Dim ok As Boolean
        info = ""
 
        Do
            Clear()
            WriteLine("Ermittlung eines Teilers")
            Console.WriteLine(info)
            Console.WriteLine("Bitte eine natürliche, positive Zahl eingeben")
            input = Console.ReadLine()
 
            info = CheckInput(input, zahl)
        Loop While Not info = ""
 
 
        Do
            Clear()
            ok = True
            WriteLine("Ermittlung eines Teilers für " & zahl.ToString)
            WriteLine(info)
            If teilerliste.Count > 0 Then
                WriteLine("Gegebene Teiler: " & Teilerstring( _
                  teilerliste.ToArray))
            End If
            WriteLine("Geben Sie einen Teiler für " & zahl.ToString & " ein")
            WriteLine("0 beendet Teiler-Definition, leere Eingabe beendet" & _
              "Programm")
 
            input = ReadLine()
 
            input = input.Trim
            If input = String.Empty Then Exit Sub
            If input = "0" Then
                If teilerliste.Count = 0 Then
                    info = stars & "Kein Teiler gegeben" : ok = False
                Else
                    Exit Do
                End If
            End If
 
            If ok Then
                info = CheckInput(input, teiler)
                ok = (info = "")
            End If
 
            If ok Then
                info = CheckTeiler(zahl, teilerliste, teiler)
                ok = (info = "")
            End If
        Loop
 
        WriteLine("Der größte Teiler ist " & _
                  teilerliste(teilerliste.Count - 1).ToString)
        ReadLine()
    End Sub
 
    Private Function CheckInput(ByVal input As String, ByRef number As Integer) _
      As String
 
        number = -1
 
        If Not Integer.TryParse(input, number) Then
            Return stars & input & " wird nicht als Zahl erkannt"
        End If
 
        If number < 1 Then
            Return stars & input & " ist keine positive Zahl"
        End If
 
        Return String.Empty
    End Function
 
    Private Function CheckTeiler(ByVal zahl As Integer, _
        ByVal teilerliste As List(Of Integer), ByVal teiler As Integer) As _
        String
 
        If Not zahl Mod teiler = 0 Then Return stars & teiler.ToString & " ist" & _
          "kein Teiler"
 
        If teilerliste.Contains(teiler) Then
            Return "Teiler bereits vorhanden"
        End If
 
        teilerliste.Add(teiler)
        teilerliste.Sort()
        Return String.Empty
    End Function
 
    Private Function Teilerstring(ByVal teiler() As Integer) As String
        Dim stb As New System.Text.StringBuilder(100)
        For i As Integer = 0 To teiler.Length - 1
            stb.Append(teiler(i).ToString & ", ")
        Next i
        Return stb.ToString
    End Function
End Module