Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Do Maths")

        dim n as string

                do

            console.WriteLine("What is 15 + 5 x 10?")

            n = console.readline()

            if n = 75 then

                console.WriteLine("We11 D0ne")

            else

                console.WriteLine("Try Again")

            end if

        loop until n = 75

        'loops until user inputs 75'

        console.writeline("This question's a bit harder")

        dim n2 as string

                do

            console.WriteLine("What is the 30 divided by 1/2")

            n2 = console.readline()

            if n2 = 60 then

                console.WriteLine("We11 D0ne")

            else

                console.WriteLine("Try Again")

            end if

        loop until n2 = 60      

        'loops until user inputs 60'

        console.WriteLine("Now the final and hardest question")

        dim y as string

                do

            console.WriteLine("A Pencil and a Sharpener cost $1.10. The Pencil costs $1 more than the Sharpener. How much does the Sharpener cost in dollers? (Don't include the $ sign) ")

            y = console.readline()

            if y = 0.05 then

                console.WriteLine("We11 D0ne")

            else

                console.WriteLine("Try Again")

            end if

        loop until y = 0.05

        'loops until user inputs 0.05'

    End Sub

End Module