Sub Main()
        Dim lstStudent As New List(Of String)
        For i As Integer = 1 To 4
            lstStudent.Add("学生" & i)
        Next

        lstStudent.Add("学生增加")
        lstStudent.RemoveAt(2)
        lstStudent.Insert(0， "学生插入")

        Dim findPos As Integer
        Dim findString1 As String = "学生3"
        Dim findString2 As String = "学生4"
        findPos = lstStudent.IndexOf(findString1)
        If findPos > -1 Then Console.WriteLine("存在该数据,数据索引是{0}",findPos) Else Console.WriteLine("不存在要查找的数据")

        findPos = -1
        For i As Integer = 0 To lstStudent.Count - 1
            If lstStudent(i) = findString2 Then
                findPos = i
                Exit For
            End If
        Next
        If findPos > -1 Then Console.WriteLine("存在该数据,findPos) Else Console.WriteLine("不存在要查找的数据")

        Console.ReadKey()
    End Sub