What colleges are displayed in the list box by the following program segment?

```
Dim ivies() As String = {"Harvard", "Princeton", "Yale", "Dartmouth",
"Brown", "Columbia", "Univ. of PA", "Cornell"}

Dim query = From college in ivies
Where college.Length <= 9
Order By college.Length Descending, college Ascending
Select college
lstBox.Items.Add(query.First)
lstBox.Items.Add(query.Max)
```
(A) Dartmouth and Princeton
(B) Yale and Brown
(C) Yale and Cornell
(D) Dartmouth and Yale

(D) Dartmouth and Yale