Imports System

​

Public Module Module1

​

    Sub Main()

        Dim pick as integer

        Dim state as string

        Dim capital as string

        Dim population as string

        Dim statehood as string

        Console.WriteLine("Select a State")

        Console.WriteLine("        ")

        Console.WriteLine("{1} New Mexico")

        Console.WriteLine("{2} Utah")

        Console.WriteLine("{3} Arizona")

        Console.WriteLine("{4} California")

        Console.WriteLine("{5} Texas")

        Console.WriteLine("{6} Wyoming")

        Console.WriteLine("{7} Idaho")

        Console.WriteLine("{8} Florida")

        Console.WriteLine("{9} Indiana")

        Console.WriteLine("{10} Iowa")

        Console.WriteLine("{11} Alaska")

        Console.WriteLine("{12} Maine")

        Console.WriteLine("{13} Illinois")

        Console.WriteLine("{14} Connecticut")

        Console.WriteLine("{15} Kentucky")

        pick = console.readline

        select pick

        case 1:

            state = "New Mexico"

            capital = "Santa Fe"

            Population = "2,085,109"

            statehood ="1912"

        case 2:

            state = "Utah"

            capital = "Salt Lake"

            Population = "2,995,919"

            statehood ="1896"

        case 3:

            state = "Arizona"

            capital = "Phoenix"

            Population = "6,828,065"

            statehood ="1912"

        case 4:

            state = "California"

            capital = "Sacramento"

            Population = "39,500,000"

            statehood ="1850"

        case 5:

            state = "Texas"

            capital = "Austin"

            Population = "28,995,881"

            statehood ="1845"

        case 6:

            state = "Wyoming"

            capital = "Cheyenne"

            Population = "586,107"

            statehood ="1890"

        case 7:

            state = "Idaho"

            capital = "Boise"

            Population = "1,654,930"

            statehood ="1890"

        case 8:

            state = "Florida"

            capital = "Tallahassee"

            Population = "20,271,272"

            statehood ="1845"

        case 9:

            state = "Indiana"

            capital = "Indianapolis"

            Population = "6,619,680"

            statehood ="1816"

        case 10:

            state = "Iowa"

            capital = "Des Moines"

            Population = "3,123,899"

            statehood ="1846"

        case 11:

            state = "Alaska"

            capital = "Juneau"

            Population = "738,432"

            statehood ="1959"

        case 12:

            state = "Maine"

            capital = "Augusta"

            Population = "1,329,328"

            statehood ="1820"

        case 13:

            state = "Illinois"

            capital = "Springfield"

            Population = "12,859,995"

            statehood ="1818"

        case 14:

            state = "Connecticut"

            capital = "Hartford"

            Population = "3,590,886"

            statehood ="1788"

        case 15:

            state = "Kentucky"

            capital = "Frankfort"

            Population = "4,425,092"

            statehood ="1792"

        end select

        console.writeline("State = {0}" ,state )

        console.writeline("   ")

        console.writeline("Capital = {0}" ,capital )

        console.writeline("   ")

        console.writeline("Population = {0}" ,population )

        console.writeline("   ")

        console.writeline("Year of Statehood = {0}" ,statehood )

    End Sub

End Module

​