Imports System

​

Public Module Module1

​

    Sub main()

        Dim board = {0, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0}

        ending(board)

    End sub

​

    Sub ending(board)

        Dim hits as integer = 0

        Dim NotHit as integer

        For i = 0 to board.length - 1

            If board(i) = 2 then

                hits = hits + 1

            End if

        Next

​

        Console.write(“hits made: “)

        Console.writeline(hits)

        NotHit = 6 - hits

        If hits = “0” or hits = “1” or hits = “2” then

            Console.writeline(“Still a bit to go”)

        Elseif hits = “3” then

            Console.writeline(“Halfway there”)

        Elseif hits = “4” or hits = “5” then

            Console.writeline(“Almost there”)

        Elseif hits = “6” then

            Console.writeline(“Winner”)

        end if

    End sub

End Module

​