Visual Basic - ordenamiento de datos alfanumericos

Life is soft - evento anual de software empresarial
   
Vista:

ordenamiento de datos alfanumericos

Publicado por Trikis (1 intervención) el 23/04/2013 18:13:25
Necesito ayuda con un programa que ordene datos alfanuméricos de manera ascendente, mi profesor me dijo que era igual que el ordenamiento numérico, tengo este programa que me los ordena de manera ascendente los valores numéricos, que cambio le debo de hacer para que me ordene valores alfanuméricos.

Public Class Form1
Dim Numeros(5) As Double

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer, j As Integer, k As double
Numeros(0) = (textNumero1.Text)
Numeros(1) = (textNumero2.Text)
Numeros(2) = (textNumero3.Text)
Numeros(3) = (textNumero4.Text)
Numeros(4) = (textNumero5.Text)
For i = 0 To 3
For j = i + 1 To 4
If Numeros(i) > Numeros(j) Then
k = Numeros(i)
Numeros(i) = Numeros(j)
Numeros(j) = k
End If
Next j
Next i
textNumero1.Text = Str(Numeros(0))
textNumero2.Text = Str(Numeros(1))
textNumero3.Text = Str(Numeros(2))
textNumero4.Text = Str(Numeros(3))
textNumero5.Text = Str(Numeros(4))


End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana

ordenamiento de datos alfanumericos

Publicado por Antoni Masana (88 intervenciones) el 24/04/2013 09:06:07
De la misma forma

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
Public Class Form1
Dim Numeros(5) As Double
 
Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
    Dim i As Integer, j As Integer, k As double
 
 
    Numeros(0) = (textNumero1.Text)
    Numeros(1) = (textNumero2.Text)
    Numeros(2) = (textNumero3.Text)
    Numeros(3) = (textNumero4.Text)
    Numeros(4) = (textNumero5.Text)
 
 
    For i = 0 To 3
        For j = i + 1 To 4
            If Numeros(i) > Numeros(j) Then
               k = Numeros(i)
                   Numeros(i) = Numeros(j)
                   Numeros(j) = k
            End If
        Next j
    Next i
 
    textNumero1.Text = Str(Numeros(0))
    textNumero2.Text = Str(Numeros(1))
    textNumero3.Text = Str(Numeros(2))
    textNumero4.Text = Str(Numeros(3))
    textNumero5.Text = Str(Numeros(4))
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar