Question

How to find the largest and the smallest word in a string with VB.NET

Answer 1

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
'

 

70+ SQL courses for beginners and professionals