Imports System

Imports Microsoft.VisualBasic 

Public Module Module1

    Public Sub Main()

        Task2()

    End Sub

    Public Sub Task1()

        dim FirstNames(99) as string

        dim Surnames(99) as string 

        dim VolunteerChoices(99) as integer

        dim JoiningDates(99) as date

        dim FeePaid(99) as boolean

        dim VolunteerTypes = { "Not a volunteer", 

                               "Entrance Gate",

                               "Gift Shop", 

                               "Painting and decorating"}

        Dim count as integer

        Dim MembersToAdd as Boolean

        Dim response as string

        Dim ValidEntry as Boolean

        'Set up the Loop

        MembersToAdd = True

        Count = 0

        Do While MembersToAdd And count < 100

            'Prompt to enter the first name

            Console.WriteLine("Please enter the first name of the new member: ")

            response = Console.ReadLine()

            'validate the entry with a presence check

            do while response = " "

                Console.WriteLine("Invalid entry - you must enter a value")

                response = Console.ReadLine()

            loop 

            'Add the value to the array

            FirstNames(Count) = response

            response = " "

            Console.WriteLine("Please enter the surname of the new member: ")

            response = Console.ReadLine()

            do while response = " "

                Console.WriteLine("Invalid entry - you must enter a value")

                response = Console.ReadLine()

            loop 

            Surnames(Count) = response

            response = " "

            'Prompt to enter the volunteering option

            Console.WriteLine("Please enter the member's volunteering opition: ")

            For n = 0 to 3

                Console.WriteLine("Enter " & n &" for " & VolunteerTypes(n))

            next 

            response = Console.ReadLine()

            'Validate the data entered

            ValidEntry = false

            Do while not ValidEntry

                'Type check - make sure that the value entered is a number

                If Not isNumeric(response) Then 

                    Console.WriteLine("Invalid entry - you must enter a number")

                    response = Console.ReadLine()

                'Rangecheck - make sure that the value entered is between 0 and 3

                else if  cint(response) < 0 OR cint(response) > 3

                    Console.WriteLine("Invalid enter - you must enter a number in the range of 0 to 3")

                    response = console.ReadLine()

                else 

                    ValidEntry = true

                end if 

            loop 

            'Prompt to enter the start date

            Console.WriteLine("Please enter the start date in the format 'DD/MMM/YYYY' (e.g. 05/DEC/2020)")

            response = console.ReadLine()

            'Validate the date that has just been entered

            ValidEntry= false

            Do while not ValidEntry 

                'Length check

                if not response.Length = 11 then

                    Console.WriteLine("The date entered is not the right length. Correctly formatted dates will have 11 characters")

                    response = Console.ReadLine()

                'Format check 

                else if not (response.Substring(2,1) = "/" and response.Substring(6,1) = "/") then

                        Console.WriteLine("The date entered is not the right format. The 3rd and 7th character should be '/'")

                        response = Console.ReadLine()

                    'Type check

                    else if not isDate(response) then

                        Console.WriteLine("The data entered is not a valid date")

                        response = Console.ReadLine()

                        ' Range check 1 - in the future

                        else if cdate(response) > today then

                            Console.WriteLine("This date is invalid - it is in the future")

                            response = Console.ReadLine()

                            'Range check 2 - too far in the past

                            else if cdate(response) < dateadd("yyyy", -4, Today) then

                                Console.WriteLine("The date entered is too far in the past. All dates should be in the last four years.")

                                response = Console.ReadLine()

                                else

                                    ValidEntry = true

                end if 

            Loop 

            'Prompt to enter whether the member has paid

            Console.WriteLine("Has the member paid their fee?")

            response = console.Readline()

            Do While not(response = "y" or response = "n")

                Console.WriteLine("Invalid Entry - please enter only 'y' or 'n'")

                response = console.Readline

            Loop

            If response = "y" then

                FeePaid(Count) = true

            else 

                FeePaid(Count) = false

            end if 

            response = " "

            'Check to see if we need to set MembersToAdd to false

            Console.WriteLine("Do you want another member? y/n?")

            response = console.Readline()

            Do While not(response = "y" or response = "n")

                Console.WriteLine("Invalid Entry - please enter only 'y' or 'n'")

                response = console.Readline

            Loop

        If response = "n" then

            MembersToAdd = False

        Else

            Count = Count + 1

        End If

        Loop

    End sub

    Public Sub Task2()

        Dim FirstNames = {"Loukianos", "Ra", "Jevgēņija", "Jaidev", "Larisa", "Isaac", "Zinoviy", "Iuvenalis", "Fatih", "Cuthbert", "Phineas", "Teresa", "Alisher", 

                        "Chyna", "Fulbert", "Glukel", "Lamech", "Naheed", "Ireneus", "Susana", "Mahavir", "Deepak", "Deodatus", "Hideaki", "Anass", "Arevik", 

                        "Borbála", "Kefilwe", "Mary", "Celio"} 

        Dim Surnames = {"Erkens", "Fabian", "Lyndon", "D'Ambrosio", "Dimov", "Smith", "Jones", "Farrell", "Hughes", "Lowe", "Bureš", "Aerssens", "Svenson", "Graves", 

                        "Janson", "Godfrey", "Marín", "Filipović", "Furnadjiev", "Tracy", "Bennet", "Abramsen", "Pichler", "Ljunggren", "Berg", "Amador", "Mata",

                        "Anderson", "Poirot", "Gáspár"} 

        Dim VolunteerChoices = {0, 2, 3, 3, 2, 3, 2, 0, 2, 2, 1, 3, 2, 3, 1, 2, 1, 2, 3, 1, 1, 0, 0, 1, 2, 3, 2, 3, 2, 2}   

        dim DateStrings = {"20/Jan/2022", "11/May/2021", "07/Jan/2020", "14/Apr/2020", "04/Aug/2020", "12/Mar/2021", "02/Dec/2021", "01/Dec/2021", "12/Apr/2021", 

                        "28/Dec/2020", "05/Feb/2021", "28/Mar/2021", "20/Nov/2020", "03/Apr/2020", "24/Jan/2020", "21/Jan/2022", "15/Oct/2020", "03/Feb/2021", 

                        "25/Nov/2020", "15/Oct/2021", "07/Mar/2021", "26/Apr/2020", "02/May/2021", "17/Jan/2022", "10/Apr/2021", "27/Jun/2021", "10/Sep/2020", 

                        "31/Jan/2021", "25/Mar/2021", "08/Feb/2021"}

        Dim JoiningDates(99) as date

        'populate the JoiningDates array with dates

        for n = 0 to DateStrings.Length -1

            JoiningDates(n) = cdate(DateStrings(n))

        next    

        Dim FeePaid = {True, True, True, True, False, False, True, True, False, False, True, False, True, True, False, True, False, 

                        True, False, False, False, False, False, True, True, False, True, False, False, True}

​

        Dim VolunteerTypes = {  "Not a volunteer",

                                "Entrance Gate", 

                                "Gift Shop",    

                                "Painting and decorating"}

        Dim ContinueToLoop as Boolean

        Dim response as string

        Dim ValidEntry as boolean

        Dim Arrayindex as integer

                    'Set up a loop for task 2

                    ContinueToLoop = true

                    Do while ContinueToLoop 

                        Console.WriteLine("Please enter your required option: ")

                        Console.WriteLine("==================================")

                        Console.WriteLine("Enter 1 to list all members who have chosen to be volunteers,")

                        Console.WriteLine("Enter 2 to list all volunteers who would like to work at the pier entrance gate.")

                        Console.WriteLine("Enter 3 to list all volunteers who would like to work in the gift shop.")

                        Console.WriteLine("Enter 4 to list all volunteers who would like to help with painting and decorating tasks.")

                        Console.WriteLine("Enter 5 to list all members whose membership has expired.")

                        Console.WriteLine("Enter 6 to list all members who have not yet paid their $75 fee.")

                        Console.WriteLine("Enter 0 to exit this program.")

                        'Prompt for the response - a number in the range 0 to 6

                        response = Console.ReadLine()

                        'Validate the data entered

                        ValidEntry = false

                        Do while not ValidEntry

                            'Type check - make sure that the value entered is a number

                            If Not isNumeric(response) Then 

                                Console.WriteLine("Invalid entry - you must enter a number")

                                response = Console.ReadLine()

                            'Rangecheck - make sure that the value entered is between 0 and 6

                            else if  cint(response) < 0 OR cint(response) > 6

                                Console.WriteLine("Invalid enter - you must enter a number in the range of 0 to 6")

                                response = console.ReadLine()

                            else 

                                ValidEntry = true

                            end if 

                        Loop 

                            If response <> "0" then

                                arrayindex = 0

                                do while arrayindex <= Firstnames.Length -1

                                    if response = "1" then

                                        if not VolunteerChoices(arrayindex) = 0 then

                                        Console.WriteLine(Firstnames(arrayindex) & " " & surnames(arrayindex))

                                        End if

                                    Else if 

                                    End if 

                            Console.WriteLine(" ")

                        Loop

                    Loop 

    End sub 

End Module

​