Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim choice as String

        Dim state as String

        Dim info as String

        Console.WriteLine("Pick a State")

        Console.WriteLine()

        Console.WriteLine("1.) Arizona")

        Console.WriteLine("2.) California")

        Console.WriteLine("3.) Florida")

        Console.WriteLine("4.) Colorado")

        Console.WriteLine("5.) Texas")

        Console.WriteLine("6.) Washington")

        Console.WriteLine("7)  New York")

        Console.WriteLine("8.) Maine")

        Console.WriteLine("9.) Ohio")

        Console.WriteLine("10.) Minnesota")

        Console.WriteLine("11.) Nevada")

        Console.WriteLine("12.) Utah")

        Console.WriteLine("13.) Idaho")

        Console.WriteLine("14.) Oregon")

        Console.WriteLine("15.) Hawaii")

        choice = Console.ReadLine()

        select choice

            case 1: 

            state = "Arizona"

            info = "CAPITAL: Phoenix  POPULATION: 7.2 million  YEAR OF STATEHOOD: 1912"

            case 2: 

            state = "California"

            info = "CAPITAL: Sacramento  POPULATION: 39.5 million  YEAR OF STATEHOOD: 1850"

            case 3: 

            state = "Florida"

            info = "CAPITAL: Tallahassee  POPULATION: 21.5 million  YEAR OF STATEHOOD: 1845"

            case 4: 

            state = "Colorado"

            info = "CAPITAL: Denver  POPULATION: 5.7 million  YEAR OF STATEHOOD: 1876"

            case 5: 

            state = "Texas"

            info = "CAPITAL: Texas Capitol  POPULATION: 29 million  YEAR OF STATEHOOD: 1845"

            case 6: 

            state = "Washington"

            info = "CAPITAL: Olympia  POPULATION: 7.6 million  YEAR OF STATEHOOD: 1889"

            case 7: 

            state = "New York"

            info = "CAPITAL: Albany  POPULATION: 19.4 million  YEAR OF STATEHOOD: 1776"

            case 8: 

            state = "Maine"

            info = "CAPITAL: Augusta  POPULATION: 1.3 million  YEAR OF STATEHOOD: 1820"

            case 9: 

            state = "Ohio"

            info = "CAPITAL: Columbus  POPULATION: 11.7 million  YEAR OF STATEHOOD: 1803"

            case 10: 

            state = "Minnesota"

            info = "CAPITAL: Saint Paul  POPULATION: 5.6 million  YEAR OF STATEHOOD: 1858"

            case 11: 

            state = "Nevada"

            info = "CAPITAL: Carson City  POPULATION: 3 million  YEAR OF STATEHOOD: 1864"

            case 12: 

            state = "Utah"

            info = "CAPITAL: Salt Lake City  POPULATION: 3.2 million  YEAR OF STATEHOOD: 1896"

            case 13: 

            state = "Idaho"

            info = "CAPITAL: Boise  POPULATION: 1.8 million  YEAR OF STATEHOOD: 1890"

            case 14: 

            state = "Oregon"

            info = "CAPITAL: Salem  POPULATION: 4.2 million  YEAR OF STATEHOOD: 1859"

            case 15: 

            state = "Hawaii"

            info = "CAPITAL: Honolulu  POPULATION: 1.4 million  YEAR OF STATEHOOD: 1959"

        end select

​

        Console.WriteLine("{0} - {1:C2}", state, info)

    End Sub

End Module

​