triRésolu

Question

j'ai une suite (6 nombres) de nombre &#224; trier, voil&#224; comment j'ai fait : 

public i, j
dim k as integer
 
           For i = 0 To 4
                For j = i + 1 To 5
                    If txtResultat(i).Text > txtResultat(j).Text Then
                         k = txtResultat(i).Text
                         txtResultat(i).Text = txtResultat(j).Text
                         txtResultat(j).Text = k
                    End If
                Next j
            Next i

Si je prend un exemple : 1 - 15 - 41 - 3 - 5 - 21   il va me les trier comme ceci : 1 - 15 - 21 - 3 - 41 - 5 
comme si les nombres &#224; deux chiffres &#233;taient &#224; virgule ? 

Est ce que c'est un probl&#232;me de d&#233;claration ? 

Merci. Luca62

cs_toods · Accepted Answer

Pour pouvoir comparer, il faut que tu castes en entier
car si tu restes en text, il compare caract&#232;re par caract&#232;re. donc 15 avant 2
normal car il compare le 1 et le 2 (en valeur ascii bien sur) et il classe
Donc pour r&#233;soudre le pb, je te propose:

For i = 0 To 4
                For j = i + 1 To 5
                    If CInt(txtResultat(i).Text) > CInt(txtResultat(j).Text) Then
                         k = txtResultat(i).Text
                         txtResultat(i).Text = txtResultat(j).Text
                         txtResultat(j).Text = k
                    End If
                Next j
            Next i

Plus tu vas moins vite, moins tu vas plus loin

luca62 · Answer

Merci beaucoup. Ca fonctionne.

Luca62.

Tri

2 réponses

Discussions similaires