Question

使用VBScript脚本语言编写一个函数，用来比较两组数之间的包含关系,并返回结果

使用VBScript脚本语言编写一个函数，用来比较两组数之间的包含关系,第一组("A","B","C")第二组("TA","TB","TC"),如果ABC中每两个都不相同,即A<>B<>C,则判断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=0
for i=0 to ubound(arr1)
if instr(s, "|" & arr1(i) & "|") then
ArrComp=ArrComp+1
s=replace(s, "|" & arr1(i) & "|", "|")
end if
next
end function
a1=array(2,2,2)
a2=array(2,3,2)
msgbox "数组a1在数组a2中的包含值为:" & ArrComp(a1,a2)

追问

调用过程“SUB”时不能使用括号，请问带入的函数("A","B","C")，("TA","TB","TC")怎么看？语法错误，无法运行啊

追答

你是怎么用的呢？我上面的代码我已经测试通过了的哦