Imports System

Public Module Module1

    Public Sub Main()

        dim choice as integer

        dim state as string

        dim statehood as string

        dim capital as  string

        dim pop as string

        Console.WriteLine("Pick a state.")

        Console.WriteLine("1)Arizona.")

        Console.WriteLine("2)Texas.")

        Console.WriteLine("3)California.")

        Console.WriteLine("4)New Mexico.")

        Console.WriteLine("5)Colorado.")

        Console.WriteLine("6)Nevada.")

        Console.WriteLine("7)Alaska.")

        Console.WriteLine("8)Virginia.")

        Console.WriteLine("9)Pensylvania.")

        Console.WriteLine("10)Rhode Island.")

        Console.WriteLine("11)Florida.")

        Console.WriteLine("12)Ohio.")

        Console.WriteLine("13)Kansas.")

        Console.WriteLine("14)New York.")

        Console.WriteLine("15)Vermont.")

        console.writeline()

        choice = console.ReadLine()

        Select choice

        Case 1

            state = "Arizona"

            statehood = "1912"

            pop = "7.4 million"

            capital = "Pheonix"

            Case 2

            state = "Texas"

            statehood ="1845"

            pop ="29 million."

            capital ="Austin"

            Case 3

            state = "California"

            statehood ="1850"

            pop ="39.96 million"

            capital ="Sacramento"

            Case 4

            state = "New Mexico"

            statehood ="1912"

            pop ="2.35 million"

            capital ="Santa Fe"

            Case 5

            state = "Colorado"

            statehood ="1876"

            pop =" 5.8 million"

            capital ="Denver"

            Case 6

            state = "Nevada"

            statehood ="1864"

            pop ="3.1 million"

            capital ="Carson City"

            Case 7

            state = "ALaska"

            statehood ="1959"

            pop ="683,879"

            capital ="Juneau"

            Case 8

            state = "Virginia"

            statehood ="1788"

            pop ="8.65 million"

            capital ="Richmond"

            Case 9

            state = "Pensylvania"

            statehood ="1787"

            pop ="12.7 million"

            capital ="Harrisburg"

            Case 10

            state = "Rhode Island"

            statehood ="1776"

            pop ="  1,009,904"

            capital ="Providence"

            Case 11

            state = "Florida"

            statehood ="1845"

            pop ="21,477,737"

            capital ="Tallahassee"

            Case 12

            state = "Ohio"

            statehood ="1803"

            pop ="11.73 million"

            capital ="columbus"

            Case 13

            state = "Kansas"

            statehood ="1861"

            pop ="  2,774,044"

            capital ="Topeka"

            Case 14

            state = "New York"

            statehood ="1776"

            pop ="19.5 million"

            capital ="Albany"

            Case 15

            state = "Vermont"

            statehood ="1791"

            pop = "623,989"

            capital ="Montpelier"

        end select

        console.WriteLine(state)

        console.WriteLine(statehood)

        console.WriteLine(pop)

        console.WriteLine(capital)

    End Sub

End Module