List的All方法使用问题:我用List1的All方法来确保List1的所有每个数组元素中是否包含Arr1中的任意元素，这个部分很难实现。 因为，没有一个数组中是否包含另一个数组中的任意元素这个功能


List的All方法使用问题:我用List1的All方法来确保List1的所有每个数组元素中是否包含Arr1中的任意元素，这个部分很难实现。 因为，没有一个数组中是否包含另一个数组中的任意元素这个功能。All方法中很难实现。

' 每一个List数组元素中是否包含Arr1数组内的任意元素，这个如何实现呢
        '我要实现List的All方法来判断List的所有每个元素是否包含Arr1任意元素。
        Dim Arr1 As String() = {"1", "2", "3"}
        Dim List1 As New List(Of String())
        List1.Add(New String() {"2", "3", "4"}) 'Arr1中包含2 返回 True
        List1.Add(New String() {"3", "6", "7"}) 'Arr1中包含3 返回 True
        List1.Add(New String() {"4", "1", "9"}) 'Arr1中包含1 返回 True
        List1.Add(New String() {"4", "6", "9"}) '如果加入不包含的,那么,boolean1最后返回False,使用时需注意        
        Dim boolean1 As Boolean = List1.All(Function(s) IIf(s.Intersect(Arr1).ToArray.Count > 0, True, False)) '我在这个部分很难实现，这个All方法的返回结果应该是True
        boolean1 = List1.All(Function(s) s.Any(Function(A) Arr1.Contains(A)))
        Console.WriteLine(boolean1)