Question

The first supreme court justice was appointed in 1789. Write a program to create a file that lists the years from 1789 through 2015 in which no supreme court justices were appointed. The first four lines of the file will be 1792,1794,1795, and 1797.

Answer 1

Public Class Supremecourt

Private Sub btnJusticesAppointed_Click(sender As Object, e As EventArgs) Handles btnJusticesAppointed.Click

Dim justices() As String = IO.File.ReadAllLines("Justices.txt")

Dim possibleYears() As String = Array.CreateInstance(GetType(String), 0)

For i As Integer = 1789 To 2015

ReDim possibleYears(i)

possibleYears(i) = CStr(i)

Next

Dim queryYears = From year In justices

Let abbrev = year.Split(","c)(4)

Order By abbrev

Select abbrev

IO.File.WriteAllLines("NoAppointments.txt", possibleYears.Except(queryYears))

End Sub

End Class