Imports System

​

Public Module Module1

​

    public a, b, a2, b2, a3, b3, a4, b4 as string

​

    dim d as integer = 0

​

    dim d2 as integer = 0

​

    Public Sub Main()

        dim pl1(,) as string = {{0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}

        dim pl2(,) as string = {{0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}}

        for i as integer = 1 to 3

            console.writeline("player 1: enter ship positions")

            a = console.readline() - 1

            b = console.ReadLine() - 1

            pl1(a, b) = i

        next

​

        for row as integer = 0 to pl1.getupperbound(0)

            console.writeline()

            for column as integer = 0 to pl1.getupperbound(1)

                console.write(pl1(row, column))

            next

        next

​

        for i as integer = 1 to 3

            console.writeline("player 2: enter ship positions")

            a2 = console.readline() - 1

            b2 = console.ReadLine() - 1

            pl2(a2, b2) = i

        next

​

        for row as integer = 0 to pl2.getupperbound(0)

            console.writeline()

            for column as integer = 0 to pl2.getupperbound(1)

                console.write(pl2(row, column))

            next

        next

​

        do

            console.writeline("player 1 : enter missile coordinates")

            a3 = console.readline() - 1

            b3 = console.readline() - 1

            if pl2(a3, b3) = 1 or pl2(a3, b3) = 2 or pl2(a3, b3) = 3 then

                console.writeline("hit")

                pl2(a3, b3) = "4"

            else

                console.writeline("miss")

            end if

​

            console.writeline()

            console.writeline(checkwin2(pl2))

            if checkwin2(pl2) = 3 then

                console.writeline("player 1 wins!")

            else

                console.writeline("player 2 : enter coordinates")

                a4 = console.readline() - 1

                b4 = console.readline() - 1

                if pl1(a4, b4) = 1 or pl1(a4, b4) = 2 or pl1(a4, b4) = 3 then

                    console.writeline("hit")

                    pl1(a4, b4) = "5"

                else

                    console.writeline("miss")

                end if

​

                console.writeline()

                console.writeline(checkwin(pl1))

                if checkwin(pl1) = 3 then

                    console.writeline("player 2 wins!")

                end if

            end if

        loop until checkwin2(pl2) = 3 or checkwin(pl1) = 3

    End Sub

​

    function checkwin2(byval pl2(,) as string) as integer

        d = 0

        for row as integer = 0 to pl2.getupperbound(0)

            for column as integer = 0 to pl2.getupperbound(1)

                if pl2(row, column) = "4" then

                    d += 1

                else

                end if

            next

        next

​

        return d

    end function

​

    function checkwin(byval pl1(,) as string) as integer

        d2 = 0

        for row as integer = 0 to pl1.getupperbound(0)

            for column as integer = 0 to pl1.getupperbound(1)

                if pl1(row, column) = "5" then

                    d2 += 1

                else

                end if

            next

        next

​

        return d2

    end function

​

End Module

​

​

​

​

​

​

​

​

​