Imports System

Public Module Module1

    Public Sub Main()

        dim correctanswer = 0,  name, q1, q2, q3, q4, q5, q6, q7, q8, q9, q10 as string

        dim percentage as double

        Console.WriteLine("Enter your name")

        name = Console.ReadLine()

        Console.WriteLine("Q1. 1 + 1 = ?")

        q1 = Console.ReadLine()

        if q1 = 2 then

            correctanswer = correctanswer + 1

            q1 = "Your anwer in Q1 is correct"

        else

            q1 = "Your anwer in Q1 is wrong"

        end if

        Console.WriteLine("Q2. 2 + 2 = ?")

        q2 = Console.ReadLine()

        if q2 = 4 then

            correctanswer = correctanswer + 1

            q2 = "Your anwer in Q2 is correct"

        else

            q2= "Your anwer in Q2 is wrong"

        end if

        Console.WriteLine("Q3. 3 + 3 = ?")

        q3 = Console.ReadLine()

        if q3 = 6 then

            correctanswer = correctanswer + 1

                q3 = "Your anwer in Q3 is correct"

        else

            q3= "Your anwer in Q3 is wrong"

        end if

        Console.WriteLine("Q4. 4 + 4 = ?")

        q4 = Console.ReadLine()

        if q4 = 8 then

            correctanswer = correctanswer + 1

                q4 = "Your anwer in Q4 is correct"

        else

            q4= "Your anwer in Q4 is wrong"

        end if

        Console.WriteLine("Q5. 5 + 5 = ?")

        q5 = Console.ReadLine()

        if q5 = 10 then

            correctanswer = correctanswer + 1

            q5 = "Your anwer in Q5 is correct"

        else

            q5= "Your anwer in Q5 is wrong"

        end if

        Console.WriteLine("Q6. 6 + 6 = ?")

        q6 = Console.ReadLine()

        if q6 = 12 then

            correctanswer = correctanswer + 1

            q6 = "Your anwer in Q6 is correct"

        else

            q6= "Your anwer in Q6 is wrong"

        end if

        Console.WriteLine("Q7. 7 + 7 = ?")

        q7 = Console.ReadLine()

        if q7 = 14 then

            correctanswer = correctanswer + 1

            q7 = "Your anwer in Q7 is correct"

        else

            q7= "Your anwer in Q7 is wrong"

        end if

        Console.WriteLine("Q8. 8 + 8 = ?")

        q8 = Console.ReadLine()

        if q8 = 16 then

            correctanswer = correctanswer + 1

            q8 = "Your anwer in Q8 is correct"

        else

            q8= "Your anwer in Q8 is wrong"

        end if

        Console.WriteLine("Q9. 9 + 9 = ?")

        q9 = Console.ReadLine()

        if q9 = 18 then

            correctanswer = correctanswer + 1

            q9 = "Your anwer in Q9 is correct"

        else

            q9= "Your anwer in Q9 is wrong"

        end if

        Console.WriteLine("Q10. 10 + 10 = ?")

        q10 = Console.ReadLine()

        if q10 = 20 then

            correctanswer = correctanswer + 1

            q10 = "Your anwer in Q10 is correct"

        else

            q10= "Your anwer in Q10 is wrong"

        end if

        Console.WriteLine("Your Output "&name)

        Console.WriteLine("Your Score is "& correctanswer)

        percentage = (correctanswer / 10) *100

        Console.WriteLine("The Percentage Value of your score is " &percentage)

        Console.WriteLine(q1)

        Console.WriteLine(q2)

        Console.WriteLine(q3)

        Console.WriteLine(q4)

        Console.WriteLine(q5)

        Console.WriteLine(q6)

        Console.WriteLine(q7)

        Console.WriteLine(q8)

        Console.WriteLine(q9)

        Console.WriteLine(q10)

    End Sub

End Module