Imports System.Console
Module Module1
    'Suche nach dem größten restfreien Teiler aus einer vorgegebenen Liste
    'Positive Zahl, deren größter Teiler gesucht wird
    'Liste der zu beurteilenden Teiler (> 0)
    'größter Teiler (oder -1)
    Dim Teiler as integer = FindeTeiler(Zahl, {2, 4, 5, 8})
    Sub Main()
 
 
        Warten()
 
    End Sub
 
    Private Function FindeTeiler(ByVal zahl As Integer, _
                             ByVal TeilerListe() As Integer) As Integer
 
        'Eingabe prüfen
        If zahl < 1 Then Return -1
        If TeilerListe Is Nothing OrElse TeilerListe.Length = 0 Then Return _
          Nothing
 
        'ansteigend sortieren
        Array.Sort(TeilerListe)
 
        'Suche, beginnend beim größten Teiler
        For i As Integer = TeilerListe.Length - 1 To 0 Step -1
            If TeilerListe(i) < 1 Then Return -1 'DivisionByZero abfangen
            If zahl Mod TeilerListe(i) = 0 Then Return TeilerListe(i)
        Next i
 
        'kein Teiler in der Liste
        Return -1
    End Function
 
    Sub Warten()
        Write("Bitte EINGABE drücken: ")
        ReadLine()
    End Sub
 
End Module