判断是否有交集

命令说明

判断是否有交集，有交集返回 true，无交集返回 false

命令原型

bRet = Set.IsDisjoint(ObjSet,ObjSet1)

命令参数

参数	必选	类型	默认值	说明
ObjSet	True	expression	ObjSet	要操作的集合对象
ObjSet1	True	expression	ObjSet1	要对比交集的集合

返回结果

bRet，将命令运行后的结果赋值给此变量。

运行实例

/*********************************判断是否有交集***************************************
命令原型：
    Set.IsDisjoint(ObjSet,ObjSet1)
入参：
    ObjSet -- 要操作的集合对象
    ObjSet1 -- 要对比交集的集合
出参：
    bRet -- 将命令运行后的结果赋值给此变量
注意事项：
    该命令不能单独使用，需配合 "创建集合"命令(Set.Create())、 "添加元素到集合"命令(Set.add())一起使用才能正常使用，单独使用则会报错
**********************************************************************************/
Dim ObjSet
Dim ObjSet1
Dim bRet
ObjSet = Set.Create()
Set.Add(ObjSet,1)
Set.Add(ObjSet,2)
Set.Add(ObjSet,3)

ObjSet1 = Set.Create()
Set.Add(ObjSet1,2)
Set.Add(ObjSet1,3)
Set.Add(ObjSet1,4)

bRet = Set.IsDisjoint(ObjSet,ObjSet1)
TracePrint(bRet)

可视化样例