Imports System.IO
Imports System.Reflection
Imports System.Linq
Imports System.Xml.Linq
Public Class MainClass
Public Shared Sub Main
Dim words() As String = {"this", "is", "a test"}
Dim averageLength = words.Average(Function(w) w.Length)
Console.WriteLine("The average word length is " & averageLength & " characters.")
End Sub
End Class
|