Imports System

Public Module Module1

        Structure State 

            Dim name As String

            Dim capital As String 

            Dim abbrev As String

        End Structure 

​

Public Sub Main()

    Dim yn As Char 

    Dim num As Integer 

    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 = "Sante 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 = "Releigh"

states(32).abbrev = "NC" 

states(33).name = "North Dekota"

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 = "Pennsylvannia"

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 Dekota" 

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 = "Virgina"

states(45).capital = "Richmand"

states(45).abbrev = "VA"

states(46).name = "Washington"

states(46).capital = "Olympia"

states(46).abbrev = "WA"

states(47).name = "West Virgina"

states(47).capital = "Charlston" 

states(47).abbrev = "WV"

states(48).name = "Wisconson"  

states(48).capital = "Madison"

states(48).abbrev = "WI"

states(49).name = "Wyomming"

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("Please enter the state number: ") 

        num = Console.ReadLine()

​

    If num < 49 Then 

        Console.writeLine(states(num).name) 

        Console.WriteLine(states(num).capital) 

        Console.WriteLine(states(num).abbrev) 

    Else

        Console.WriteLine("This is not a valid option")

    End If 

    Console.WriteLine("Would you like to enter another?")

        yn = Console.ReadLine()

​

    Loop While yn = "y" or yn = "Y" 

    End Sub

End Module