Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim Choice as Integer

        Dim Bird as String

        Dim Mamm as String

        Dim Rept as String

        Dim State as String

        Console.WriteLine("Choose a state")

        Console.WriteLine("1. Arizona")

        Console.WriteLine("2. New Mexico")

        Console.WriteLine("3. Nevada")

        Console.WriteLine("4. Colorado")

        Console.WriteLine("5. Utah")

        Console.WriteLine("6. Virginia")

        Console.WriteLine("7. California")

        Console.WriteLine("8. Vermont")

        Console.WriteLine("9. Rhode Island")

        Console.WriteLine("10. Wyoming")

        Console.WriteLine("11. New York")

        Console.WriteLine("12. Pensylvania")

        Console.WriteLine("13. Louisiana")

        Console.WriteLine("14. Nebraska")

        Console.WriteLine("15. Kansas")

        Choice = Console.ReadLine

        Select Choice

            Case 1 : State = "Arizona"

                Bird = "Cactus Wren"

                Mamm = "Ringtailed Cat"

                Rept = "Ridge-Nosed Rattlesnake"

            Case 2 : State = "New Mexico"

                Bird = "Greater Roadrunner"

                Mamm = "American Blackbear"

                Rept = "New Mexico Whiptail"

            Case 3 : State = "Nevada"

                Bird = "Mountain Bluebird"

                Mamm = "Desert Bighorned Sheep"

                Rept = "Desert Tortoise"

            Case 4 : State = "Colorado"

                Bird = "Lark Bunting"

                Mamm = "Rocky Mountain Bighorn Sheep"

                Rept = "Western Painted Turtle"

            Case 5 : State = "Utah"

                Bird = "California Gull (Strange, isn't it?)"

                Mamm = "Rocky Mountain Elk"

                Rept = "Gila Monster"

            Case 6 : State = "Virginia"

                Bird = "Northern Cardinal"

                Mamm = "Big Eared Bat"

                Rept = "Eastern Garter Snake"

            Case 7 : State = "California"

                Bird = "California Quail"

                Mamm = "California Grizzly Bear"

                Rept = "Desert Tortoise"

            Case 8 : State = "Vermont"

                Bird = "Hermit Thrush"

                Mamm = "Morgan Horse"

                Rept = "Painted Turtle"

            Case 9 : State = "Rhode Island"

                Bird = "Rhode Island Red"

                Mamm = "Harbour Seal"

                Rept = "Spotted Turtle"

            Case 10 : State = "Wyoming"

                Bird = "Western Meadowlark (The same as Nebraska and Kansas!)"

                Mamm = "American Bison"

                Rept = "Horned Toad"

            Case 11 : State = "New York"

                Bird = "Eastern Bluebird"

                Mamm = "Beaver"

                Rept = "Common Snapping Turtle"

            Case 12 : State = "Pensylvania"

                Bird = "Ruffed Grouse"

                Mamm = "White Tailed Deer (The same as Nebraska)"

                Rept = "Bog Turtle"

            Case 13 : State = "Louisiana"

                Bird = "Brown Pelican"

                Mamm = "Louisiana Black Bear"

                Rept = "Alligator"

            Case 14 : State = "Nebraska"

                Bird = "Western Meadowlark (The same as Wyoming and Kansas!)"

                Mamm = "White Tailed Deer (The same as Pensylvania!)"

                Rept = "Ornate Box Turtle (The same as Kansas!)"

            Case 15 : State = "Kansas"

                Bird = "Western Meadowlark (The same as Nebraska and Wyoming!)"

                Mamm = "American Buffalo"

                Rept = "Orante Box Turtle (The same as Nebraska!)"

            Case Else : State = "Nothing"

                Bird = "Nothing"

                Mamm = "Nothing"

                Rept = "Nothing"

        End Select

​

        Console.WriteLine("You chose {0} which has the state bird of the {1}, the state mammal of the {2}, and the state reptile of the {3}.", State, Bird, Mamm, Rept)

    End Sub

End Module

​