Module Module1
Sub Main()
Dim s As String = "vb sharp c cpp python java"
Dim words() = s.Split(" ")
Dim max As String = words(0), min As String = words(0)
Dim w As String
For Each w In words
If (w.Length > max.Length) Then
max = w
End If
If (w.Length < min.Length) Then
min = w
End If
Next
Console.WriteLine("The largest word is: {0}", max)
Console.WriteLine("The smallest word is: {0}", min)
End Sub
End Module
' run:
'
' The largest word is: python
' The smallest word Is: c
'