Module Module1

    Sub Main()
        Dim A1, A2, A3, B1, B2, B3, C1, C2, C3, WIN, Casa As String
        A1 = " "
        B1 = " "
        C1 = " "
        A2 = " "
        B2 = " "
        C2 = " "
        A3 = " "
        B3 = " "
        C3 = " "
        WIN = ""
        Casa = ""
        Console.WriteLine("   | A | B | C |")
        Console.WriteLine("----------------")
        Console.WriteLine(" 1 | " & A1 & " | " & B1 & " | " & C1 & " |")
        Console.WriteLine("----------------")
        Console.WriteLine(" 2 | " & A2 & " | " & B2 & " | " & C2 & " |")
        Console.WriteLine("----------------")
        Console.WriteLine(" 3 | " & A3 & " | " & B3 & " | " & C3 & " |")
        Console.WriteLine("----------------")
        Do While WIN = ""
            Console.Write("Jogador 1, em que casa quer jogar? -> ")
            Casa = Console.ReadLine
            Do While Casa <> "A1" And Casa <> "B1" And Casa <> "C1" And Casa <> "A2" And Casa <> "B2" And Casa <> "C2" And Casa <> "A3" And Casa <> "B3" And Casa <> "C3"
                Console.Write("Erro. Introduza um valor válido -> ")
                Casa = Console.ReadLine
            Loop
            If Casa = "A1" Then
                If A1 <> " " Then
                    Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
                Else
                    A1 = "X"
                End If
            End If
            If Casa = "B1" Then
                If B1 <> " " Then
                    Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
                Else
                    B1 = "X"
                End If
            End If
            If Casa = "C1" Then
                If C1 <> " " Then
                    Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
                Else
                    C1 = "X"
                End If
            End If
            If Casa = "A2" Then
                If A2 <> " " Then
                    Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
                Else
                    A2 = "X"
                End If
            End If
            If Casa = "B2" Then
                If B2 <> " " Then
                    Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
                Else
                    B2 = "X"
                End If
            End If
            If Casa = "C2" Then
                If C2 <> " " Then
                    Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
                Else
                    C2 = "X"
                End If
            End If
            If Casa = "A3" Then
                If A3 <> " " Then
                    Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
                Else
                    A3 = "X"
                End If
            End If
            If Casa = "B3" Then
                If B3 <> " " Then
                    Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
                Else
                    B3 = "X"
                End If
            End If
            If Casa = "C3" Then
                If C3 <> " " Then
                    Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
                Else
                    C3 = "X"
                End If
            End If

            Console.WriteLine("   | A | B | C |")
            Console.WriteLine("----------------")
            Console.WriteLine(" 1 | " & A1 & " | " & B1 & " | " & C1 & " |")
            Console.WriteLine("----------------")
            Console.WriteLine(" 2 | " & A2 & " | " & B2 & " | " & C2 & " |")
            Console.WriteLine("----------------")
            Console.WriteLine(" 3 | " & A3 & " | " & B3 & " | " & C3 & " |")
            Console.WriteLine("----------------")

            If (A1 = "X" And B1 = "X" And C1 = "X") Or (A2 = "X" And B2 = "X" And C2 = "X") Or (A3 = "X" And B3 = "X" And C3 = "X") Or (A1 = "X" And B2 = "X" And C3 = "X") Or (A3 = "X" And B2 = "X" And C1 = "X") Or (A1 = "X" And A2 = "X" And A3 = "X") Or (B1 = "X" And B2 = "X" And B3 = "X") Then
                WIN = "1"
                Console.WriteLine("O jogador 1 ganhou.")
            ElseIf (A1 = "O" And B1 = "O" And C1 = "O") Or (A2 = "O" And B2 = "O" And C2 = "O") Or (A3 = "O" And B3 = "O" And C3 = "O") Or (A1 = "O" And B2 = "O" And C3 = "O") Or (A3 = "O" And B2 = "O" And C1 = "O") Or (A1 = "O" And A2 = "O" And A3 = "O") Or (B1 = "O" And B2 = "O" And B3 = "O") Then
                WIN = "2"
                Console.WriteLine("O jogador 2 ganhou.")
            End If


            If WIN = "" Then
                Console.Write("Jogador 2, em que casa quer jogar? -> ")
                Casa = Console.ReadLine
                Do While Casa <> "A1" And Casa <> "B1" And Casa <> "C1" And Casa <> "A2" And Casa <> "B2" And Casa <> "C2" And Casa <> "A3" And Casa <> "B3" And Casa <> "C3"
                    Console.Write("Erro. Introduza um valor válido -> ")
                    Casa = Console.ReadLine
                Loop
                If Casa = "A1" Then
                    If A1 <> " " Then
                        Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
                    Else
                        A1 = "O"
                    End If
                End If
                If Casa = "B1" Then
                    If B1 <> " " Then
                        Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
                    Else
                        B1 = "O"
                    End If
                End If
                If Casa = "C1" Then
                    If C1 <> " " Then
                        Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
                    Else
                        C1 = "O"
                    End If
                End If
                If Casa = "A2" Then
                    If A2 <> " " Then
                        Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
                    Else
                        A2 = "O"
                    End If
                End If
                If Casa = "B2" Then
                    If B2 <> " " Then
                        Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
                    Else
                        B2 = "O"
                    End If
                End If
                If Casa = "C2" Then
                    If C2 <> " " Then
                        Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
                    Else
                        C2 = "O"
                    End If
                End If
                If Casa = "A3" Then
                    If A3 <> " " Then
                        Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
                    Else
                        A3 = "O"
                    End If
                End If
                If Casa = "B3" Then
                    If B3 <> " " Then
                        Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
                    Else
                        B3 = "O"
                    End If
                End If
                If Casa = "C3" Then
                    If C3 <> " " Then
                        Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
                    Else
                        C3 = "O"
                    End If
                End If

                Console.WriteLine("   | A | B | C |")
                Console.WriteLine("----------------")
                Console.WriteLine(" 1 | " & A1 & " | " & B1 & " | " & C1 & " |")
                Console.WriteLine("----------------")
                Console.WriteLine(" 2 | " & A2 & " | " & B2 & " | " & C2 & " |")
                Console.WriteLine("----------------")
                Console.WriteLine(" 3 | " & A3 & " | " & B3 & " | " & C3 & " |")
                Console.WriteLine("----------------")

                If (A1 = "X" And B1 = "X" And C1 = "X") Or (A2 = "X" And B2 = "X" And C2 = "X") Or (A3 = "X" And B3 = "X" And C3 = "X") Or (A1 = "X" And B2 = "X" And C3 = "X") Or (A3 = "X" And B2 = "X" And C1 = "X") Or (A1 = "X" And A2 = "X" And A3 = "X") Or (B1 = "X" And B2 = "X" And B3 = "X") Then
                    WIN = "1"
                    Console.WriteLine("O jogador 1 ganhou.")
                ElseIf (A1 = "O" And B1 = "O" And C1 = "O") Or (A2 = "O" And B2 = "O" And C2 = "O") Or (A3 = "O" And B3 = "O" And C3 = "O") Or (A1 = "O" And B2 = "O" And C3 = "O") Or (A3 = "O" And B2 = "O" And C1 = "O") Or (A1 = "O" And A2 = "O" And A3 = "O") Or (B1 = "O" And B2 = "O" And B3 = "O") Then
                    WIN = "2"
                    Console.WriteLine("O jogador 2 ganhou.")
                End If
            End If
        Loop
        Console.ReadLine()
    End Sub

End Module