Sub Main()
        Dim Lotto(5, 11) As Integer
        Dim Tip As Integer
        Dim Anzahl_Tips As Integer
        Dim Ausgabe As String = ""
        For Anzahl_Tips = 0 To 11
            For Tip = 0 To 5
                Randomize()
                Dim Zufallszahl As Integer = Int(Rnd() * 6) + 1
                'Zufallszahl im bereich von 1-6
                Lotto(Tip, Anzahl_Tips) = Zufallszahl
                Ausgabe &= Lotto(Tip, Anzahl_Tips) & " "
            Next Tip
            Ausgabe &= vbCrLf & Anzahl_Tips + 1 & " Tip: "
        Next Anzahl_Tips
        Console.WriteLine(Ausgabe)
        Console.ReadLine()
    End Sub