Imports System

Imports System.Collections.Generic

​

Public Module Module1

​

    Public Sub Main()

        Dim stringList As New List(Of String)(New String() {"Random Length String", "The Star Spangled Banner", "Mr. Toad's Wild Ride", "We hold these truths to be self evident", "Steve", "Once upon a time there was a fierce dragon that lived at the peak of the world's tallest volcano."})

        Dim longestStringIndex As Integer = 0

        Dim longestLength As Integer = 0

        Dim wordCount As Integer = 0

        for i as integer = 0 to stringList.Count - 1 Step 1

            'figure out if this string is longer than the current longest one

            if stringList.Item(i).Length > longestLength then

                longestLength = stringList.Item(i).Length

                longestStringIndex = i

            end if

​

            'add up the words from this string to the total. Using spaces to determine where words end.

            for each c as char in stringList.item(i)

                if c = " " then

                    wordCount += 1

                end if

            next

​

            wordCount += 1 'this picks up the last word because there's no space to count after it

        next

​

        Console.WriteLine("Longest String is: {0}", stringList.Item(longestStringIndex))

        Console.WriteLine("Total word count is: {0}", wordCount)

    End Sub

End Module

​