Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim answer as String

        Dim numright as integer

        'Q1

        Console.WriteLine("a) 1+1=4")

        Console.WriteLine("b) 2+3=5")

        Console.WriteLine("c) 3+3=6")

        Console.WriteLine("d) 4+3=7")

        Console.WriteLine("Enter the incorrect answer")

        answer = Console.readline()

        if answer = "a" then

            numright = numright + 1

            Console.WriteLine("You are Correct!")

        else

            Console.WriteLine("You are incorrect. :(")

        end if

​

        'Q2

        Console.Writeline("a) 7-2=5")

        Console.Writeline("b) 6-3=3")

        Console.Writeline("c) 10-5=4")

        Console.WriteLine("d) 2-1=1")

        Console.Writeline("Enter the incorrect answer")

        answer = Console.Readline()

        if answer = "c" then

            numright = numright + 1

            Console.Writeline("You are correct!")

        else

            Console.Writeline("You are incorrect :(")

        end if

​

        'Q3

        Console.Writeline("a) 2x2=4")

        Console.Writeline("b) 2x6=12")

        Console.Writeline("c) 5x5=20")

        Console.Writeline("d) 6x5=30")

        Console.WriteLine("Enter the incorrect answer")

        answer = Console.Readline()

        if answer = "c" then

            numright = numright + 1

            Console.Writeline("You are correct")

        else

            Console.Writeline("You are incorrect :(")

        end if

    'Q4

​

        Console.Writeline("You have gotten {0} questions right", numright )

    End Sub

End Module

​