Question

在vb6.0中如何计算6个集合的交集

每个集合里有几个----.几百个数据不等，应该是字符串类型的。
　 3**33**33*1111
　　3**33**33*1100
　　3**33**33*1010
　　3**33**33*1001
　　3**33**33*0100
　　3**33**33*0001

急急急。

盼高手解答,给出vb6的程序

Answer 1

Private Const MAX_RNumber = 6 '定义常数，所有字符串集合最大数
Private Const MAX_ArrayNumber = 1000 '定义常数，所有字符串集合最大数
private strArray(MAX_RNumber)(MAX_ArrayNumber) as string
private lngLoadNumber(MAX_RNumber) as long ‘Form_load函数中赋值0，记录载入字符串个数
private strDataIntersection(MAX_ArrayNumber) as string
private lngDataIntersection as long ’Form_load函数中赋值0

'这些定义为From内有效的变量，你写个函数把数据导入到数组，从下标1-开始
private sub GetDataIntersection() as long

end sub

上班时间到了，不写了，给你参考吧。

Answer 2

遍历呗。数据存在什么样的文件里呢，格式怎样？

追问

就像　　0**33**13*0111
　　 0**33**10*0311
　　 0**33**03*1131
　　 0**33**00*1133
　　 0**31**33*1003
一样，String