Salut tout le monde,
J'essaie de faire un programme qui tri un tableau mais ça n'as
bien marcher. J'espère que l'un de vous me détectera l'erreur
Voici le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub Main()
        Dim T(5) As String
        T(0) = 88
        T(1) = 67
        T(2) = 78
        T(3) = 98
        T(4) = 32
        Dim N As Integer = 5  'Nombre d'éléments
        Dim i, j As Integer
        Dim Temp As Integer
 
        For i = 0 To N - 1    'Boucle externe
 
            For j = 0 To N - 1   'Boucle interne
 
                If T(j) > T(j + 1) Then
 
                    Temp = T(j) : T(j) = T(j + 1) : T(j + 1) = Temp  'Inverser si pas dans le bon ordre
 
                End If
                Console.WriteLine(T(i))
            Next j
        Next i
        Console.ReadKey()
    End Sub

@++