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

``` Dim numbers() As Integer = {4, 7, 9, 3, 1, 7, 7}
Dim query = From number in numbers
Where number > 6
Select number
Distinct

lstBox.Items.Add(query.Count)
lstBox.Items.Add(query.Average)

```
(A) 5 and 12
(B) 2 and 12
(C) 2 and 8
(D) 5 and

(C) 2 and 8