Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim choice as Integer

        Dim state as String

        Dim details as String

        '

        Console.WriteLine("Select a state.")

        Console.WriteLine("1) Arizona")

        Console.WriteLine("2) California")

        Console.WriteLine("3) Iowa")

        Console.WriteLine("4) Michigian")

        Console.WriteLine("5) Oregon")

        Console.WriteLine("6) Texas")

        Console.WriteLine("7) Illinois")

        Console.WriteLine("8) Virgina")

        Console.WriteLine("9) Nevada")

        Console.WriteLine("10) Wyoming")

        Console.WriteLine("11) Kansas")

        Console.WriteLine("12) Utah")

        Console.WriteLine("13) Idaho")

        Console.WriteLine("14) Alabama")

        Console.WriteLine("15) Georgia")

        choice = Console.ReadLine()

        select choice

            case 1 : state = "Arizona"

                details = "The Capital is: Phoenix, Population: 7.2 million, Year of Statehood: 1912."

            case 2 : state = "California"

                details = "The Capital is: Sacramento, Population: 39.5 million, Year of Statehood: 1850."

            case 3 : state = "Iowa"

                details = "The Capital is: Des Moines, The Population: 3.2 million, Year of Statehood: 1846."

            case 4 : state = "Michigian"

                details = "The Capital is: Lansing, Population: 10 million, Year of Statehood: 1837."

            case 5 : state = "Oregon"

                details = "The Capital is: Salem, Population: 4.2 million, Year of Statehood: 1859."

            case 6 : state = "Texas"

                details = "The Capital is: Austin, Population: 29 million, Year of Statehood: 1845."

            case 7 : state = "Illinois"

                details = "The Capital is: Springfeild, Population: 13 million, Year of Statehood: 1818."

            case 8 : state = "Virgina"

                details = "The Capital is: Richmond, Population: 8.5 million, Year of Statehood: 1776."

            case 9 : state = "Nevada"

                details = "The Capital is: Carson city, Polulation: 3 million, Year of Statehood: 1864."

            case 10 : state = "Wyoming"

                details = "The Capital is: Cheyenne, Population: 1/2 million, Year of Statehood: 1890."

            case 11 : state = "Kansas"

                details = "The Capital is: Topeka, Population: 2.9 million, Year of Statehood: 1861."

            case 12 : state = "Utah"

                details = "The Capital is: Salt Lake City, Population: 3.2 million, Year of Statehood: 1896."

            case 13 : state = "Idaho"

                details = "The Capital is: Boise, Population: 1.8 million, Year of Statehood: 1890."

            case 14 : state = "Alabama"

                details = "The Capital is: Montgomery, Population: 4.9 million, Year of Statehood: 1819."

            case 15 : state = "Georgia"

                details = "The Capital is: Atlanta, Population: 10.6 million, Year of Statehood: 1788."

            case else : state = "Nothing!"

                details = ""

        end select

​

        Console.WriteLine("You selected {0} {1:C2} {2}", State, details, "")

    End Sub

End Module

​