Programación General => Visual Basic 6.0 e inferiores => Visual Basic para principiantes => Mensaje iniciado por: JDAFT en Miércoles 7 de Septiembre de 2005, 00:27
Título: Me Podrian Ayudar
Publicado por: JDAFT en Miércoles 7 de Septiembre de 2005, 00:27
:huh: 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.. :angry: .. les copio el codigo.. :whistling:
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.. :comp: 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.. :smartass: sere un buen alumno'
Título: Re: Me Podrian Ayudar
Publicado por: Roll en Sábado 10 de Septiembre de 2005, 17:35
mira este codigo no lo he probado pero creo q esta bien