VB070-求两数组相同的数源代码