Programación General > Visual Basic para principiantes

 Me Podrian Ayudar

(1/1)

JDAFT:
: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'

Roll:
mira este codigo
no lo he probado pero creo q esta bien


--- Código: Text ---If (a &#62; b And b &#62; c) Then    mayor = aElse    If (a &#62; b And b &#60; c) Then        If a &#62; c Then            mayor = a        Else            mayor = c        End If    Else        If (a &#60; b And b &#60; c) Then            mayor = c        Else            mayor = b        End If    End IfEnd If  
ojala te sirva

Saludos

Navegación

[0] Índice de Mensajes