Cómo calcular 24 puntos en vb

Sea el primer número un (0), el segundo número un (1), el tercer número un (2) y el cuarto número un (3).

Cls 'Borrar pantalla

Atenuar b,c,d,e como entero

Para b = 0 a 3

Para c = 0 a 3

Para d = 0 a 3

Para e = 0 a 3

Si b<>c y c& lt;>d y d <>e y e<>b y b<>d y c<>e entonces

Si a(b) + a(c) + a(d) + a(e) = 24 ¿Entonces? a(b); "+";a(c); "+";a(d); "+";a(e) )

Si a(b) + a(c) + a(d) - a(e) = 24 Entonces ?a(b); "+";a(c "+";a(d);"-";a(e)

Si a(b) + a(c) - a(d) - a(e) = 24 Entonces ?a(b);"- ";a(e)

Si a(b) - a(c) - a(d) - a(e) = 24 Entonces ?a(b);"-";a(c) ;"-";a(d);"-";a(e)

Si a(b) * a(c) + a(d) + a(e) = 24 Entonces ?a (b);"×";a(c); "+";a(d); "+";a(e)

Si a(b) * a(c) + a( d) - a(e) = 24 entonces?a(b);"×";a(c); "+";a(d);"-";a(e)

Si a(b) * a(c) - a(d) - a(e) = 24 entonces?a(d);"-";a(e)

Si a(b) * a (c) * a(d) + a(e) = 24 Entonces ?a(b);"×";a(c);"×";a(d); p>

Si a(b) * a(c) * a(d) - a(e) = 24 Entonces ?a(b);"×";a(c)."×";a(d );"-";a(e)

Si a(b) * a(c) * a(d) * a(e) = 24 entonces?a(b);"×"; a(c);"×";a(d);"×";a(e)

Si a(b) / a(c) + a(d) + a(e) = 24 Entonces?a(b);"÷";a(c); "+";a(d); "+";a(e)

Si a(b) / a(c) ) + a(d) - a(e) = 24 ¿Entonces?a(b);"÷";a(c "+";a(d);"-";a(e)

Si a(b) / a(c) * a(d) + a(e) = 24 entonces?a(b);"÷";a(c);"×";a(d); "+";a(e)

Si a(b) / a(c) * a(d) - a(e) = 24 entonces?a(b);"÷";a( c);"×";a(d);"-";a(e)

Si a(b) / a(c) / a(d) + a(e) = 24 entonces ?a( b);"÷";a(c);"÷";a(d); "+";a(e)

Si a(b) / a(c) / a(d) - a(e) = 24 entonces?a(b);"÷";a(c);"÷";a(d);"×";a(e)

Si a(b) / a(c) / a(d) / a(

e) = 24 entonces?a(b);"÷";a(c);"÷";a(d);"÷";a(e)

Si a(b) / a(c) + a(d) * a(e) ) = 24 Entonces?a(b);"÷";a(c); "+";a(d);"×";a(e)

Si a(b) / a(c) - a(d) * a(e) = 24 entonces?a(b);"÷";a(c);"-";a (d);"×";a(e)

Si a(b) / a(c) + a(d) / a(e) = 24 entonces?a(b);"÷ ";a(c); "+";a(d);"÷";a(e)

Si a(b) / a(c) - a(d) / a(e ) = 24 entonces?a(b);"÷";a(c);"-";a(d);"÷";a(e)

Fin si

Siguiente paso e, d, c, b

Puede haber problemas, inténtelo primero. Si tiene alguna pregunta, consúlteme.