Imports System

​

Public Module Module1

​

    Sub Main()

        Dim choice as integer

        Dim Capital as String

        Dim population as decimal

        Dim statehood as integer

        Dim total as Integer

        Dim state 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")

        Console.WriteLine("16) Kansas")

        Console.WriteLine("17) Kentucky")

        Console.WriteLine("18) Louisiana")

        Console.WriteLine("19) Main")

        Console.WriteLine("20) Maryland")

        Console.WriteLine("21) Massetuchuetts")

        Console.WriteLine("22) Michigan")

        Console.WriteLine("23) Minnesota")

        Console.WriteLine("24) Mississippi")

        Console.WriteLine("25) Missouri")

        Console.WriteLine("26) Montana")

        Console.WriteLine("27) Nebraskas")

        Console.WriteLine("28) Nevada")

        Console.WriteLine("29) New Hampshire")

        Console.WriteLine("30) New Jersey")

        Console.WriteLine("31) New Mexico")

        Console.WriteLine("32) New York")

        Console.WriteLine("33) North Carolina")

        Console.WriteLine("34) North Dakota")

        Console.WriteLine("35) Ohio")

        Console.WriteLine("36) Oklahoma")

        Console.WriteLine("37) Oregon")

        Console.WriteLine("38) Pennsylvania")

        Console.WriteLine("39) Rhode Island")

        Console.WriteLine("40) South Caralina")

        Console.WriteLine("41) South Dakota")

        Console.WriteLine("42) Tennessee")

        Console.WriteLine("43) Texas")

        Console.WriteLine("44) Utah")

        Console.WriteLine("45) Vermont")

        Console.WriteLine("46) Virgina")

        Console.WriteLine("47) Washington")

        Console.WriteLine("48) West Virginia")

        Console.WriteLine("49) Wisconsin")

        Console.WriteLine("50) Wyoming")

    case 1:

        State = "Alabama"

        Capital = Mon

        Population = 

    End Sub

End Module

​

​