Red de conocimientos turísticos - Conocimientos sobre calendario chino - 口口口口*口=口口口口 Complete del 1 al 9, los números no se repiten, ¿qué algoritmo se utiliza para programar?

口口口口*口=口口口口 Complete del 1 al 9, los números no se repiten, ¿qué algoritmo se utiliza para programar?

Respuesta:

173846952

196347852

Escrito en VB. Sólo unos 10 segundos. El punto clave es juzgar cuándo está anidado cada bucle, no en el último bucle. Esto ahorra mucho tiempo.

Subcomando privado1_Click()

Atenuar a1, a2, a3, a4, b1, c1, c2, c3, c4

Para a1 = 1 a 9

Para a2 = 1 a 9

Si a1 = a2 Entonces vaya a aa2

Para a3 = 1 a 9

Si a1 = a3 o a2 = a3, luego vaya a aa3

Para a4 = 1 a 9

Si a1 = a4 o a2 = a4 o a3 = a4, entonces vaya a aa4

Para b1 = 1 a 9

Si a1 = b1 o a2 = b1 o a3 = b1 o a4 = b1 entonces vaya a bb1

Para c1 = 1 a 9

Si a1 = c1 O a2 = c1 O a3 = c1 O a4 = c1 O b1 = c1 Entonces Ir a cc1

Para c2 = 1 a 9

Si a1 = c2 O a2 = c2 O a3 = c2 O a4 = c2 O b1 = c2 O c1 = c2 Entonces vaya a cc2

Para c3 = 1 a 9

Si a1 = c3 O a2 = c3 O a3 = c3 O a4 = c3 O b1 = c3 O c1 = c3 O c2 = c3 Entonces vaya a cc3

Para c4 = 1 a 9

Si a1 = c4 O a2 = c4 O a3 = c4 O a4 = c4 O b1 = c4 O c1 = c4 O c2 = c4 O c3 = c4 Entonces Ir a cc4

Si (1000 * a1 100 * a2 10 * a3 a4) * b1 = (1000 * c1 100 * c2 10 * c3 c4) Entonces

ebug.Imprimir a1, a2, a3, a4, b1, c1, c2, c3, c4

Finalizar si

cc4: Siguiente c4

cc3: Siguiente c3

cc2: Siguiente c2

cc1: Siguiente c1

bb1: Siguiente b1

aa4: Siguiente a4

aa3： Siguiente a3

aa2： Siguiente a2

Siguiente a1

End Sub