Imports System

Imports Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

        DIM maxMembers = 99

        DIM memberCount = 0

        Dim temp as string

        Dim PaidString As String

        Dim Validated=False

        Dim counter as integer

        Dim PossibleStop as string

        Dim My_Stop as Boolean

        Dim OutputChoice As String

        My_Stop=False

        counter=1

        '   Task 2

        Dim MemberFirstname = {"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 MemberLastname = {"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 VolunteerStatus = {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 DateJoined(99) as DATETIME

        'populate the JoiningDates array with dates

        for n = 0 to DateStrings.Length -1

            DateJoined(n) = cdate(DateStrings(n))

        next    

        Dim MemberFee = {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 VolunteerOptions = {    "Not a volunteer",

                                "Entrance Gate", 

                                "Gift Shop",    

                                "Painting and decorating"}

    '   Task 2

    'Loop until do not want to output any more catagories   

    Do 

    Do 

    Console.WriteLine("Here are the options for data output: ")

    Console.WriteLine("Enter 0 to output the members that have chosen to work as volunteers.")

    For i = 1 to 3

        Console.WriteLine("Enter " & i & " to output the members that have chosen to work at the " & VolunteerOptions(i))

    Next i

​

    Console.WriteLine("Enter 4 to output the members whose membership has expired.")

    Console.WriteLine("Enter 5 to output the members that have not yet paid their $75 fee")

​

    temp=Console.ReadLine

        If isnumeric(temp) then

            OutputChoice=temp

            If OutputChoice >=0 AND OutputChoice <= 5 then

                Validated=TRUE 

            Else 

                Console.WriteLine("Invalid input")

            End if

        Else

            Console.WriteLine("Invalid input")

        End if

    Loop until validated = TRUE

    Validated=False 

​

    'Outputs members who have volunteered

    If OutputChoice=0 then

        For counter2 = 0 to 29

        If VolunteerStatus(counter2) <> 0 then

            Console.WriteLine(MemberFirstname(counter2) & " " & MemberLastname(counter2))

        End if

        Next

    End if

​

    'Outputs members who have volunteered at the pier entrance gift shop

    If OutputChoice=1 then

        For i = 0 to 29

        If VolunteerStatus(i) = 1 then

            Console.WriteLine(MemberFirstname(i) & " " & MemberLastname(i))

        End if

        Next

    End if

​

    'Outputs members who have volunteered at the gift shop

    If OutputChoice=2 then

        For i = 0 to 29

        If VolunteerStatus(i) = 2 then

            Console.WriteLine(MemberFirstname(i) & " " & MemberLastname(i))

        End if

        Next

    End if

​

    'Outputs members who have volunteered to help with painting and decorating

    If OutputChoice=3 then

        For i = 0 to 29

        If VolunteerStatus(i) = 3 then

            Console.WriteLine(MemberFirstname(i) & " " & MemberLastname(i))

        End if

        Next

    End if

    'Outputs members whose membership has expired

    If OutputChoice=4 then

        For i = 0 to 29

        If DateJoined(i).addyears(1) < Now() then

            Console.WriteLine(MemberFirstname(i) & " " & MemberLastname(i))

        End if

        Next

    End if

​

    'Outputs members who have not paid membership

    If OutputChoice=5 then

        For i = 0 to 29

    If MemberFee(i) = False then

            Console.WriteLine(MemberFirstname(i) & " " & MemberLastname(i))

        End if

        Next

    End if

​

    'Output data in another catagory?

​

    Do 

        Console.WriteLine("Would you like to output any more catagories? Y/N?")

        temp=ucase(Console.ReadLine)

        If temp = "Y" or temp = "N" then

            PossibleStop=temp

            Validated=TRUE

        Else

            Console.WriteLine("Invalid input")

        End if

​

    Loop until validated=True

​

    Validated=False

​

    If PossibleStop="N" then

        My_Stop = TRUE

    End if

​

    Loop until My_Stop=True

    End Sub

End Module