Imports System

Public Module Module1

    Public Sub Main()

        'Declare variables including arrays

        Dim Element(10), Symbol(10), UserResponse As String

        'Populate both arrays

        Element(1) = "Potassium"

        Element(2) = "Magnesium"

        Element(3) = "Nitrogen"

        Element(4) = "Boron"

        Element(5) = "Chlorine"

        Element(6) = "Tungsten"

        Element(7) = "Silicon"

        Element(8) = "Tin"

        Element(9) = "Lead"

        Element(10) = "Uranium"

        Symbol(1) = "K"

        Symbol(2) = "Mg"

        Symbol(3) = "N"

        Symbol(4) = "B"

        Symbol(5) = "Cl"

        Symbol(6) = "W"

        Symbol(7) = "Si"

        Symbol(8) = "Sn"

        Symbol(9) = "Pb"

        Symbol(10) = "U"

        for i = 1 to 10

        Console.Writeline(i & ". What is the chemical symbol for " & Element(i) & "?")

        UserResponse = Console.ReadLine()

        Select Case UserResponse

        Case is = Symbol(i)

            Console.WriteLine("Super!")

        Case Else

            Console.WriteLine("Wrong! The correct answer is " & Symbol(i))

        End Select

    next

    End Sub

End Module