elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a la Factorización De Semiprimos (RSA)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  programa en vb (ordenar de mayor a menor)
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: programa en vb (ordenar de mayor a menor)  (Leído 8,624 veces)
jjam45

Desconectado Desconectado

Mensajes: 58


Ver Perfil
programa en vb (ordenar de mayor a menor)
« en: 19 Febrero 2006, 17:40 pm »

Hola, tengo poca idea de vb pero en el instituto nos han mandado hacer un pragrama, en el cual se introducen 3 numeros y los ordena de mayor a menor
Aqui pongo el codigo, pero tengo 2 problemas:
1-cuando son numeros de 2 cifras no los ordena bien
2-cuanto mas corto sea el codigo, mas nota xD

*comandbutton1 es el boton que hay que apretar para que los ordene
*los 3 textbox son donde se introducen los numeros
*label7 muestra informacion sobre los numeros
*label8 es el mayor
*label9 el intermedio
*label10 el numero menor

Código:
Private Sub CommandButton1_Click()
Dim n1 As String
Dim n2 As String
Dim n3 As String
n1 = TextBox1.Text
n2 = TextBox2.Text
n3 = TextBox3.Text
If n1 = n2 And n2 = n3 Then
Label7 = "Has introducido 3 números iguales"

ElseIf n1 = n2 And n1 > n3 Then
Label7 = "Has introducido 2 numeros iguales"
Label8 = n1
Label9 = n1
Label10 = n3
ElseIf n1 = n2 And n3 > n1 Then
Label7 = "Has introducido 2 números iguales"
Label8 = n3
Label9 = n1
Label10 = n1
ElseIf n1 = n3 And n1 > n2 Then
Label7 = "Has introducido 2 números iguales"
Label8 = n1
Label9 = n1
Label10 = n2
ElseIf n1 = n3 And n2 > n1 Then
Label7 = "Has introducido 2 números iguales"
Label8 = n2
Label9 = n1
Label10 = n1
ElseIf n2 = n3 And n2 > n1 Then
Label7 = "Has introducido 2 números iguales"
Label8 = n2
Label9 = n2
Label10 = n1
ElseIf n2 = n3 And n1 > n2 Then
Label7 = "Has introducido 2 números iguales"
Label8 = n1
Label9 = n2
Label10 = n2

ElseIf n1 > n2 And n2 > n3 Then
Label8 = n1
Label9 = n2
Label10 = n3
ElseIf n1 > n3 And n3 > n2 Then
Label8 = n1
Label9 = n3
Label10 = n2
ElseIf n2 > n1 And n1 > n3 Then
Label8 = n2
Label9 = n1
Label10 = n3
ElseIf n2 > n3 And n3 > n1 Then
Label8 = n2
Label9 = n3
Label10 = n1
ElseIf n3 > n1 And n1 > n2 Then
Label8 = n3
Label9 = n1
Label10 = n2
ElseIf n3 > n2 And n2 > n1 Then
Label8 = n3
Label9 = n2
Label10 = n1
End If
End Sub

Espero que me podais ayudar y muchas gracias


« Última modificación: 19 Febrero 2006, 20:32 pm por jjam45 » En línea

jjam45

Desconectado Desconectado

Mensajes: 58


Ver Perfil
Re: programa en vb
« Respuesta #1 en: 19 Febrero 2006, 18:36 pm »

para solucionar lo del numero de cifras he cambiado el string por long


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines