Imports System

Public Module Module1

    Public Sub Main()

        ''dim score() as integer = {A,B,C,D}

​

        'dim sum as integer 

        Console.WriteLine("Test I multiple choice (small letter means wrong) ")

        Console.WriteLine()

        dim num1 as string

        dim A as integer

        Console.WriteLine("1. An electronic device for storing and processing data, typically in binary form, according to instructions given to it in a variable program.)")

        Console.WriteLine(" A. Computer B. Tv c. Radio D. Cellphone ")

        num1 = Console.ReadLine()

        if ( num1 = "A") then

            Console.WriteLine("✓")

            A = + 1

            else 

                Console.WriteLine("X")

        end if

            dim num2 as string

            dim B as integer 

            Console.WriteLine("2. A person who writes computer programs.")

            Console.WriteLine(" A. Programmer B. Electrician c. Artist D. Vendor")

            num2 = Console.ReadLine()

            if( num2 = "A")

                Console.WriteLine("✓")

                B = + 1

                else Console.WriteLine("X") 

            end if

                dim num3 as string

                dim c as Integer

        Console.WriteLine("3. The langaguage we use in programming to make this assignment? ")

        Console.WriteLine(" A. c#  B. c++  C.VB.net  D.Phython")

                num3 = Console.ReadLine()

                if( num3 = "C") then

                    Console.WriteLine("✓")

                     C  = + 1

                    else Console.WriteLine("C")

                end if  

                    dim num4 as string

                    dim D as integer

                    Console.WriteLine("4. Who developed Visual Basic?")

                    Console.WriteLine(" A. Symantec B. Microsoft C. Ashton-Tate D. Sybase   " )

​

                    num4 = Console.ReadLine()

                    if ( num4 = "C") then

                        Console .WriteLine("V")

                        D = + 1

                        else

                            Console.WriteLine("X")

                        end if

                        dim num5 as string

                        dim E as Integer

                        Console.WriteLine("5. When did Microsoft launched VB.NET?")

                        Console.WriteLine("   A.2022  B.2019  C.2012  D.2002")

                        num5 = Console.ReadLine()

                    if ( num5 = "D") then

                            Console.WriteLine("✓")

                            E = + 1

                            else 

                                Console.WriteLine("X")

                          end if

                            dim num6 as string

                            Console.WriteLine("6. What does VB stand for?")

                            Console.WriteLine("     A.Vobo  B.Basic Visual  C.Visual Basic  D.Basic Victory")

                            dim F as integer

                            num6 = Console.ReadLine()

                            if ( num6 = "C") then

                                Console.WriteLine("✓")

                                F = + 1 

                                else 

                                    Console.WriteLine("X")

                                end if

                                dim num7 as string

                                Console.WriteLine("7.) Who created the Visual Basic?")

                                Console.WriteLine("     A.Montoon  B.Alan Cooper  C.Elon Musk  D.GMA")

                                dim G as integer

                                num7 = Console.ReadLine()

                                if ( num7 = "B") then

                                    Console.WriteLine("✓")

                                    G = + 1

                                    else 

                                        Console.WriteLine("X")

                                    end if

                                    dim num8 as string

                                    Console.WriteLine("8.) What is the sum 77 + 33")

                                    Console.WriteLine("     A.100  B.110  C.120  D.105")

                                    dim H as integer

                                    num8 = Console.ReadLine()

                                    if ( num8 = "B") then

                                        Console.WriteLine("✓")

                                        H = + 1

                                        else 

                                            Console.WriteLine("X")

                                    end if

                Console.Write("Your score : ")

                                        Console.WriteLine( A + B + C + D + E + F + G + H)

        dim 

    End Sub

End Module