Remplissage aléatoire et tri sur tableau en vb.net

Bonjour,



j'ai suivi vos conseils j'ai fait le pas à pas de débogage
chose curieuse je ne comprend pas où est l'erreur


le code ci dessous m'affiche ceci

7
3
9
1
6
1
7
donc là il a rempli le tableau de façon aléatoire , le tableau a 7 cases de la o à la 6
et il les a remplies avec les chiffres ci dessus
mais après quand il est sensé faire le tri
il m'affiche

0
1
1
3
6
7
7
donc le neuf a disparu et remplacé par un 0
quand le pas à pas arrive sur System.Array.Sort(MonTableau) il indique length =8 alors qu'il est 7


quelq'un peut il m'expliquer tout cela

Module Module1

    Sub Main()
        Dim i As Integer
        Dim MonTableau(7) As Integer
        Dim rdm As New Random()
        For i = 0 To 6
            MonTableau(i) = rdm.Next(1, 10)
            Console.WriteLine(CStr(MonTableau(i)))
        Next

        System.Array.Sort(MonTableau)
        For i = 0 To 6
            Console.WriteLine(CStr(MonTableau(i)))
        Next


        Console.Read()
    End Sub

End Module