Red de conocimiento informático - Problemas con los teléfonos móviles - Código fuente para encontrar respuestas de Sudoku escritas en vb (preferiblemente vb6)

Código fuente para encontrar respuestas de Sudoku escritas en vb (preferiblemente vb6)

Enviado,

La siguiente es la función principal de recursividad

Función TianChong1_1DA(x As Long, y As Long) As Boolean

Dim tmp As Long, JiXu Como booleano

Para m = 1 a 9

Si fDA(x. y, m) = 0 Entonces

Si fDA(x, y, 0) = 0 Entonces fDA(x, y, 0) = 0 Entonces fDA(x, y, 0) = 0 Entonces fDA(x, y, 0) = 0y, m) = 0 Entonces

Si fDA ( x, y, 0) = 0 Entonces fDA(x, y, 0) = m

TCJishuDA = TCJishuDA 1

ReDim Preserve QingKong(TCJishuDA)

tmp = TianChongDA

Si tmp lt; 1 y tmp gt 2 Entonces

TianChong1_1DA tmp Mod 10, Int(tmp / 10)

Fin Si

Si jieJS gt; 0 Entonces TianChong1_1DA tmp Mod 10, Int(tmp / 10)

Fin Si

Si jieJS gt 0 Entonces jieJS gt; 0 Entonces TianChong1_1DA = True

Si yuanSSJ(x, y) = 1 Entonces sale de la función

Para n = 1 a 9

Para nn1 = 1 a 9

Para nn = 1 a 9

fDA(n, nn, nn nn1) = 0

Siguiente paso

Si fDA(x, y, 0) = m entonces fDA(x, y, 0) = 0

QingKong_1DA (TCJishuDA)

TCJishuDA = TCJishuDA - 1

ReDim Preserve QingKong(TCJishuDA)

TCBiaojiDA

Finalizar si

Función final

También puedes consultar mi espacio, que tiene un ejemplo

También puedes consultar mi espacio, que contiene un ejemplo

También puedes consultar mi espacio, que contiene un ejemplo Ejemplo

También puedes consultar mi espacio, que tiene un ejemplo