Module Übung
 
 
    Sub Main()
        'Schleifen
        Dim i As Integer
        Console.WriteLine("Schleife")
        'For-Schleife
        For i = 0 To 5 Step i + 1
            Console.WriteLine(i & ControlChars.CrLf)
        Next
 
    End Sub
End Module