使用VBScript脚本语言编写一个函数,用来比较两组数之间的包含关系,并返回结果使用VBScript脚本语言编写一个函数,用来比较两组数之间的包含关系,第一组("A","B","C")第二组("TA","TB","TC"),如果ABC

Question

使用VBScript脚本语言编写一个函数,用来比较两组数之间的包含关系,并返回结果
使用VBScript脚本语言编写一个函数,用来比较两组数之间的包含关系,第一组("A","B","C")第二组("TA","TB","TC"),如果ABC中每两个都不相同,即ABC,则判断A、B、C在第二组("TA","TB","TC")中的包含数值（即如果ABC三个数都包含在第二组中就返回"3”如果有两个包含则返回"2",如果有一个包含则返回"1",没有就是0.
如果第一组ABC中有两个相同,则计算包含值最多只有0、1、2三种数值.
如果第一组ABC中三个都相同,则计算包含值只有两个选择0、1.
举例说明：
A=1 B=2 C=3 第二组数字为 232 则返回值为2
A=2 B=2 C=3 第二组数字为 232 则返回值为2(A组只算两个值2和3）
A=2 B=2 C=3 第二组数字为 252 则返回值为1(A组只算两个值2和3）
A=2 B=2 C=2 第二组数字为 232 则返回值为1(A组只算一个值2）

Answer 1

function ArrComp(arr1(),arr2())s="|" & join(arr2,"|") & "|"ArrComp=0for i=0 to ubound(arr1)if instr(s,"|" & arr1(i) & "|") thenArrComp=ArrComp+1s=replace(s,"|" & arr1(i) & "|","|")end ifnextend functi...