Cita:
Iniciado por vollager 
hola a todos soy nuevo en esto de VB y ya me atore con mi codigo, miren es simple el rpograma, por medio de un inputbox meter 9 datos(nombres) y despues ordenarlos y uqe me apraescan en mi caja de texto, todo sale bien hatsa la hora de ordenar, se que le tengo que asignar su valor en ascii pero no se como les dejo el codigo para qeu lo chequen y me digan en que me equivoque, urge!!! de ante mano gracias!
Hola,
hace unos días puse un ejemplo de cómo ordenar un array, que adaptado a tus necesidades, podría ser así:
Código:
Option Compare Text ' para que no distinga entre mayúsculas y minúsculas
Private Sub Command1_Click()
Dim a(8) As String, i As Integer
' guardamos en el array los nombres según se van escribiendo
For i = 0 To 8 Step 1
a(i) = InputBox("Nombre", "Dame nombres")
Next i
' ordenamos el array
Dim b As Boolean, s As String
While b = False
b = True
For i = 0 To UBound(a) - 1
If (a(i) > a(i + 1)) Then
s = a(i)
a(i) = a(i + 1)
a(i + 1) = s
b = False
End If
Next i
Wend
' escribimos el resultado en el textBox
Text1.Text = ""
For i = 0 To UBound(a)
Text1.Text = Text1.Text & a(i) & ", "
Next i
End Sub
Nota: Probé el código
seba123neo y funciona, pero no ordena los nombres.
