Dim Names As New List(Of String) Names.Add( "电视机") Names.Add("电冰箱") Names.Add("洗衣机") Names.Remove("电视机") If Names.Contains("电视机")= False Then Names.Add("电视机") End If Names.Insert(0,"传真机") Names(2) = "微波炉" Output.Show(Names.Count) '显示集合的长度 OutPut.Show(Names(0)) '显示第一个值 Output.Show(Names.Indexof("洗衣机")) '显示洗衣机在集合中的位置