跳到主要内容

判断是否有交集

命令说明

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

命令原型

bRet = Set.IsDisjoint(ObjSet,ObjSet1)

命令参数

参数必选类型默认值说明
ObjSetTrueexpressionObjSet要操作的集合对象
ObjSet1TrueexpressionObjSet1要对比交集的集合

返回结果

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)

可视化样例