Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim arrayname(21) as string

        dim counter as integer

        dim searchterm as string

        dim match as boolean = false

        dim jamesarray(3) as string

        dim jamessearchterm as string

        dim jamescounter as integer

        dim jamesmatch as boolean = false

        dim lucyarray(2) as string

        dim lucysearchterm as string

        dim lucycounter as integer

        dim lucymatch as boolean = false

        dim lukearray(2) as string

        dim conorarray(2) as string

        dim lukesearchterm as string

        dim conorsearchterm as string

        dim lukecounter as integer

        dim conorcounter as integer

        dim lukematch as boolean = false

        dim conormatch as boolean = false

        arrayname(1) = "Mckenzie"

        arrayname(2) = "Andrew"

        arrayname(3) = "Conor"

        arrayname(4) = "Arthur"

        arrayname(5) = "Peeder"

        arrayname(6) = "Jake"

        arrayname(7) = "Samuel"

        arrayname(8) = "Madison"

        arrayname(9) = "Bianca"

        arrayname(10) = "Liseli"

        arrayname(11) = "Chris"

        arrayname(12) = "Charles"

        arrayname(13) = "Rhys"

        arrayname(14) = "James"

        arrayname(15) = "Luke"

        arrayname(16) = "Natasha"

        arrayname(17) = "Lucy"

        arrayname(18) = "Mia"

        arrayname(19) = "Jade"

        arrayname(20) = "Leanne"

        arrayname(21) = "Dan"

        console.writeline("Please enter your name: ")

        searchterm = console.ReadLine()

        for counter = 1 to 21

        if arrayname(counter) = searchterm then match = true

        next

​

        if searchterm = "James"

            jamesarray(1) = "Jobson"

            jamesarray(2) = "Robson"

            jamesarray(3) = "Jonston"

            Console.WriteLine("What is your surname?")

            jamessearchterm = console.ReadLine()

            for jamescounter = 1 to 3

                if jamesarray(jamescounter) = jamessearchterm then jamesmatch = true

            next

            if searchterm = "Lucy"

                lucyarray(1) = "Syron"

                lucyarray(2) = "White"

                Console.WriteLine("What is your surname?")

                lucysearchterm = console.ReadLine()

                for lucycounter = 1 to 2

                    if lucyarray(lucycounter) = lucysearchterm then lucymatch = true

                next

                if searchterm = "Luke"

                    lukearray(1)="nmus"

                    lukearray(2)="sumn"

            Console.WriteLine("What is your surname?")

                    lukesearchterm = console.ReadLine()

                    for lukecounter = 1 to 2

                    if lukearray(lukecounter) = lukesearchterm then lukematch = true

                    next

            if searchterm = "Conor"

                    conorarray(1)="boom"

                conorarray(2)="bop"

            Console.WriteLine("What is your surname?")

                conorsearchterm = console.ReadLine()

                    for conorcounter = 1 to 2

                    if conorarray(conorcounter) = conorsearchterm then conormatch = true

                    next

                    console.WriteLine("match!")

                    else

                        console.WriteLine("You're not on the list you filthy whore")

                    end if

                end if

            end if

        end if

          End Sub

End Module

​