Sabuesos primos vb.net

En esta ocasión crearemos un juego matemático llamado sabuesos primos, en el cual dice que un sabueso es capaz de seguir la secuencia de los números naturales ocultos en un tablero: comienza en la casilla marcada con 1, pasa a la 2, luego  la 3, y continua así hasta llegar a la 20. El sabueso avanza de casilla en casilla, en horizontal o en vertical, nunca en diagonal. Cada casilla es visitada una sola vez.

 No se sabe dónde están ocultos los números, pero el sabueso es capaz de encontrarlos. Las casillas sombreadas de blanco contienen números primos: 2, 3, 5, 7, 11, 13, 17 y 19. Con estos datos, ¿Qué camino seguirá el sabueso? Preguntando de otra manera, ¿Dónde se encuentra oculto cada número del 1 al 20?

Aquí el diseño:

En este problema se ocuparían 20 textbox, nombrados a11 hasta a45, el numero corresponde a la fila y columna que ocupa, el textbox para colocar los números y un botton

Para poner x texboxt en color rojo deben cambiar el color aquí:

Aquí el código:

 

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

If (a11.Text = "9" And a12.Text = "10" And a13.Text = "11" And a14.Text = "12"                       And a15.Text = "13" And a21.Text = "8" 

       And a22.Text = "3" And a23.Text = "2"

       And a24.Text = "15" And a25.Text = "14"

       And a31.Text = "7" And a32.Text = "4" 

       And a33.Text = "1" And a34.Text = "16" And a35.Text = "17" 

       And a41.Text = "6" And a42.Text = "5" And a43.Text = "20"

       And a44.Text = "19" And a45.Text = "18") Then

            MsgBox("correcto", MsgBoxStyle.Exclamation)

        Else

            MsgBox("Incorrecto, sigue intentando", MsgBoxStyle.Critical)

        End If



    End Sub

End Class

Leyendo el codigo puedes encontrar la solucion del juego

SALUDOS!

Descargar ejemplo:

Sabuesos primos vb.net

vb.net