' Create a list of integers.
Dim grades As New List(Of Integer)(New Integer() {78, 92, 100, 37, 81})

' Determine the average value in the list.
Dim avg As Double = grades.Average()

' Display the output.
Console.WriteLine($"The average grade is {avg}")

' Create an array of nullable long values.
Dim longs() As Nullable(Of Long) = {Nothing, 10007L, 37L, 399846234235L}

' Determine the average value in the array.
Dim avg As Nullable(Of Double) = longs.Average()

' Display the output.
Console.WriteLine($"The average is {avg}")

' Create an array of strings.
Dim fruits() As String =
{"apple", "banana", "mango", "orange", "passionfruit", "grape"}

' Determine the average length of the strings in the array.
Dim avg As Double = fruits.Average(Function(s) s.Length)

' Display the output.
Console.WriteLine($"The average string length is {avg}")

' Create an array of strings.
Dim numbers() As String = {"10007", "37", "299846234235"}

' Determine the average number after converting each
' string to an Int64 value.
Dim avg As Double =
numbers.Average(Function(number) Convert.ToInt64(number))

' Display the output.
Console.WriteLine($"The average is {avg}")