Dim list1 As List(of String)= args(0)
Dim List2 As List(of String)= args(1)
Dim List0 As new List(of String)
Dim st1 As String
Dim st2 As String
For Each st1 In List1
If List2.Contains(st1) Then
List0.Add (st1)
End If
Next
Return List0
或者
Dim list1 As List(of String)= args(0)
Dim List2 As List(of String)= args(1)
Dim List0 As new List(of String)
Dim lst = list1.Intersect(list2)
For Each s As String In lst
List0.Add(s)
Next
Return List0
[此贴子已经被作者于2020/2/5 15:09:40编辑过]
加好友 
发短信
Post By：2020/2/5 14:04:00 [显示全部帖子]
