Sub Main()
 
        Dim Lotto(5, 11) As Integer
 
 
 
        Dim Tip As Integer
        Dim Anzahl_Tips As Integer
 
        For Tip = 0 To 5
            For Anzahl_Tips = 0 To 11
                Lotto(Tip, Anzahl_Tips) = 5
            Next Anzahl_Tips
        Next Tip
 
        Console.WriteLine("Sie haben folgende Tips abgegeben: {0} ", Lotto)
 
        Console.ReadLine()
 
 
    End Sub