Triqui Matricez
Enviado por Celso_10 • 19 de Junio de 2013 • 1.812 Palabras (8 Páginas) • 383 Visitas
Sub Main()
Dim c, h, m1, m2, num, pl(9) As Double
Dim M(3, 3), res, res2 As String
M(1, 1) = " "
M(1, 2) = " "
M(1, 3) = " "
M(2, 1) = " "
M(2, 2) = " "
M(2, 3) = " "
M(3, 1) = " "
M(3, 2) = " "
M(3, 3) = " "
res = "e"
res2 = "x"
Console.WriteLine("Este es el juego de triqui ")
Console.WriteLine(" 1 2 3 ")
Console.WriteLine("1 | " & M(1, 1) & " | " & M(1, 2) & " | " & M(1, 3) & " | ")
Console.WriteLine(" |___|___|___|")
Console.WriteLine("2 | " & M(2, 1) & " | " & M(2, 2) & " | " & M(2, 3) & " | ")
Console.WriteLine(" |___|___|___|")
Console.WriteLine("3 | " & M(3, 1) & " | " & M(3, 2) & " | " & M(3, 3) & " | ")
Console.WriteLine(" |___|___|___|")
c = 1
For z = 1 To 9
If c = 1 Then
Console.WriteLine("Jugador X Digite su moviento en un lugar vacio ")
If z = 1 Then
Console.WriteLine("Primero el numero de la fila luego el de la columna juntos ")
Console.WriteLine("Ej: 33 el juegador jugara en la esquina inferior derecha ")
End If
num = Console.ReadLine
h = h + 1
m1 = num \ 10
m2 = num Mod 10
If M(m1, m2) = "X" Or M(m1, m2) = "O" Then
Console.WriteLine("Error posicion ocupada ")
res2 = "R"
z = z - 1
Else
M(m1, m2) = "X"
res2 = "si"
End If
End If
If c = 2 Then
Console.WriteLine("Jugador O Digite su moviento en un lugar vacio ")
num = Console.ReadLine
m1 = num \ 10
m2 = num Mod 10
If M(m1, m2) = "X" Or M(m1, m2) = "O" Then
Console.WriteLine("Error posicion ocupada ")
res2 = "R"
z = z - 1
Else
M(m1, m2) = "O"
res2 = "si"
...