Título: error en el orden de 4 números al azar de mayor a menor Publicado por: creiko en 18 Septiembre 2016, 05:40 am lo que pasa es que tengo que hacer es un formato de votaciones de 4 personas
los votos son de forma aleatoria: num1 = candato 1 num2 = candato 2 num3 = candato 3 num4 = candato 4 form2 y pasarlo a form4 ejemplo los votos así 4 1 8 3 y el programa me muestra esto 4 1 8 3 pero lo correcto seria: 8 4 3 1 tengo este hecho hasta ahora pero tengo errores no se en que parte ayuda urgente [code=vbnet] Dim NUM1, NUM2, NUM3, NUM4 As Integer Dim MAYOR, MEDIO, MENOR, MEDIO1 As Double NUM1 = A1 NUM2 = A2 NUM3 = A3 NUM4 = A4 If NUM1 = NUM2 And NUM2 = NUM3 And NUM3 = NUM4 And NUM1 = NUM4 Then Form4.Label6.Text = "g" Form4.Label10.Text = Me.Label10.Text Form4.Label7.Text = "g" Form4.Label11.Text = Me.Label11.Text Form4.Label8.Text = "g" Form4.Label12.Text = Me.Label13.Text Form4.Label9.Text = "g" Form4.Label13.Text = Me.Label14.Text Else If NUM1 = NUM2 And NUM2 = NUM3 Then Form4.Label6.Text = "g" Form4.Label10.Text = Me.Label10.Text Form4.Label7.Text = "g" Form4.Label11.Text = Me.Label11.Text Form4.Label8.Text = "g" Form4.Label12.Text = Me.Label13.Text If NUM2 > NUM4 Then MAYOR = NUM2 MENOR = NUM4 Else MAYOR = NUM4 MENOR = NUM2 End If Form4.Label6.Text = "g" Form4.Label10.Text = Me.Label10.Text Form4.Label9.Text = "g" Form4.Label13.Text = Me.Label14.Text Else If NUM1 = NUM2 And NUM2 = NUM4 Then Form4.Label6.Text = "g" Form4.Label10.Text = Me.Label10.Text Form4.Label7.Text = "g" Form4.Label11.Text = Me.Label10.Text Form4.Label9.Text = "g" Form4.Label13.Text = Me.Label11.Text If NUM2 > NUM3 Then MAYOR = NUM2 MENOR = NUM3 Else MAYOR = NUM3 MENOR = NUM2 End If Form4.Label6.Text = "g" Form4.Label10.Text = Me.Label10.Text Form4.Label9.Text = "g" Form4.Label13.Text = Me.Label11.Text Else If NUM1 = NUM3 And NUM3 = NUM4 Then Form4.Label6.Text = "g" Form4.Label10.Text = Me.Label10.Text Form4.Label8.Text = "g" Form4.Label12.Text = Me.Label11.Text Form4.Label9.Text = "g" Form4.Label13.Text = Me.Label10.Text If NUM1 > NUM2 Then MAYOR = NUM1 MENOR = NUM2 Else MAYOR = NUM2 MENOR = NUM1 End If Form4.Label6.Text = "g" Form4.Label10.Text = Me.Label10.Text Form4.Label9.Text = "g" Form4.Label13.Text = Me.Label11.Text Else If NUM2 = NUM3 And NUM3 = NUM4 Then 'Label10.CAPTION = "SEGUNDO, TERCERO Y CUARTO SON IGUALES" Form4.Label7.Text = "g" Form4.Label11.Text = Me.Label11.Text Form4.Label8.Text = "g" Form4.Label12.Text = Me.Label13.Text Form4.Label9.Text = "g" Form4.Label13.Text = Me.Label14.Text If NUM1 > NUM2 Then MAYOR = NUM1 MENOR = NUM2 Else MAYOR = NUM2 MENOR = NUM1 End If 'Label5.CAPTION = "NUMERO MAYOR: " & MAYOR 'Label6.CAPTION = "NUMERO MENOR: " & MENOR Form4.Label6.Text = "g" Form4.Label10.Text = Me.Label10.Text Form4.Label9.Text = "g" Form4.Label13.Text = Me.Label14.Text Else If NUM1 = NUM2 And NUM3 <> NUM4 Then ' Label10.CAPTION = "PRIMERO Y EL SEGUNDO SON IGUALES" Form4.Label6.Text = "g" Form4.Label10.Text = Me.Label10.Text Form4.Label7.Text = "g" Form4.Label11.Text = Me.Label11.Text If NUM1 > NUM3 And NUM1 > NUM4 Then MAYOR = NUM1 If NUM3 > NUM4 Then MEDIO = NUM3 MENOR = NUM4 Else MEDIO = NUM4 MENOR = NUM3 End If End If 'Label5.CAPTION = "NUMERO MAYOR: " & MAYOR 'Label6.CAPTION = "NUMERO MEDIO: " & MEDIO 'Label7.CAPTION = "NUMERO MENOR: " & MENOR Form4.Label6.Text = "g" Form4.Label10.Text = Me.Label10.Text Form4.Label8.Text = "g" Form4.Label12.Text = Me.Label11.Text Form4.Label9.Text = "g" Form4.Label13.Text = Me.Label14.Text Else If NUM1 = NUM3 And NUM2 <> NUM4 Then ' Label10.CAPTION = "PRIMERO Y EL TERCERO SON IGUALES" Form4.Label6.Text = "g" Form4.Label10.Text = Me.Label10.Text Form4.Label8.Text = "g" Form4.Label12.Text = Me.Label13.Text If NUM1 > NUM2 And NUM1 > NUM4 Then MAYOR = NUM1 If NUM2 > NUM4 Then MEDIO = NUM2 MENOR = NUM4 Else MEDIO = NUM4 MENOR = NUM2 End If End If 'Label5.CAPTION = "NUMERO MAYOR: " & MAYOR ' Label6.CAPTION = "NUMERO MEDIO: " & MEDIO ' Label7.CAPTION = "NUMERO MENOR: " & MENOR Form4.Label6.Text = "g" Form4.Label10.Text = Me.Label10.Text Form4.Label7.Text = "g" Form4.Label11.Text = Me.Label13.Text Form4.Label9.Text = "g" Form4.Label13.Text = Me.Label14.Text Else If NUM1 = NUM4 And NUM2 <> NUM3 Then 'Label10.CAPTION = "PRIMERO Y EL CUARTO SON IGUALES" Form4.Label6.Text = "g" Form4.Label10.Text = Me.Label10.Text Form4.Label9.Text = "g" Form4.Label13.Text = Me.Label14.Text If NUM1 > NUM3 And NUM1 > NUM2 Then MAYOR = NUM1 If NUM3 > NUM2 Then MEDIO = NUM3 MENOR = NUM2 Else MEDIO = NUM2 MENOR = NUM3 End If End If ' Label5.CAPTION = "NUMERO MAYOR: " & MAYOR ' Label6.CAPTION = "NUMERO MEDIO: " & MEDIO ' Label7.CAPTION = "NUMERO MENOR: " & MENOR Else If NUM2 = NUM3 And NUM1 <> NUM4 Then ' Label10.CAPTION = "SEGUNDO Y TERCERO SON IGUALES Form4.Label7.Text = "g" Form4.Label11.Text = Me.Label11.Text Form4.Label8.Text = "g" Form4.Label12.Text = Me.Label13.Text If NUM2 > NUM1 And NUM2 > NUM4 Then MAYOR = NUM2 If NUM1 > NUM4 Then MEDIO = NUM1 MENOR = NUM4 Else MEDIO = NUM4 MENOR = NUM1 End If End If 'Label5.CAPTION = "NUMERO MAYOR: " & MAYOR 'Label6.CAPTION = "NUMERO MEDIO: " & MEDIO 'Label7.CAPTION = "NUMERO MENOR: " & MENOR Form4.Label6.Text = "g" Form4.Label10.Text = Me.Label10.Text Form4.Label8.Text = "g" Form4.Label12.Text = Me.Label11.Text Form4.Label9.Text = "g" Form4.Label13.Text = Me.Label14.Text Else If NUM2 = NUM4 And NUM1 <> NUM3 Then 'Label10.CAPTION = "SEGUNDO Y CUARTO SON IGUALES" Form4.Label7.Text = "g" Form4.Label11.Text = Me.Label13.Text Form4.Label9.Text = "g" Form4.Label13.Text = Me.Label14.Text If NUM2 > NUM1 And NUM2 > NUM3 Then MAYOR = NUM2 If NUM1 > NUM3 Then MEDIO = NUM1 MENOR = NUM3 Else MEDIO = NUM3 MENOR = NUM1 End If End If ' Label5.CAPTION = "NUMERO MAYOR: " & MAYOR ' Label6.CAPTION = "NUMERO MEDIO: " & MEDIO ' Label7.CAPTION = "NUMERO MENOR: " & MENOR Form4.Label6.Text = "g" Form4.Label10.Text = Me.Label10.Text Form4.Label7.Text = "g" Form4.Label11.Text = Me.Label13.Text Form4.Label9.Text = "g" Form4.Label13.Text = Me.Label14.Text Else If NUM3 = NUM4 And NUM1 <> NUM2 Then 'Label10.CAPTION = "TERCERO Y CUARTO SON IGUALES" Form4.Label8.Text = "g" Form4.Label12.Text = Me.Label13.Text Form4.Label9.Text = "g" Form4.Label13.Text = Me.Label14.Text If NUM3 > NUM1 And NUM3 > NUM2 Then MAYOR = NUM3 If NUM1 > NUM2 Then MEDIO = NUM1 MENOR = NUM2 Else MEDIO = NUM2 MENOR = NUM1 End If End If 'Label5.CAPTION = "NUMERO MAYOR: " & MAYOR 'Label6.CAPTION = "NUMERO MEDIO: " & MEDIO 'Label7.CAPTION = "NUMERO MENOR: " & MENOR Form4.Label6.Text = "g" Form4.Label10.Text = Me.Label10.Text Form4.Label8.Text = "g" Form4.Label12.Text = Me.Label11.Text Form4.Label9.Text = "g" Form4.Label13.Text = Me.Label14.Text Else If NUM1 <> NUM2 And NUM1 <> NUM3 And NUM1 <> NUM4 And NUM2 <> NUM3 And NUM2 <> NUM4 And NUM3 <> NUM4 Then ''Label10.CAPTION = " " If NUM1 > NUM2 And NUM1 > NUM3 And NUM1 > NUM4 Then MAYOR = NUM1 If NUM2 > NUM3 And NUM2 > NUM4 And NUM3 > NUM4 Then MEDIO = NUM2 MEDIO1 = NUM3 MENOR = NUM4 Else If NUM2 > NUM3 And NUM2 > NUM4 And NUM4 > NUM3 Then MEDIO = NUM2 MEDIO1 = NUM4 MENOR = NUM3 Else If NUM3 > NUM2 And NUM3 > NUM4 And NUM2 > NUM4 Then MEDIO = NUM3 MEDIO1 = NUM2 MENOR = NUM4 Else If NUM3 > NUM2 And NUM3 > NUM4 And NUM4 > NUM2 Then MEDIO = NUM3 MEDIO1 = NUM4 MENOR = NUM2 Else If NUM4 > NUM3 And NUM4 > NUM2 And NUM3 > NUM2 Then MEDIO = NUM4 MEDIO1 = NUM3 MENOR = NUM2 Else MEDIO = NUM4 MEDIO1 = NUM2 MENOR = NUM3 End If End If End If End If End If ElseIf NUM2 > NUM1 And NUM2 > NUM3 And NUM2 > NUM4 Then MAYOR = NUM2 If NUM1 > NUM3 And NUM1 > NUM4 And NUM3 > NUM4 Then MEDIO = NUM1 MEDIO1 = NUM3 MENOR = NUM4 Else If NUM1 > NUM3 And NUM1 > NUM4 And NUM4 > NUM3 Then MEDIO = NUM1 MEDIO1 = NUM4 MENOR = NUM3 Else If NUM3 > NUM1 And NUM3 > NUM4 And NUM1 > NUM4 Then MEDIO = NUM3 MEDIO1 = NUM1 MENOR = NUM4 Else If NUM3 > NUM1 And NUM3 > NUM4 And NUM4 > NUM1 Then MEDIO = NUM3 MEDIO1 = NUM4 MENOR = NUM1 Else If NUM4 > NUM3 And NUM4 > NUM1 And NUM3 > NUM1 Then MEDIO = NUM4 MEDIO1 = NUM3 MENOR = NUM1 Else MEDIO = NUM4 MEDIO1 = NUM1 MENOR = NUM3 End If End If End If End If End If ElseIf NUM3 > NUM1 And NUM3 > NUM2 And NUM3 > NUM4 Then MAYOR = NUM3 If NUM1 > NUM2 And NUM1 > NUM4 And NUM2 > NUM4 Then MEDIO = NUM1 MEDIO1 = NUM2 MENOR = NUM4 Else If NUM1 > NUM2 And NUM1 > NUM4 And NUM4 > NUM2 Then MEDIO = NUM1 MEDIO1 = NUM4 MENOR = NUM2 Else If NUM2 > NUM1 And NUM2 > NUM4 And NUM1 > NUM4 Then MEDIO = NUM2 MEDIO1 = NUM1 MENOR = NUM4 Else If NUM2 > NUM1 And NUM2 > NUM4 And NUM4 > NUM1 Then MEDIO = NUM2 MEDIO1 = NUM4 MENOR = NUM1 Else & |