Imports System

Public Module Module1

    Public Sub Main()

        dim RandomGenerator = new Random()

        dim Board(0 to 49) as string

        dim RandomPosition as integer

        dim ship = 0

​

        for index = 0 to 49

            Board(index) = "W"

        next index

        console.writeline(Board)

        do while ship <= 5

        RandomPosition = RandomGenerator.Next(0, 50)

            if Board(RandomPosition) = "W" then

                Board(RandomPosition) = "X"

            ship = ship+1

            end if

        loop        

​

        for i = 0 to 49

        console.write(Board(i))

        next i

        console.Writeline()

​

        while ship > 0 

            Console.writeline("Where is the ship")

            dim pos as integer

            pos = console.ReadLine()

​

            if board(pos) = "X"

                console.writeline("Ship Found")

                ship = ship -1

            else

                console.WriteLine("Fail")

            end if 

        end while

​

​

​

    End Sub

End Module