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 26 27 28 29 30 31 32 33 34 35 36
|
PublicClass Form1
Private Nbre(20, 1) AsInteger
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Création d'un tableau contenant 20 nombres entiers
Dim i AsInteger
Dim j AsInteger
For i = 1 To 20
Nbre(i, 0) = CInt(Int(21) * Rnd()) 'Le nombre
Nbre(i, 1) = i 'Sa place
Next
'Affichage des données brutes dans un textbox
TextBox1.Clear()
For i = 1 To 20
TextBox1.Text = TextBox1.Text & Nbre(i, 0) & vbCrLf
Next
'Tri du tableau pour mettre les nombres en ordre croissant
For i = 1 To 19
For j = i + 1 To 20
If Nbre(j, 0) < Nbre(i, 0) Then
Nbre(0, 0) = Nbre(i, 0)
Nbre(0, 1) = Nbre(i, 1)
Nbre(i, 0) = Nbre(j, 0)
Nbre(i, 1) = Nbre(j, 1)
Nbre(j, 0) = Nbre(0, 0)
Nbre(j, 1) = Nbre(0, 1)
EndIf
Next
Next
'Affichage des données triées dans un textbox
TextBox2.Clear()
For i = 1 To 20
TextBox2.Text = TextBox2.Text & Nbre(i, 0) & Chr(9) & Nbre(i, 1) & vbCrLf
Next
EndSub
EndClass |
Partager