'Humza Janjua

'5/24/21

'This program displays names, capitals and abreviations of any state

​

​

Imports System

​

Public Module Module1

​

    Public structure State

​

        Dim capital, name, abbrev As string

    End structure

​

    Public Sub Main()

        Dim index As integer

        Dim choice As Char

        Dim states(49) As State

        states(0).name = "Alabama"

        states(0).capital = "Montgomery"

        states(0).abbrev = "AL"

        states(1).name = "Alaska"

        states(1).capital = "Juneau"

        states(1).abbrev = "AK"

        states(2).name = "Arizona"

        states(2).capital = "Phoenix"

        states(2).abbrev = "AZ"

        states(3).name = "Arkansas"

        states(3).capital = "Little Rock"

        states(3).abbrev = "AR"

        states(4).name = "California"

        states(4).capital = "Sacramento"

        states(4).abbrev = "CA"

        states(5).name = "Colorado"

        states(5).capital = "Denver"

        states(5).abbrev = "CO"

        states(6).name = "Connecticut"

        states(6).capital = "Hartford"

        states(6).abbrev = "CT"

        states(7).name = "Delaware"

        states(7).capital = "Dover"

        states(7).abbrev = "DE"

        states(8).name = "Florida"

        states(8).capital = "Tallahassee"

        states(8).abbrev = "FL"

        states(9).name = "Georgia"

        states(9).capital = "Atlanta"

        states(9).abbrev = "GA"

        states(10).name = "Hawaii"

        states(10).capital = "Honolulu"

        states(10).abbrev = "HI"

        states(11).name = "Idaho"

        states(11).capital = "Boise"

        states(11).abbrev = "ID"

        states(12).name = "Illinois"

        states(12).capital = "Springfield"

        states(12).abbrev = "IL"

        states(13).name = "Indiana"

        states(13).capital = "Indianapolis"

        states(13).abbrev = "IN"

        states(14).name = "Iowa"

        states(14).capital = "Des Moines"

        states(14).abbrev = "IA"

        states(15).name = "Kansas"

        states(15).capital = "Topeka"

        states(15).abbrev = "KS"

        states(16).name = "Kentucky"

        states(16).capital = "Frankfort"

        states(16).abbrev = "KY"

        states(17).name = "Louisiana"

        states(17).capital = "Baton Rouge"

        states(17).abbrev = "LA"

        states(18).name = "Maine"

        states(18).capital = "Augusta"

        states(18).abbrev = "ME"

        states(19).name = "Maryland"

        states(19).capital = "Annapolis"

        states(19).abbrev = "MD"

        states(20).name = "Massachusetts"

        states(20).capital = "Boston"

        states(20).abbrev = "MA"

        states(21).name = "Michigan"

        states(21).capital = "Lansing"

        states(21).abbrev = "MI"

        states(22).name = "Minnesota"

        states(22).capital = "Saint Paul"

        states(22).abbrev = "MN"

        states(23).name = "Mississippi"

        states(23).capital = "Jackson"

        states(23).abbrev = "MS"

        states(24).name = "Missouri"

        states(24).capital = "Jefferson City"

        states(24).abbrev = "MO"

        states(25).name = "Montana"

        states(25).capital = "Helena"

        states(25).abbrev = "MT"

        states(26).name = "Nebraska"

        states(26).capital = "Lincoln"

        states(26).abbrev = "NE"

        states(27).name = "Nevada"

        states(27).capital = "Carson City"

        states(27).abbrev = "NV"

        states(28).name = "New Hampshire"

        states(28).capital = "Concord"

        states(28).abbrev = "NH"

        states(29).name = "New Jersey"

        states(29).capital = "Trenton"

        states(29).abbrev = "NJ"

        states(30).name = "New Mexico"

        states(30).capital = "Santa Fe"

        states(30).abbrev = "NM"

        states(31).name = "New York"

        states(31).capital = "Albany"

        states(31).abbrev = "NY"

        states(32).name = "North Carolina"

        states(32).capital = "Raleigh"

        states(32).abbrev = "NC"

        states(33).name = "North Dakota"

        states(33).capital = "Bismarck"

        states(33).abbrev = "ND"

        states(34).name = "Ohio"

        states(34).capital = "Columbus"

        states(34).abbrev = "OH"

        states(35).name = "Oklahoma"

        states(35).capital = "Oklahoma City"

        states(35).abbrev = "OK"

        states(36).name = "Oregon"

        states(36).capital = "Salem"

        states(36).abbrev = "OR"

        states(37).name = "Pennsylvania"

        states(37).capital = "Harrisburg"

        states(37).abbrev = "PA"

        states(38).name = "Rhode Island"

        states(38).capital = "Providence"

        states(38).abbrev = "RI"

        states(39).name = "South Carolina"

        states(39).capital = "Columbia"

        states(39).abbrev = "SC"

        states(40).name = "South Dakota"

        states(40).capital = "Pierre"

        states(40).abbrev = "SD"

        states(41).name = "Tennessee"

        states(41).capital = "Nashville"

        states(41).abbrev = "TN"

        states(42).name = "Texas"

        states(42).capital = "Austin"

        states(42).abbrev = "TX"

        states(43).name = "Utah"

        states(43).capital = "Salt Lake City"

        states(43).abbrev = "UT"

        states(44).name = "Vermont"

        states(44).capital = "Montpelier"

        states(44).abbrev = "VT"

        states(45).name = "Virginia"

        states(45).capital = "Richmond"

        states(45).abbrev = "VA"

        states(46).name = "Washington"

        states(46).capital = "Olympia"

        states(46).abbrev = "WA"

        states(47).name = "West Viriginia"

        states(47).capital = "Charleston"

        states(47).abbrev = "WV"

        states(48).name = "Wisconsin"

        states(48).capital = "Madison"

        states(48).abbrev = "WI"

        states(49).name = "Wyoming"

        states(49).capital = "Cheyenne"

        states(49).abbrev = "WY"

        Do

            For I As Integer = 0 to states.Length - 1

                Console.WriteLine(I & ": " & states(I).name)

            Next I

​

            Console.WriteLine()

            Console.WriteLine("Enter state number: ")

            index = console.ReadLine()

​

            Console.WriteLine()

            Console.WriteLine("States names: " & states(index).name)

            Console.WriteLine("Capital: " & states(index).capital)

            Console.WriteLine("Abreveation: " & states(index).abbrev)

            Console.WriteLine()

            Console.WriteLine("Would you like another state? (Y/N) ")

            choice = Console.ReadLine()

​

        Loop while choice = "Y" or choice = "y"

    End Sub

End Module

​