Imports System

​

Public Module Module1

​

    Sub Main()

        Dim choice as integer

        Dim state as string

        Dim capital as string

        Dim population as integer

        Dim statehood as string

        Console.WriteLine("Select a state to learn three facts about it.")

        Console.WriteLine("1) Alabama")

        Console.WriteLine("2) Alaska")

        Console.WriteLine("3) Arizona")

        Console.WriteLine("4) Arkansa")

        Console.WriteLine("5) California")

        Console.WriteLine("6) Colorada")

        Console.WriteLine("7) Connecticut")

        Console.WriteLine("8) Delaware")

        Console.WriteLine("9) Florida")

        Console.WriteLine("10) Georgia")

        Console.WriteLine("11) Hawaii")

        Console.WriteLine("12) Idaho")

        Console.WriteLine("13) Illinois")

        Console.WriteLine("14) Indiana")

        Console.WriteLine("15) Iowa")

        Choice = console.ReadLine()

        select choice

            case 1 : State = "Alabama"

                Capital = "Montgomery"

                Population = 4.903

                Statehood = 1819

            case 2 : State = "Alaska"

                Capital = "Juneau"

                Population = 731545

                Statehood = 1959

            case 3 : State = "Arizona"

                Capital = "Phenoix"

                Population = 7.279

                Statehood = 1912

            case 4 : State = "Arkansas"

                Capital = "Little Rock"

                Population = 3.018

                Statehood = 1836

            case 5 : State = "California"

                Capital = "Sacramento"

                Population = 39.51

                Statehood = 1850

            case 6 : State = "Colorado"

                Capital = "Denver"

                Population = 5.759

                Statehood = 1876

            case 7 : State = "Connecticut"

                Capital = "Hartford"

                Population = 3.565

                Statehood = 1788

            case 8 : State = "Delaware"

                Capital = "Dover"

                Population = 973764

                Statehood = 1787

            case 9 : State = "Florida"

                Capital = "Tallahassee"

                Population = 21.48

                Statehood = 1845

            case 10 : State = "Georgia"

                Capital = "Atlanta"

                Population = 10.62

                Statehood = 1788

            case 11 : State = "Hawaii"

                Capital = "Honolulu"

                Population = 1.416

                Statehood = 1959

            case 12 : State = "Idaho"

                Capital = "Boise"

                Population = 1.787

                Statehood = 1890

            case 13 : State = "Illinois"

            Capital = "Springfield"

                Population = 12.67

                Statehood = 1818

            case 14 : State = "Indiana"

                Capital = "Indianapolis "

                Population = 6.732

                Statehood = 1816

            case 15 : State = "Iowa"

                Capital = "Des Moines"

                Population = 3.155

                Statehood = 1846

        end select

        Console.WriteLine("you chose {0} your population is {1:C2} it is {2}", Capital, Population, Statehood)

    End Sub

End Module

​