Imports System

Public Module Module1

    Public Sub Main()

        Dim administracion as integer

        Dim recursos as integer

        Dim tecnologia as integer

        Dim legales as integer

        Dim sector as integer = 0

        Dim x as integer

        While x = 0

            console.WriteLine("A que sector se dirige?")    

            console.WriteLine(" 1. administracion")

            console.WriteLine(" 2. recursos")

            console.WriteLine(" 3. tecnologia")

            console.WriteLine(" 4. legales")

            sector = console.Readline()

                SELECT CASE sector

                CASE 1 

                        if administracion < 20 then

                           administracion += 1

                        else 

                            console.Writeline("Llego a su limite por favor espere)

                        end if

                CASE 2 

                        if recursos < 10 then 

                           recursos += 1

                        else

                            console.WriteLine("Llego a su limite por favor espere")

                        end if

                CASE 3 

                        if tecnologia < 5 then

                           tecnologia += 1

                        else 

                            console.WriteLine("Llego a su limite por favor espere")

                        end if

                CASE 4

                        if legales < 4 then 

                           legales += 1 

                        else 

                            console.WriteLine("Llego a su limite por favor esoere") 

                        end if

                CASE 9999

                        x = 1

                CASE ELSE 

                        console.WriteLine("Ingrese el sector que le corresponda")

                    end select

                    console.WriteLine("Administracion: " & administracion)

                    console.WriteLine("Recusrsos humanos: " & recursos)

                    console.WriteLine("Tecnologia: " & tecnologia)

                    console.WriteLine("Legales: " & legales)

            End While 

    End Sub

End Module