Imports System

​

'Omkar Iyer

'CapitalClash

'May 18, 2021

​

Public Module Module1

Structure State

    Dim name, capital, abbrev As String

End Structure

​

Public Sub Main()

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 = "New 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 Virginia"

    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

Loop Until states.length = 50

​

Dim num As Integer

Dim userChoice As Char

​

Do

    Console.WriteLine("Enter a state number")

    num = Console.ReadLine()

​

    If num > 49 Then

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

    End If

    Console.WriteLine("State name: " & states(num).name)

    Console.WriteLine("State name: " & states(num).capital)

    Console.WriteLine("State name: " & states(num).abbrev)

​

​

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

    userChoice = Console.ReadLine()

Loop Until userChoice = "N" or userChoice = "n"

​

End Sub

End Module