Imports System

Public Module Array_3

    Public Sub Main()

​

        Dim Score As Integer = 0

        Console.WriteLine("Welcome to a short computer science quiz")

        Console.WriteLine("We will get you started now")

        Console.WriteLine("Question 1: What type of Light Projector tecnology uses a special prism to combine imagines to produce a full image?")

        Console.WriteLine("a. Digital light projector (DLP)")

        Console.WriteLine("b. Light Crystal Display ")

        Console.WriteLine("c. Harry Running Technology")

        Dim Q1 as String

        Q1 = Console.ReadLine()

        If Q1 = "b" Then

            Score += 2

        Elseif Q1 = "C"

            Console.WriteLine("Interesting choice :0")

        End If

        Console.WriteLine("Question 2: Which type of touch screen  uses infrared Flexible Polyyethylene?")

        Console.WriteLine("a. Capacitive")

        Console.WriteLine("b. Infrared")

        Console.WriteLine("c. Resistive")

        Dim Q2 as String

        Q2 = Console.ReadLine()

        If Q2= "c" Then

            Score += 2

        End If

        Console.WriteLine("Question 3: What type of Light Projector tecnology has higher contrast ratios?")

        Console.WriteLine("a. LCD")

        Console.WriteLine("b. DLP")

        Console.WriteLine("c. I don't know")

        Dim Q3 as String

        Q3 = Console.ReadLine()

        If Q3= "c" Then

            Score += 2

        End If

        Console.WriteLine("Question 4: What are Thermal bubbles")

        Console.WriteLine("a. Tiny resistors that create heat to make ink vaporize")

        Console.WriteLine("b. Cool Camera graphic Cards")

        Console.WriteLine("c. Heated Polymetholy Bubbles filled with air for Computer Heating")

        Dim Q4 as String

        Q4 = Console.ReadLine()

        If Q4= "a" Then

            Score += 2

        End If

        Console.WriteLine("Question 5: What type of Light Projector tecnology has higher contrast ratios?")

        Console.WriteLine("a. LCD")

        Console.WriteLine("b. DLP")

        Console.WriteLine("c. I don't know")

        Dim Q3 as String

        Q3 = Console.ReadLine()

        If Q3= "c" Then

            Score += 2

        End If

    End Sub

End Module