Imports System

Public Module Module1

    Public Sub Main()

        dim ans as string

        dim score as integer = 0

        dim another as integer

        console.writeline("what is the capital of wales?")

        console.writeline("a - London")

        console.writeline("B - cardiff")

        console.writeline("C - Swansea")

        console.writeline(" what is the answer? A, B or C")

        ans = console.readline()

        if ans = "B" then

            console.writeline("that is correct")

            score = score + 1

        else

            console.writeline("that is incorrect")

        end if

        dim answer as string

        console.writeline("the earths population?")

        console.writeline("a - 100b")

        console.writeline("B - 10b")

        console.writeline("C - 7.9b")

        console.writeline(" what is the answer? A, B or C")

        answer = console.readline()

        if answer = "c" then

            console.writeline("that is correct")

            score = score + 1

        else

            console.writeline("that is incorrect")

        end if

        console.writeline("you scored " & score & " out of 2")

    End Sub

End Module