unm.. bueno me dejaron un ejercicio de vb donde tengo que escribir 3 numeros cualquiera y se orden de mayor a menor... en lo que yo hice se ordenan 3 numeros pero solo 3 numeros seguidos'... mejor dicho captura el mayor y el menor'.. pero el medio no..
.. les copio el codigo..
Dim a, b, c As Integer
Private Sub CmdLimpiar_Click()
txtN1 = ""
txtN2 = ""
txtN3 = ""
txtN1.SetFocus
End Sub
Private Sub cmdOrdenar_Click()
a = Val(txtN1)
b = Val(txtN2)
c = Val(txtN3)
If a > b Then
If a > c Then
mayor = a
Else
mayor = c
End If
Else
If b > c Then
mayor = b
Else
mayor = c
End If
End If
txtN1 = Str(mayor)
If a < b Then
If a < c Then
menor = a
Else
menor = c
End If
Else
If b < c Then
menor = b
Else
menor = c
End If
End If
txtN3 = Str(menor)
End Sub
Private Sub cmdSalir_Click()
End
End Sub
muchas gracias..
para cualquier cosa mi msn es
j_daft@hotmail.com para mayor parte del tiempo en internet'.. recien estoy entrando en Vb.. por eso es que estoy algo volado en este tema..
sere un buen alumno'
