Imports System 

'Imports Miscrosoft.VisualBasic 

Imports System.Collections.Generic

​

​

Public Module Module1

    Public Sub Main()

        Dim lstWords as New List(Of String)()   'Declare lstWords string

                                                'Display the following in a list

        lstWords.Add("We")                      'Display We 

        lstWords.Add("love")                    'Display love

        lstWords.Add("learning")                'Display learning

        lstWords.Add("to")                      'Display to

        lstWords.Add("program")                 'Display program

        'First

        If lstWords.Contains("learning") Then   'find the word learning

            Console.WriteLine("Word found!")    'tell user if the word is found

        End If

        'Second

        Dim index As Integer = lstWords.IndexOf("learning") 'Display index is 2

        Console.WriteLine("Index is " & index)

        'Third

        Dim strWord As String = lstWords.Find(Function(value As String)

                Return value.Length = 7                                     'The lentgh of the word

            End Function)

        Console.WriteLine(strWord)

        'Fourth

        Dim index2 As Integer = lstWords.FindIndex(Function(value As String)

                Return value(0) = "l"c

            End Function)

        Console.WriteLine(index2)

        'Fifth

        Dim strWord2 = lstWords.FindLast(Function(value As String)

            Return value(0) = "l"c

            End Function)

        Console.WriteLine(strWord2)

    End Sub             ' End of Sub

End Module