Programación VB tres en raya. ¿Qué hacer?
"Rem
Inicialización del tablero de ajedrez
Privado
Sub
gameInit()
Atenuar
k
Como
Entero
Para
k
=
A
8
a(k
\
3,
k
Mod
3)
=
Siguiente
mnuRed.Enabled
=
Verdadero
mnuBlue.Enabled
=
Verdadero
Me.Caption
=
IIf(rbFirst,
"Tic-Tac-Toe: ¡Actualmente el lado rojo se mueve primero!",
"Tic-Tac- Dedo del pie: Actualmente, el azul va primero ")
Llamar
Picture1_Paint
Fin
Sub
Rem
Juego terminado
Privado
Sub
juegoOver(ByVal
resultado
Como
Cadena,
k
Como
Entero)
MsgBox
resultado
k
=
Llamar
gameInit
Fin
Sub
Se te ha proporcionado el código completo"