Imports System

Imports Microsoft.VisualBasic

​

Public Module Module1

    Public Sub Main()

        dim numbers(3, 3) as integer

        dim playerNum = 1

        dim ans as integer

        dim cont as boolean = true

        dim round as integer = 1

        dim rown as integer

        dim coln as integer

        for i = 1 to 9

            rown = int((i-1)/3) +1

            coln = ((i-1) mod 3) +1

            numbers(rown, coln) = i

        next

        DrawGrid(numbers)

        while round < 10 and cont

            InputNum(numbers, playerNum, ans)

            EditNumbers(numbers, ans, playerNum)

            CheckWin(numbers, playerNum, cont)

            ChangePLayer(playerNum)

            DrawGrid(numbers)

            round = round + 1

        end while

    End Sub

    sub DrawGrid(numbers(, ) as integer)

        OutputRow(numbers, 1)

        OutputRow(numbers, 2)

        OutputRow(numbers, 3)

        console.WriteLine(" ")

        console.WriteLine(" ")

    end sub

    sub OutputRow(numbers(, ) as integer, num as integer)

        for i = 1 to 3

            if (numbers(num, i) = 200)

                Console.Write("O | ") 

            else if (numbers(num, i) = 100)

                Console.Write("X | ") 

            else

                Console.Write(numbers(num, i) & " | ") 

            end if

        next

        console.WriteLine(" ")

        console.WriteLine("--  --  --")

    end sub

​

    sub InputNum(numbers(, ) as integer, player as integer, ByRef ans as integer)

        Do 

            console.WriteLine("Player number " & player & " make your move: ")

            ans = console.ReadLine()    

            console.WriteLine(" ")

        loop until CheckAns(ans, numbers)

    end sub

​

    function CheckAns(ans as integer, numbers(, ) as integer) as boolean

    dim suc = false

        for i = 1 to 3

            for j = 1 to 3

                if( ans = numbers(i, j))

                    suc = true

                else if (ans = 100 or ans = 200)

                    suc = false

                end if

            next

        next

        return suc

    end function

​

    sub EditNumbers(ByRef numbers(, ) as integer, ans as integer, player as integer)

        dim row as integer = int((ans-1)/3) +1

        dim col as integer = ((ans-1) mod 3) +1

        if player = 1

            numbers(row, col) = 100

        else

            numbers(row, col) = 200

        end if

    end sub

​

    sub ChangePlayer(ByRef player)

        if player = 1

            player = 2

        else

            player = 1

        end if

    end sub

​

    sub CheckWin(numbers(, ) as integer, player as integer, ByRef cont as boolean)

        if( (numbers(1, 1) = numbers(1, 2) and numbers(1, 2) = numbers(1, 3)) or (numbers(2, 1) = numbers(2, 2) and numbers(2, 2) = numbers(2, 3)) or

            (numbers(3, 1) = numbers(3, 2) and numbers(3, 2) = numbers(3, 3)) or (numbers(1, 1) = numbers(2, 1) and numbers(2, 1) = numbers(3, 1)) or

            (numbers(1, 2) = numbers(2, 2) and numbers(2, 2) = numbers(3, 2)) or (numbers(1, 3) = numbers(2, 3) and numbers(2, 3) = numbers(3, 3)) or 

            (numbers(1, 1) = numbers(2, 2) and numbers(2, 2) = numbers(3, 3)) or (numbers(1, 3) = numbers(2, 2) and numbers(2, 2) = numbers(3, 1))) then

            for i = 1 to 3

                for j = 1 to 3

                    numbers(i, j) = player*100

                next

            next

            cont = false

            console.WriteLine("Player number " & player & " won the game!!")

        end if

    end sub

End Module