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
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