Imports System

Imports Microsoft.VisualBasic               

Public Module Module1

    Public Sub Main()

        Task1()

    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",

                                "Entrace 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

            'Populate out arrays at position (Count)

            '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 prescence 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 = " "

            'Prompt to enter the surname

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

            response = Console.ReadLine()

            'validate the entry with a prescence check

            do while response = " "

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

                response = Console.ReadLine()

            loop

            'Add the value to the array

            SurNames(Count) = response

            response = " "

            'Promt to enter the volunteering option

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

            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()

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

                elseif cint(response) < 0 OR cint(response) > 3 then

                    Console.WriteLine("Invalid entry - you must enter a number in the range 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

                elseif 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

                elseif not isDate(response) then

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

                    response = Console.ReadLine()

                'Range check 1 - in the future

                elseif cdate(response) > Today then

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

                    response = Console.ReadLine()

                'Range check 2 - too far in the past

                elseif dateadd("yyyy", -4, Today) > cdate(response) then

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

                    response = Console.ReadLine()

                else

                    ValidEntry = true

                end if

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

                Console.WriteLine("Has the member paid their fee - 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 = "y" then

                    FeePaid(Count) = true

                else

                    FeePaid(Count) = False

                End if

                response = " "

            Loop

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

            Console.WriteLine("Do you want to add 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

End Module

​