Dim v1() As String = {"填表人"," 填表日期","修改人","修改日期"}Dim s1 As New List(of String)s1.AddRange(v1) '将数组中的元素全部加入到集合中