Dim grades As New List(Of Integer)(New Integer() {78, 92, 100, 37, 81})

Dim average As Double = grades.AsQueryable().Average()

MsgBox(String.Format("The average grade is {0}.", average))

Dim longs() As Nullable(Of Long) = {Nothing, 10007L, 37L, 399846234235L}

Dim average As Nullable(Of Double) = longs.AsQueryable().Average()

MsgBox(String.Format("The average is {0}.", average))

Dim fruits() As String = {"apple", "banana", "mango", "orange", "passionfruit", "grape"}

' Determine the average string length in the array.
Dim average As Double = fruits.AsQueryable().Average(Function(s) s.Length)

MsgBox(String.Format("The average string length is {0}.", average))