Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim state as string

        Dim choice as String

        Dim population as String

        Dim Capital as string

        Dim statehood as string

        Console.WriteLine("Pick a state")

        Console.WriteLine("1) America")

        Console.WriteLine("2) Germany")

        Console.WriteLine("3) Italy")

        Console.WriteLine("4) Albania")

        Console.WriteLine("5) Arizona")

        Console.WriteLine("6) France")

        Console.WriteLine("7) Texas")

        Console.WriteLine("8) California")

        Console.WriteLine("9) New Yeark")

        Console.WriteLine("10) Greece")

        Console.WriteLine("11) Ohio")

        Console.WriteLine("12) Hawaii")

        Console.WriteLine("13) India")

        Console.WriteLine("14) Asia")

        Console.WriteLine("15) Spain")

        Console.WriteLine("Which state did you pick?")

        choice = Console.ReadLine()

        select choice

            case 1 : State = "America"

                Capital = "Washington"

                Population = "328.2 million"

                Statehood = "1787"

            case 2 : State = "Germany"

                Capital = "Berlin"

                Population = "83.02 million"

                Statehood = "1871"

            case 3 : State = "Italy"

                Capital = "Rome"

                Population = "60.36"

                Statehood = "1861"

            case 4 : State = "Albania"

                Capital = "Tirana"

                Population = "2.846"

                Statehood = "1914"

            case 5 : State = "Arizona"

                Capital = "Phoenix"

                Population = "7.2 million"

                Statehood = "1912"

            case 6 : State = "France"

                Capital = "Paris"

                Population = "66.99 million"

                Statehood = "1962"

            case 7 : State = "Texas"

                Capital = "Austin"

                Population = "29 million"

                Statehood = "1845"

            case 8 : State = "California"

                Capital = "Scaramento"

                Population = "39.51 million"

                Statehood = "1850"

            case 9 : State = "New Yeark"

                Capital = "Albany"

                Population = "8.399"

                Statehood = "1776"

            case 10 : State = "Greece"

                Capital = "Athens"

                Population = "10.72 million"

                Statehood = "1800"

            case 11 : State = "Ohio"

                Capital = "Columbus"

                Population = "11.69 million"

                Statehood = "1803"

            case 12 : State = "Hawaii"

                Capital = "Honolulu"

                Population = "1.416 million"

                Statehood = "1959"

            case 13 : State = "India"

                Capital = "Indianpolis"

                Population = "1.353 billion"

                Statehood = "1972"

            case 14 : State = "Asia"

                Capital = "Bangkok"

                Population = "4.650.953.021"

                Statehood = "1997"

            case 15 : State = "Spain"

                Capital = "Madrid"

                Population = "46.94 million"

                Statehood = "1982"

        end select

​

        Console.WriteLine("Capital: {0}", Capital)

        Console.WriteLine("Population: {0}", Population)

        Console.WriteLine("Statehood: {0}", statehood)

    End Sub

End Module

​