Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim Passcount, Failcount, Score, count AS INTEGER

        Passcount = 0

        Failcount = 0

        Count = 0

        Do

            Console.WriteLine("Please enter your score")

            score = console.ReadLine()

            If Score >= 50 Then

                passcount = passcount + 1

            else

                failcount = failcount + 1

            end if

​

            count = count + 1

        loop until count > 5

​

        Console.WriteLine("Pass" & passcount)

        console.WriteLine("Failed" & failcount)

    End Sub

End Module

​